REMREM [Moire de expansion]REM Ver. 2015/12/01REM 左ドラッグしながら上にマウスを動かすと格子ピッチが縮小されるREM ドラッグしないで上に動かすと格子が左右に微小に回転するREM
SET WINDOW0,1,0,1
SET TEXT font "",7LET dt=.01
! 下地となる文字模様画像作成
INPUT PROMPT "Character":c$FOR x=0 TO 1 STEP dt
FOR y=0 TO 1 STEP dt
PLOT TEXT ,AT x,y:c$ ! 拡大したい文字
NEXT y
NEXT x
! このBasicファイルと同じ場所に下地となる文字模様画像を保存
gsave "moire.png"
! 画面のピッチに合わせて変更のこと(BASIC画面801×801では 6 が丁度良い).
SET LINEwidth6
pause
DO
mouse poll mx,my,left,right
SET DRAW mode hidden
CLEAR
gload "moire.png"IF left=1THENLET e=1+my/10LET sx=mx/100FOR x=0 TO e STEP dt*e
PLOT LINES: x+sx,0; x+sx,1NEXT x
FOR y=0 TO e STEP dt*e
PLOT LINES: 0,y+sx; 1,y+sx
NEXT y
ELSELET sy=my/100LET sx=SIN((mx-.5)*PI/10)
FOR x=0 TO 1 STEP dt
PLOT LINES: x+sy,0; x+sy+sx,1NEXT x
FOR y=0 TO 1 STEP dt
PLOT LINES: 0,y; 1,y-sx
NEXT y
ENDIF
SET DRAW mode explicit
WAIT DELAY .1LOOP UNTIL right=1END