MATH GIRLS
ソースリスト１ タイトル：蓮の花
ソースリスト
OPTION ANGLE DEGREES
SET WINDOW -20,20,-20,20
SET COLOR 17
PLOT AREA :-20,20;-20,-20;20,-20;20,20
OPTION BASE 0
PICTURE happa
DIM x(360),y(360)
FOR t=1 TO 360 STEP 1
LET x(t)=COS(t)*ABS(COS(t)+1)*5
LET y(t)=SIN(t)*ABS(COS(t)+1)*5
NEXT t
MAT PLOT AREA :x,y
END PICTURE
SET AREA COLOR 11
DRAW happa WITH SHIFT(-40,15) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(50,100) *SCALE(0.3,0.15) *ROTATE(180)
SET AREA COLOR 11
DRAW happa WITH SHIFT(-20,-30) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-40,0) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 11
DRAW happa WITH SHIFT(40,90) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-20,50) *SCALE(0.35,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-6,60) *SCALE(0.5,0.15)
SET AREA COLOR 11
DRAW happa WITH SHIFT(35,-110) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(22,-110) *SCALE(0.5,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-15,-60) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 11
DRAW happa WITH SHIFT(-10,25) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(40,80) *SCALE(0.3,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-30,-50) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-50,30) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 11
DRAW happa WITH SHIFT(30,20) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-10,0) *SCALE(0.35,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-16,10) *SCALE(0.5,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(55,-100) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 11
DRAW happa WITH SHIFT(32,-90) *SCALE(0.5,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-25,-50) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(40,30) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-50,-100) *SCALE(0.3,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(10,30) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(40,0) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 11
DRAW happa WITH SHIFT(-20,-100) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(20,-50) *SCALE(0.35,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(60,20) *SCALE(0.5,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-35,110) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(0,110) *SCALE(0.5,0.15)
SET AREA COLOR 11
DRAW happa WITH SHIFT(15,60) *SCALE(0.4,0.15) *ROTATE(180)
DRAW happa WITH SHIFT(10,-25) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-40,-80) *SCALE(0.3,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(30,50) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(50,-30) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-30,-20) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(10,0) *SCALE(0.35,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(16,-10) *SCALE(0.5,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-55,100) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-32,90) *SCALE(0.5,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(25,50) *SCALE(0.4,0.15) *ROTATE(180)
DRAW happa WITH SHIFT(-25,35) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(50,60) *SCALE(0.3,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(0,-50) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-30,30) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-10,0) *SCALE(0.4,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-12,100) *SCALE(0.35,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-30,110) *SCALE(0.3,0.1)
SET AREA COLOR 10
DRAW happa WITH SHIFT(40,-60) *SCALE(0.4,0.15) *ROTATE(180)
SET AREA COLOR 10
DRAW happa WITH SHIFT(32,-90) *SCALE(0.5,0.15)
SET AREA COLOR 10
DRAW happa WITH SHIFT(-25,-50) *SCALE(0.4,0.15) *ROTATE(180)
PICTURE hana
DIM x(360),y(360)
FOR t=0 TO 180 STEP 1
LET x(t)=1.2*COS(t)*ABS(SIN(8*t))
LET y(t)=1.2*SIN(t)*ABS(SIN(8*t))
NEXT t
FOR t=180 TO 360 STEP 1
LET x(t)=0.8*COS(t)*ABS(SIN(8*t))
LET y(t)=0.8*SIN(t)*ABS(SIN(8*t))
NEXT t
MAT PLOT AREA :x,y
END PICTURE
SET AREA COLOR 24
DRAW hana WITH SCALE(4,1.5)
SET COLOR 6
DRAW hana WITH SCALE(2,0.75)
SET AREA COLOR 24
DRAW hana WITH SHIFT(0,-10) *SCALE(4,1.5)
SET COLOR 6
DRAW hana WITH SHIFT(0,-21.5) *SCALE(1.5,0.7)
SET AREA COLOR 24
DRAW hana WITH SCALE(4,1.5) *SHIFT(2,9.5)
SET COLOR 6
DRAW hana WITH SCALE(2,0.75) *SHIFT(2,9.5)
SET AREA COLOR 24
DRAW hana WITH SCALE(4,1.5) *SHIFT(-10,12)
SET COLOR 6
DRAW hana WITH SCALE(2,0.75) *SHIFT(-10,12)
SET AREA COLOR 24
DRAW hana WITH SCALE(4,1.5) *SHIFT(-12,-9)
SET COLOR 6
DRAW hana WITH SCALE(2,0.75) *SHIFT(-12,-9)
SET AREA COLOR 7
DRAW hana WITH SCALE(4,1.5) *SHIFT(15,-12)
SET COLOR 6
DRAW hana WITH SCALE(2,0.75) *SHIFT(15,-12)
SET AREA COLOR 7
DRAW hana WITH SCALE(4,1.5) *SHIFT(15,15)
SET COLOR 6
DRAW hana WITH SCALE(2,0.75) *SHIFT(15,15)
SET AREA COLOR 24
DRAW hana WITH SCALE(4,1.5) *SHIFT(8,-5)
SET COLOR 6
DRAW hana WITH SCALE(2,0.75) *SHIFT(8,-5)
SET AREA COLOR 7
DRAW hana WITH SCALE(4,1.5) *SHIFT(-10,2)
SET COLOR 6
DRAW hana WITH SCALE(2,0.75) *SHIFT(-10,2)
END