DIM BOX(32,4)

//初期化
RANDSET(0)

//画面設定
CH1 = G@SETUP(640 , 480 , 16 , 1)

LT = G3@LIGHTMAKE( 3 , 1.0, 1.0, 1.0 )
G3@ADD( LT , 0 )

FMB = 0
FOR I=0 TO 31
  FM = G3@FRMMAKESPHERE(2.0 , 32 , 32 )
  G3@FRMSETMCOLOR(FM , RANDF() , RANDF() , RANDF())
  G3@ADD( FM , FMB )
  IF I=0 THEN
    G3@FRMSETPOS( FM , 0 , 0 , 20.0 )
  ELSE
    G3@FRMSETPOS( FM , 4.0 , 0 , 0.0 )
  ENDIF
  G3@FRMSETLIGHTS( FM , 1 )
  G3@FRMSETROTAUTO( FM , RANDF(),RANDF(),RANDF() )
  BOX(I,0) = FM
  FMB = FM
NEXT

STIME=SYSTIME()/1000
LOOP
  //描画
  G@CHRCLEAR(CH1)
  G3@RENDER()
  CNT=CNT+1
  TIME=(SYSTIME()/1000)-STIME
  IF 5 < TIME THEN 
    G@PRINT(CH1,0,16,STR(CNT/TIME))
  ENDIF
  G@FLIP()
ENDLOOP