ACLS:FN$="GRP1:OCHA_FUDE" XSCREEN 2 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 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*12+4)*(DB+1)*(FL*2+.25) 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 VAR O=R*R*2+2,P=.5/PI(),Q=2/R 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 O A=RNDF()/P B=Q/(RNDF()+RNDF()) GPSET X+COS(A)/B,Y+SIN(A)/B,C NEXT NEXT END |
RETURN (プチコン3号/BIGプログラムのページにもどる) RETURN *MAIN (トップページにもどる)