[GRAPH01] SAMPLE
10 CLS 3
20 FOR KAKU=0 TO 360 STEP 5
30 TH=0.0174532*KAKU
40 D=50*SQR(2-2*COS(TH))
50 X=50*COS(TH)+520
60 Y=50*SIN(TH)+200
65 I%=KAKU MOD 7
67 IF I% =0 THEN I%=7
70 CIRCLE (X,Y),D,I%
80 NEXT KAKU
95 ''Out of Memory over 32767 BYTE = 251*301*3+1+&H36:SIZE=BYTE/2
97 BYTE = 251*301*3+1+&H36:SIZE%=BYTE/8+8
100 DIM G%(SIZE%),GG%(SIZE%),GGG%(SIZE%),GGGG%(SIZE%)
110 AD#=VARPTR(G%(0)):DEF SEG=AD#
120 GET (350,50)-(600,350),G%
130 CLS :PUT (50,50,20),G%,PSET
135 ''BYTE = 101*301*3+&H36
140 BSAVE "polar.bmp",0,BYTE
900 END
20 から 80 で、極座標を使って円群で曲線を描いています。
120 で画像をメモリにGETし、130で場所を変えて再度表示し、
140 でBMPファイルとしてディスクに保存しています。