nd to bird seth -45 arc 140 15 seth 90 pu fd 30 pd seth 270 pd arc 140 15 pu home pd end to flock xy 100 150 pd bird xy 70 180 pd bird xy 130 180 pd bird end to road setpc 0 make "l 50 make "w 600 xy -300 -200 pd repeat 2 [ fd :L rt 90 fd :w rt 90 ] xy -300 -175 pd seth 90 setpc 6 repeat 25 [ fd 15 pu fd 15 pd ] xy -290 -170 setpc 0 fill ph end to sky xy -300 0 pd repeat 2 [ fd 200 rt 90 fd 600 rt 90 ] xy -35 30 setpc 11 fill xy 212 5 s 11 fill pu home pd end to circle :r arc 360 :r end to xy :x :y pu setxy :x :y pd end to cloud setpc 7 setcolor 7 sw 18 xy -65 140 circle 10 fill xy -65 130 circle 10 fill xy -95 140 circle 10 fill xy -85 120 circle 10 fill xy -95 130 circle 10 fill xy -55 125 circle 15 fill xy -115 120 circle 10 fill setwidth 1 s 0 ph end to bb xy -300 -130 rec 40 100 xy -295 -125 s 7 fill ph xy -280 -130 seth 180 rec 20 5 xy -240 -130 seth 180 rec 20 5 s 1 xy -298 -105 seth 90 label "Follow.me xy -298 -120 seth 90 label "@HLModTech ph end to blimp xy 20 112 ellipse 80 40 s 3 fill xy -23 118 s 6 ellipse 3 12 s 6 fill xy -23 106 ellipse 3 12 s 6 fill s 8 xy 10 82 rec 10 20 xy 13 84 fill ph end house