五輪招致エンブレム

OPTION ANGLE DEGREES

SET WINDOW -20,20,-20,20

OPTION BASE 0

PICTURE hana1

   DIM x(360),y(360)

   FOR t=0 TO 360 STEP 1

      LET x(t)=2*COS(t)*ABS(SIN(2.5*t))

      LET y(t)=2*SIN(t)*ABS(SIN(2.5*t))

   NEXT t

   MAT PLOT AREA :x,y

END PICTURE

SET AREA COLOR 4

DRAW hana1 WITH SHIFT (2.8,3.5)

SET AREA COLOR 6

DRAW hana1 WITH SHIFT (-2.5,3.5)

SET AREA COLOR 5

DRAW hana1 WITH SHIFT (0,-3.5)

SET AREA COLOR 20

DRAW hana1 WITH SHIFT (-3.5,-1)

SET AREA COLOR 18

DRAW hana1 WITH SHIFT (3.5,-0.8)

PICTURE hana2

   DIM x(360),y(360)

   FOR t=0 TO 360 STEP 1

      LET x(t)=1.5*COS(t)*ABS(SIN(2.5*t))

      LET y(t)=1.5*SIN(t)*ABS(SIN(2.5*t))

   NEXT t

   MAT PLOT AREA :x,y

END PICTURE

SET AREA COLOR 4

DRAW hana2 WITH SHIFT (-1.5,7.3)

DRAW hana2 WITH SHIFT (2.8,6.5)

DRAW hana2 WITH SHIFT (5.8,0.5)

SET AREA COLOR 6

DRAW hana2 WITH SHIFT (0.3,5)

DRAW hana2 WITH SHIFT (6,3.3)

DRAW hana2 WITH SHIFT (-4.25,6.25)

DRAW hana2 WITH SHIFT (-6.25,4.5)

SET AREA COLOR 5

DRAW hana2 WITH SHIFT (-5,-3.5)

DRAW hana2 WITH SHIFT (-7,1)

SET AREA COLOR 20

DRAW hana2 WITH SHIFT (-5,1.3)

DRAW hana2 WITH SHIFT (0,-5.5)

DRAW hana2 WITH SHIFT (4.5,-3.8)

SET AREA COLOR 18

DRAW hana2 WITH SHIFT (-2.5,-4.5)

DRAW hana2 WITH SHIFT (2.5,-4.5)

DRAW hana2 WITH SHIFT (-6.3,-1.5)

PICTURE hana3

   DIM x(360),y(360)

   FOR t=0 TO 360 STEP 1

      LET x(t)=0.8*COS(t)*ABS(SIN(2.5*t))

      LET y(t)=0.8*SIN(t)*ABS(SIN(2.5*t))

   NEXT t

   MAT PLOT AREA :x,y

END PICTURE

SET AREA COLOR 4

DRAW hana3 WITH SHIFT (1,7.8)

DRAW hana3 WITH SHIFT (5,5.5)

DRAW hana3 WITH SHIFT (6.3,-2)

DRAW hana3 WITH SHIFT (0,3)

SET AREA COLOR 6

DRAW hana3 WITH SHIFT (-3,1)

SET AREA COLOR 5

DRAW hana3 WITH SHIFT (-7.65,2.8)

DRAW hana3 WITH SHIFT (2,0.8)

SET AREA COLOR 18

DRAW hana3 WITH SHIFT (-5.5,3.25)

END