reset to myrand :a :b output :a + rand :b - :a + 1 end sety 150 make "r 255 make "b 255 make "ra 1 color [255 0 255] repeat 4[ setheading random 360 fw random 100 setheading rand 360 fw rand 75 setheading rand 360 fw rand 75 setxy 250 150 setheading random 360 fw random 100 setheading rand 360 fw rand 75 setheading rand 360 fw rand 50 setxy 250 150 setheading random 360 fw random 100 setheading rand 360 fw rand 75 setheading rand 360 fw rand 50 setxy 250 150 setheading random 360 fw random 100 setheading rand 360 fw rand 75 setheading rand 360 fw rand 50 setxy 250 150 ] repeat 256 [ color [:r 0 :b] circle :ra make "r :r - 1 make "b :b - 1 make "ra :ra + 0.1 ] sety 250 make "r1 106 make "r2 100 make "r3 50 make "h1 10 make "h2 8 make "h3 0 make "h1inc 31 make "h2inc 0 make "h3inc 40 repeat 3000[ penwidth 0.5 setheading :h1 fw :r1 setheading :h2 fw :r2 setheading :h3 fw :r3 make "h1 :h1+ :h1inc make "h2 :h2+ :h2inc make "h3 :h3+ :h3inc home ]