reset
make "c 1
make "r 255
make "g 255
make "b 255
penwidth 1000
color [random :r random :g random :b]
fw 1
penwidth 5
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
make "cr random :r
make "cg random :g
make "cb random :b
repeat 50[
color [:cr :cg :cb]
circle :c
make "c :c + 1
make "cr :cr + 5.01
make "cg :cg + 5.01
make "cb :cb + 5.01
]
make "c 1
make "cr 0
penwidth 5
end
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 500 random 500
setheading random 359
weirdocrazysquareroot
setxy random 500 random 500
weirdocrazycircle
]
end
;this makes the code apear on the screen.
weirdocrazybg