[$0E] >>301さん キタ━━(・∀・)━━!!!! 2002.12.18
2003.01.05
2003.01.26
PC-8001:j80 に戻る
←その13へ その15へ→

>>305-

>>313-

>>327- (擬似)circle がちょっとおかしいかも (2003.01.05)

■ 2003.01.26 追加

■ PC-8001用 (2003.01.26 追加)
・DATAは、1020~1470 のみ使用
・反転:40行 COLOR文, 180,435行 LINE文 をいじってください
10 WIDTH 80,25
30 DEFFNX(X)=X*PX:DEFFNY(Y)=Y*PY
40 CONSOLE0,25,0,1:COLOR7,0,1:PRINTCHR$(12)
50 C=220:D=150
70 PX=160/C:PY=100/D
100 GOSUB 160
110 GOSUB 400
140 GOTO 140
150 END
160 '
170 READ CL,Y0,X0,Y,X
180 LINE(FNX(X0),FNY(Y0))-(FNX(X),FNY(Y)),PSET,CL
190 X0=X:Y0=Y:READ Y,X
200 IF X<0 AND Y<0 THEN GOTO 170
210 IF X<=500 OR Y<=500 THEN GOTO 180
240 RETURN
400 '-- circle sub --
401 CX=16:W=2*3.14/CX
403 DIM RX(CX-1),RY(CX-1)
405 FOR T=0 TO (CX-1)
407  WT=W*(T+1):RX(T)=COS(WT):RY(T)=SIN(WT)
409 NEXT T
410 READ X,Y,CL,R,H
420 IF (X<1)+(Y<1) THEN 450
430 X0=FNX(X+R*H):Y0=FNY(Y)
431 FOR T=0 TO (CX-1)
433  X1=FNX(X+R*RX(T)*H):Y1=FNY(Y+R*RY(T))
435  LINE(X0,Y0)-(X1,Y1),PSET,CL
437  X0=X1:Y0=Y1
439 NEXT T
440 GOTO 410
450 RETURN

←その13へ PC-8001:j80 に戻る その15へ→