Added banners

examples/banner.tcl

@@ -0,0 +1,39 @@
+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 36
+		fill black
+		circle $x 48 8
+	} elseif {$i % 5 == 0} {
+		color black; fill ""; width 3
+		polygon [- $x 12] 96 $x 48 [+ $x 12] 96
+		line [- $x 12] 64 [+ $x 12] 64
+		line [- $x 12] 72 [+ $x 12] 72
+	} elseif {$i % 3 == 0} {
+		color ""; fill black
+		polygon [- $x 8] 96 [- $x 8] 48 [+ $x 2] 40 [+ $x 2] 96
+		box $x 48 8 48
+	} elseif {$i % 2 == 0} {
+		color ""; fill black
+		box [- $x 10] 64 20 32
+	}
+}

examples/banner2.tcl

@@ -0,0 +1,45 @@
+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
+}