Add new example

examples/disco.tcl

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