▽とろ☆ろぐ ●06/25 14:13 グラフィックで3DHAT2024/06/23N88互換BASIC--------------------------------------20 CLS30 X1=240 DIM D(1,255):FOR L=0 TO 255:D(0,L)=-1:D(1,L)=-1:NEXT50 PI=3.1460 FOR Y=-180 TO 180 STEP 4:FOR X=-180 TO 180 STEP 480 R=PI/180*SQR(X*X+Y*Y):Z=100*COS(R)-30*COS(3*R)100 V=INT(116+X/2+(16-Y/2)/2):W=INT((130-Y/2-Z)/2)120 IF (V255) THEN GOTO 160130 IF D(0,V)=-1 THEN GOTO 500140 IF W=D(1,V) THEN GOTO 800160 NEXT X:NE