reset penwidth 1000 color [0 0 0] fw 1 penwidth 5 make "c 0 make "r 255 make "g 255 make "b 255 to weirdocrazysquare color [random :r random :g random :b] repeat 4[ fw 50 rt 90 ] lt 90 bw 25 lt 90 pu fw 10.5 pd rt 135 repeat 4[ fw 50 rt 90 ] end to weirdocrazytriangle color [random :r random :g random :b] repeat 3[ rt 120 fw 50 ] bw 31.25 rt 90 pu bw 12.5 pd lt 90 rt 45 repeat 3[ fw 50 rt 120 ] end to weirdocrazyplus color [random :r random :g random :b] fw 50 bw 25 lt 90 fw 25 bw 50 end to weirdocrazytimes color [random :r random :g random :b] fw 50 bw 25 lt 45 fw 25 bw 50 end to weirdocrazypi color [random :r random :g random :b] setxy random 500 random 500 setheading random 359 fw 5 rt 10 fw 4.5 rt 20 fw 4 rt 30 fw 3.5 rt 40 fw 3 rt 50 fw 2.5 rt 60 fw 2 rt 70 fw 1.5 rt 80 fw 1 rt 90 bw 0.5 lt 90 bw 1 lt 80 bw 1.5 lt 70 bw 2 lt 60 bw 2.5 lt 50 bw 3 lt 40 bw 3.5 lt 30 bw 4 lt 20 bw 4.5 lt 10 bw 7.5 lt 90 fw 12 bw 14 fw 14 bw 2 rt 90 fw 20 end to weirdocrazye color [random :r random :g random :b] arc 10 270 lt 90 bw 10 fw 20 end to weirdocrazydivide color [random :r random :g random :b] fw 50 bw 25 lt 90 pu fw 25 pd fw 1 pu bw 50 pd bw 1 end to weirdocrazyinfinity color [random :r random :g random :b] circle 6.25 pu bw 12.5 pd circle 6.25 end to weirdocrazysquareroot color [random :r random :g random :b] fw 10 rt 112.5 fw 30 lt 150 fw 50 rt 90 fw 30 end to weirdocrazycircle color [:random r random :g random :b] repeat 50[ circle :c make " to weirdocrazybg repeat 13[ setxy random 500 random 500 setheading random 359 weirdocrazysquare setxy random 500 random 500 setheading random 359 weirdocrazytriangle setxy random 500 random 500 setheading random 359 weirdocrazyplus setxy random 500 random 500 setheading random 359 weirdocrazytimes setxy random 500 random 500 setheading random 359 weirdocrazypi setxy random 500 random 500 setheading random 259 weirdocrazye color [random :r random :g random :b] setxy random 500 random 500 setheading random 259 fw 50 setxy random 500 random 500 setheading random 359 weirdocrazydivide setxy random 500 random 500 setheading random 359 weirdocrazyinfinity setxy random 50 random 500 setheading random 359 weirdocrazysquareroot ] end ;this makes the code apear on the screen. weirdocrazybg