Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- "c ((3*:t*:t)*(1-:t)) make "d (:t^3) setxy ((:x1*:a)+(:x2*:b)+(:x3*:c)+(:x4*:d))
- ((:y1*:a)+(:y2*:b)+(:y3*:c)+(:y4*:d)) ] end setxy 0 161 filled 7 [ kc 8 132
- 106 116 98 kc 130 92 138 90 130 86 kc 107 84 98 60 84 71 kc
- 44 134 66 118 kc 85 111 91 98 101 87 kc 109 87 110 91 112 93 kc 96 102 102
- 92 71 99 75 87 76 kc 75 75 72 58 106 46 kc 134 32 149 17 151 6
- ht setpensize 1 setbg 7 cs filled [92 9 12] [ fd 220 setxy 240 0 home ]
- kc 128 25 102 46 66 49 kc 72 70 62 91 39 108 kc 20 119 8 131 0 146 ]
- mbz 99 -90 104 -125 82 -140 58 -133 pu setxy 229 -194
- repeat 21 [ make "t ((#-1)/20) make "a ((1-:t)^3) make "b ((3*:t)*(1-:t)*(1-:t)) make
- setpencolor 7 to kc :x2 :y2 :x3 :y3 :x4 :y4 make "x1 xcor make "y1 ycor
- ((:y1*:a)+(:y2*:b)+(:y3*:c)+(:y4*:d)) ] end pu setxy 136 98 filled 7 [ cv 160 0 100
- -140 -90 cv -117 -84 -53 -62 -14 -25 cv 36 18 88 87 97 141 ]
- -26 setxy 103 129 setxy -135 -95 ] to cv :x2 :y2 :x3 :y3 :x4 :y4 make "x1 xcor make "y1
- -32 29 -58 cv -26 -73 -84 -81 -135 -100 setxy
- 154 -140 179 -120 bz 172 -147 185 -155 195 -160 ] pu setxy 138 2 pd setxy 160 -8
- [11 31 64] [ seth 50 arc 185 165 ] pu setxy -135 -95 filled 8 [ setxy 29
- ht cs setpensize 1 setbg 7 setpalette 8 [93 7 18] filled 8 [ arc 360 165 ] filled
- make "c ((3*:t*:t)*(1-:t)) make "d (:t^3) setxy ((:x1*:a)+(:x2*:b)+(:x3*:c)+(:x4*:d))
- ycor repeat 21 [ make "t ((#-1)/20) make "a ((1-:t)^3) make "b ((3*:t)*(1-:t)*(1-:t))
- ((:y1*:a)+(:y2*:b)+(:y3*:c)+(:y4*:d)) ] end setbg 7 setpencolor
- (pos) pd filled 8 [ fd 180 seth 180 fd 110 setpos (pop "s) ] pu home
- 200 0 ] pu setxy 200 0 seth -30 fd 20 push "s (pos) pd filled 9
- 8 [ fd 100 lt 90 fd 40 setxy 0 0 ] pu home rt 30 fd 20 push "s
- [ fd 180 seth 180 fd 110 setpos (pop "s) ]
- cs ht setbg 7 make "s [] setpalette 8 [88 10 20] setpencolor 8 setpensize 1 rt 90 filled
- seth 90 fd 200 setpalette 9 [60 10 20] setpencolor 9 pd filled 9 [ back 100 lt 90 fd 40 setxy
- (45/cos 15) lt 15 ] home fd 23 rt 90 fd 70 lt 90 repeat 2
- 0 [ arc 360 125 ] home repeat 3 [ xx rt 15 fd (45/cos 15) lt 15
- 15) fd 30 lt 90 fd 15 pd filled 7 [ arc 180 15 ] pu bk 15 lt 90 fd (30*
- 21 [ make "t ((#-1)/20) make "a ((1-:t)^3) make "b ((3*:t)*(1-:t)*(1-:t))
- 90 fd 30 rt 90 fd 30 fd (30*sin 15) rt 90 ] pu rt 90 fd (30*sin
- [ xx rt 15 fd (42/cos 15) lt 15 ]
- ] home fd 45 lt 90 fd 55 rt 90 repeat 2 [ xx rt 15 fd
- cs ht setbg 7 to xx filled 7 [ pd rt 15 fd (30/cos 15) rt 75 fd 30 rt
- sin 15) fd 30 rt 90 end setpensize 1 setpencolor 7 pu setxy 35 58 filled
- -12 setxy -5 -50 setxy -42 -15 ] setxy -43 -50 setpencolor 0 filled 0 [
- 150 ] pu setxy 50 40 pd filled 7 [ arc 360 27 ] setpencolor 7
- 185 -211 162 -222 bz 110 -245 35 -264 23 -234 bz 5 -248 -25 -320 50 -320 bz 130 -320
- 40 ] setxy -42 -15 filled 7 [ setxy -42 -15 setxy -3 40 setxy 50
- arc 360 30 ] pu setxy -43 -50 setpencolor 7 pd setpensize 40 setxy -160 0
- cs setbg 7 setpensize 1 setpencolor 0 ht filled 0 [ arc 360
- setpensize 18 arc 360 45 pu setpensize 1 setxy -43 -50 pd filled 7 [ arc 360
- -6 setxy 124 -22 setxy -52 -23 setxy -20 0 setxy -122 6 ]
- 227 -130 195 -160 filled 0 [ bz 154 -205 114 -168 96 -121 mbz 98 -113 125 -135
- pu setxy -122 22 pd filled 0 [ setxy 54 23 setxy 22 -2 setxy 124
- setpencolor 0 setbg 7 ht cs setpensize 10 arc 360 90 setpensize 1
- -80 -76 -80 -26 bz -80 31 -21 17 0 0 bz 35 -22 39 -70 38 -82 pu setxy 100 -30 pd setxy 110 -12
- fd 50 lt 60 fd 50 lt 120 fd 50 lt 60 fd 50 ] pu bk 150 ]
- ht setbg 7 cs rt 90 setpalette 8 [90 0 7] setpencolor 8 repeat 3 [ filled 8 [
- 0 to mbz :x1 :y1 :x2 :y2 :x3 :y3 :x4 :y4 pu setxy :x1 :y1 pd bz :x2 :y2 :x3 :y3
- 50 0 setpalette 9 [40 20 80] setpencolor 9 filled 9 [ lt 30 pd fd 250 lt 90 fd 86 lt 90 fd 150
- 8 [ rt 30 pd fd 250 rt 90 fd 86 rt 90 fd 150 lt 120 fd 150 rt
- 90 fd 86 rt 90 fd 150 lt 120 fd 150 rt 90 fd 86 rt 90 fd 250 ] pu seth 0 setxy
- rt 120 fd 150 lt 90 fd 86 lt 90 fd 150 rt 120 fd 150 lt 90 fd 86 lt 90 fd 250 ]
- setpensize 1 cs ht pu setx -50 setpalette 8 [60 80 0] setpencolor 8 filled
- 0] setpencolor 8 filled 8 [ arc 360 120 ]
- 127 -270 215 -256 bz 251 -254 275 -220 229 -194 ] pu setxy 127 -41 pd filled 0 [ arc 360 8 ]
- 8 filled 8 [ arc 360 40 ]
- ht cs setbg 7 setpensize 1 setpalette 8 [80 0
- setpencolor 7 filled 7 [arc 360 80 ] setpencolor
- 1 setpencolor 4 repeat 4 [ setxy (pop "s) (pop "s) seth (pop "s)
- 186 -110 154 -110 bz 114 -110 106 -50 159 -50 ] mbz 100 125 100 65
- filled 4 [ fd 100 lt 135 fd 70.7 lt 90 fd 70.7 ] ]
- make "s [0 0 0 0 0 90 100 100 180 100 100 270 ] cs ht setbg 7 setpensize
- 100 seth 260 pu fd 100 seth 90 pd fd 90 pu home rt 90 back 10 pe pd fd 120 pu home fd 10 rt
- 90 back 10 pd fd 120 pu setxy 50 0 setpensize 10 seth 180 pd fd 40 ppt
- ht setpencolor 0 cs setbg 7 setpensize 20 arc 360 100 pu setx 100 pd arc 360
- pd filled (list (ycor+xcor-10)%100 (ycor+27)%100 (xcor+56)%100) [bz 208 -50
- 12 pu lt 90 fd 150 pd rt 180 repeat
- 4 [ arc 360 75 pu fd 100 pd ]
- cs ht setbg 7 setpencolor 0 setpensize
- to bz :x2 :y2 :x3 :y3 :x4 :y4 make "x1 xcor make "y1 ycor repeat
- 140 pu rt 90 bk 30 pd arc -90 30 pu lt 90 fd 30 lt 90 ]
- 65 filled 0 [ arc 360 15 ] setxy 70 105 seth 270 repeat 4 [ pd fd
- 76 56 100 7 mbz 179 -120 200 -99 209 -80 206 -53 mbz 93 149 116 209
- cs ht setbg 7 setpencolor 0 setpensize 20 arc 360 50 pu setxy 65
- 180 200 180 146 bz 180 92 162 78 171 33 bz 225 200
- [ pd fd 100 pu bk 100 rt 90 fd 35 lt 90 ] home pu fd 80 lt 90 fd 60 repeat 2 [
- filled 0 [ arc 360 30 ] back 330 ]
- ht setpencolor 0 setbg 7 cs setpensize 20 repeat 7
- 185 -211 162 -222 bz 110 -245 35 -264 23 -234 bz 20 -215 -5 -206 -9 -154 bz -17 -70
- 7 setpensize 8 pu fd 50 pd bk 90 rt 90 fd 30 pu home rt 90 fd 30 pd fd 50 pu bk
- 80 arc 270 80 lt 90 fd 45 lt 90 fd 30 filled 7 [ arc 360 10 ]
- setpensize 1 ht cs setbg 7 filled [92 4 37] [ arc 360 100 ] setpencolor
- 190 25 pu setxy -100 30 seth 45 pd arc -190 25 pu setxy 0 150 seth 170
- 60 rt 85 fd 50 pu fd 20 pd arc 360 20 pu setxy 100 30 seth -45 pd arc
- [ setxy (110*(cos #*9)) (70*(sin #*9)) ] pu setxy 0 70 pd rt 15 fd
- cs ht setbg 7 setpencolor 0 pu setpensize 8 setxy 110 0 pd repeat 40
- filled 8 [ arc 360 17 ] pu setxy -40 8 pd filled 8 [ arc 360 17 ]
- pd arc 20 190 pu setxy 40 8 pd setpalette 8 [100 27 0] setpencolor 8
- pd filled (list (xcor+70)%100 (ycor-19)%100 (xcor+ycor-20)%100) [ bz 220 -215
- 21 0 seth 55 f [5 69 28] setxy -34 18 seth -56 f [95 44 13] setxy 34 18 seth
- 22 f [0 54 82] setxy -32 36 seth -23 f [80 2 30] setxy 32 36 seth -11 f
- 90 fd 20 rt 20 fd 10 seth -91 repeat 10 [ fd 3 lt 9 ] fd 20]
- [39 38 67] setpencolor 7 setxy 0 190 filled 7 [ seth
- fd 44 pd rt 90 fd 150 pu ] end cs ht setbg 7 pu setx -21 lt 90 f [99 72 7] setxy
- pu setxy 156 -32 pd filled 0 [arc 360 8] mbz 114 -175 126 -190 129 -198 170 -198 bz 205 -198
- to f :c setpencolor :c filled :c [ pd fd 150 lt 90 pu bk 44 arc 212 44 rt 212
- 292 152 292 120 bz 292 70 234 60 235 -12 bz 235 -84 270 -84 229 -194 bz 220 -215
- 4 [ fd 14 rt 90 fd 14 lt 90 fd 14 lt 90 ]]
- 8 [ arc 360 20 ] pu fd 50 ] back 118 lt 90 fd 19 pd filled 8 [ repeat
- 90 fd 150 rt 90 fd 28 rt 90 fd 150 ] home pu fd 56 rt 90 repeat 4 [ pd filled
- cs setbg 7 setpensize 1 ht setpalette 8 [0 63 89] setpencolor 8 filled 8 [ fd 28 rt
- 80 rt 120 fd 50 rt 60 fd 53 lt 90 fd 20 rt 90 fd 80
- ht cs setbg 7 setpencolor 0 setpensize 10 pd fd 20 lt 90 fd 80
- make "c ((3*:t*:t)*(1-:t)) make "d (:t^3) setxy ((:x1*:a)+(:x2*:b)+(:x3*:c)+(:x4*:d))
- rt 120 fd 50 rt 60 fd 53 lt 90 fd 20 rt 90 fd 80 rt 90 fd 20 lt 90 fd
- :x4 :y4 end cs setpensize 4 ht pd fd 125 lt 90 pu bk 50 arc 180 50 pu setxy 159 -50
- rt 90 fd 120 setpalette 8 [100 0 50] setpencolor 8 filled 8 [ arc 360 50 ]
- setbg 7 setpensize 1 ht cs setpencolor [0 38 87] filled [0 38 87] [ arc 360 50 ] pu
Add Comment
Please, Sign In to add comment