ACLS:XON WIIU:FN$="GRP1:OCHA_FUDE" XSCREEN 6,6,6 DISPLAY 1 IF CHKFILE(FN$) THEN LOAD FN$,0 ELSE GCLS #WHITE IF BUTTON() AND #B THEN FL=1:BEEP 70:WAIT DB=8-FL*4:DC=#BLACK WHILE 1 PX=TX:PY=TY TOUCH 0 OUT TT,TX,TY DX=TX-PX:DY=TY-PY B=BUTTON() B2=BUTTON(2) BB=B2 AND 63 IF BB THEN DB=BB R=MIN(TT,30-FL*20)/(SQR(DX*DX+DY*DY)+FL*24+6)*(DB+1)*(FL*9+1) BL=B AND #L COL=!BL*DC-!!BL IF TT>1 THEN GFLINE PX,PY,TX,TY,R,COL ELSEIF B==B2 && B2==#L THEN DB=0 ENDIF IF B AND #L THEN IF B AND #R THEN GCLS #WHITE IF B AND #X THEN SAVE FN$ IF B AND #Y THEN LOAD FN$,0 ENDIF VSYNC WEND DEF GFLINE X1,Y1,X2,Y2,R,C VAR A,B,I,J,M,X,Y M=MAX(ABS(X2-X1),ABS(Y2-Y1)) FOR I=1 TO M STEP R/2 X=X1+(X2-X1)/M*I Y=Y1+(Y2-Y1)/M*I FOR J=1 TO R*R*2+4 A=RNDF()*PI()*2 B=(RNDF()+RNDF()+RNDF())*R/3 GPSET X+COS(A)*B,Y+SIN(A)*B,C NEXT NEXT END |
RETURN (プチコン3号/BIGプログラムのページにもどる) RETURN *MAIN (トップページにもどる)