SET WINDOW 1,639,1,399 LET A=.3 LET B=.5 LET C=.6 LET D=.7 FOR X=1 TO 639 FOR Y=1 TO 399 LET C1=COS(X/100+ATN(3*(X/100)+COS(5*(X/100)))) LET C2=SQR(ABS(Y/100+ATN(3*(Y/100)+TAN(5*(Y/100))))) LET C=MOD( (C1+C2)*10 , 15 ) SET LINE COLOR C PLOT X,Y NEXT Y NEXT X END |
参照 | (仮称)十進BASICのホームページ 「やさしいコンピュータ CGワンダーランド」(日本放送協会) |