38 lines
583 B
Tcl
38 lines
583 B
Tcl
viewport 10 10 300 300
|
|
|
|
fill black; box 0 0 320 320
|
|
|
|
color deepskyblue; set y 4; width 2
|
|
repeat 5 {
|
|
incr y $y
|
|
line 0 [+ $y 150] 320 [+ $y 150]
|
|
}
|
|
for {set x -320} {$x < 640} {incr x 96} {
|
|
line 160 160 $x 320
|
|
}
|
|
|
|
color mediumblue; set y 36; set w 18
|
|
repeat 3 {
|
|
width $w; line 0 $y 320 $y
|
|
incr y [expr {$y / 3 * 2}]
|
|
set w [expr {$w / 3 * 2}]
|
|
}
|
|
|
|
width 1; color red
|
|
|
|
for {set x 0} {$x < 640} {incr x 60} {
|
|
line 32 32 $x 320
|
|
}
|
|
|
|
color lime
|
|
|
|
for {set x -320} {$x < 320} {incr x 68} {
|
|
line 304 64 $x 320
|
|
}
|
|
|
|
color yellow
|
|
|
|
for {set x -320} {$x < 640} {incr x 72} {
|
|
line 192 24 $x 320
|
|
}
|