花模様

 投稿者：hayashi  投稿日：2019年 1月30日(水)14時12分11秒
  しばっちさんどうもありがとうございます。
私はまだしばっちさんのようなおおがかり
なものは出来ないので小さいものを投稿して
いきます。

REM 花模様
LET LEFT   = -1
LET RIGHT  =  1
LET BOTTOM = -1
LET TOP    =  1
SET WINDOW LEFT, RIGHT, BOTTOM, TOP
SET AREA COLOR 1 ! 黒
PLOT AREA : LEFT,BOTTOM;RIGHT,BOTTOM;RIGHT,TOP;LEFT,TOP
SET LINE COLOR 7 ! ピンク
FOR T = 0 TO 2*PI STEP 0.01
   LET R = SIN(4*T) + 0.25*SIN(12*T) + 0.12*SIN(20*T) + 0.07*SIN(28*T)
   PLOT R * COS(T), R * SIN(T);
NEXT T
END
 

戻る