34 lines
605 B
Tcl
34 lines
605 B
Tcl
color ""; fill midnightblue; box 0 0 320 160
|
|
|
|
fill ""; color gold; width 3
|
|
set x 100; set i 0; set r $x
|
|
repeat 10 {
|
|
incr i 1; incr r [- $i]
|
|
circle [+ $x 30] 160 $r
|
|
incr x $i
|
|
}
|
|
|
|
color ""; fill darkslateblue; box 0 160 320 160
|
|
|
|
color ghostwhite
|
|
set x1 0; set y1 0; set x2 320; set y2 0;
|
|
repeat 20 {
|
|
line $x1 $y1 $x2 $y2
|
|
incr x1 16; incr y2 16
|
|
}
|
|
|
|
color brown; set x 120; set y 180; set w 1
|
|
repeat 10 {
|
|
width $w
|
|
line [expr {$x-$w*5}] $y [expr {$x+$w*15}] $y
|
|
incr w; incr y [* $w 2]
|
|
}
|
|
|
|
set x 16; set y 0; color green; width 5
|
|
repeat 8 {
|
|
incr x 8; incr y 24
|
|
line 0 320 $x $y
|
|
}
|
|
|
|
viewport 10 10 300 300
|