Barnsley's Fern

 投稿者:しばっち  投稿日:2015年10月28日(水)22時17分42秒
 
!'Barnsley's Fern
RANDOMIZE
SET WINDOW -5,5,0,10
SET POINT STYLE 1
FOR I=1 TO 1000000
   SELECT CASE INT(RND*4)
   CASE 0
      LET XX=.85*X+.04*Y
      LET YY=-.04*X+.85*Y+1.6
   CASE 1
      LET XX=-.15*X+.28*Y
      LET YY=.26*X+.24*Y+.44
   CASE 2
      LET XX=.2*X-.26*Y
      LET YY=.23*X+.22*Y+1.6
   CASE 3
      LET XX=0
      LET YY=.16*Y
   END SELECT
   PLOT POINTS:XX,YY
   LET X=XX
   LET Y=YY
NEXT I
END
 

戻る