46 lines
861 B
Tcl
46 lines
861 B
Tcl
viewport 0 0 960 96
|
|
|
|
color ""; fill midnightblue
|
|
box 0 0 960 96
|
|
|
|
color fuchsia; set y 8
|
|
repeat 3 {
|
|
width [/ $y 2]
|
|
line 0 [+ $y 48] 960 [+ $y 48]
|
|
incr y $y
|
|
}
|
|
|
|
for {set i 1} {$i < 32} {incr i} {
|
|
set x [* $i 30]
|
|
if {$i % 11 == 0} {
|
|
color ""; fill black
|
|
oval $x 64 10 32
|
|
box $x 40 12 56
|
|
color black; width 2
|
|
line $x 48 $x 24
|
|
} elseif {$i % 7 == 0} {
|
|
color black; width 5
|
|
line $x 96 $x 48
|
|
fill black
|
|
circle $x 60 6
|
|
} elseif {$i % 5 == 0} {
|
|
color ""; fill black
|
|
polygon [- $x 8] 96 [- $x 8] 48 [+ $x 2] 40 [+ $x 2] 96
|
|
box $x 48 8 48
|
|
} elseif {$i % 3 == 0} {
|
|
color ""; fill black
|
|
box [- $x 10] 64 20 32
|
|
} elseif {$i % 2 == 0} {
|
|
color ""; fill black
|
|
box [- $x 10] 80 20 16
|
|
polygon [- $x 15] 80 $x 72 [+ $x 15] 80
|
|
}
|
|
}
|
|
|
|
font "Lato"; size 30; color white
|
|
set x 48
|
|
foreach i "GENOA BANNER CREATOR" {
|
|
text $x 40 $i
|
|
incr x 192
|
|
}
|