万華 三角

 投稿者:SECOND  投稿日:2011年 5月13日(金)07時02分13秒
  ! 万華 三角  ( ver.7.5.0 以降で動きます)
!-----------------------------------------
OPTION ARITHMETIC COMPLEX
SET WINDOW -1.1,1.1,-1.1,1.1
LET nn=50
DIM S(nn), R(nn), col(nn), A(nn), B(nn), C(nn), G(nn)

PICTURE tri(A,B,C)
   PLOT AREA: A;B;C
END PICTURE

SET DRAW mode notxor
RANDOMIZE
DO
   FOR i=1 TO nn
      LET S(i)=COMPLEX(RND-.5,RND-.5)
      LET R(i)=RND-.5
      LET col(i)=RND*9+1.5       !=ROUND( RND*9+1.5 )
      LET A(i)=COMPLEX(RND,RND)
      LET B(i)=COMPLEX(RND,RND)
      LET C(i)=COMPLEX(RND,RND)
      LET G(i)=(A(i)+B(i)+C(i))/3
   NEXT i
   LET t1=TIME
   IF 1< t1-t0 THEN LET t0=t1
   FOR θ=θ TO θ+3.4*PI STEP PI/32
      SET DRAW mode hidden
      CLEAR
      FOR i=1 TO nn
         SET AREA COLOR col(i)
         DRAW tri(A(i),B(i),C(i)) WITH SHIFT(-G(i))*ROTATE(θ*R(i))*SHIFT(re(S(i))+.1*SIN(.4*θ), MAX(-.5,im(S(i))+.5*SIN(θ)-.3))*SCALE((SIN(θ)+1)/3+1)
      NEXT i
      SET DRAW mode explicit
      LET t2=t1
      LET t1=TIME
      IF t1< t2 THEN LET t0=t0-86400
      LET t0=t0+.075
      WAIT DELAY t0-t1
      mouse poll x,y,mlb,mrb
      IF mrb=1 THEN STOP      !右クリック終了
   NEXT θ
LOOP

END
 

戻る