Listato per il basic del Commodore 128 che disegna in alta risoluzione le curve di alcune funzioni matematiche.
1060 graphic 0,1
1070 color 5,2: color 0,13: color 4,7
1080 sound 1,0,0:sound 2,0,0
1090 sound 3,0,0: vol 0
1100 print chr$(142)
1110 for a=1 to 8
1120 sprite a,0: next a
1140 graphic 1,1:color 1,2
1150 for x=0 to 320
1160 draw 1,x,199-(x*x/515)
1170 next x
1180 for x=0 to 320
1190 draw 1,x,199-(x*x/515) to x,199
1200 next x
1210 sleep 4
1220 color 1,14:scnclr
1230 for x=0 to 320
1240 y=rnd(1)*x/1.6
1250 draw 1,x,199-y to x,199
1260 next x
1270 sleep 4
1280 color 1,5:scnclr
1290 for x=0 to 320
1300 y=199-log(x/5+1)*47
1310 draw 1,x,y
1320 next x
1330 for x=0 to 320
1340 y=199-log(x/5+1)*47
1350 draw 1,x,y to x,199
1360 next x
1370 sleep 4
1380 color 1,8:scnclr
1385 for x=0 to 320
1390 draw 1,x,199-(99+cos(cos/180*(180+x*1.13))*99)
1410 next x
1420 for x=0 to 320
1430 y=99+(cos(cos/180*(180+x*1.13))*99)
1440 draw 1,x,199-y to x,199
1450 next x
1460 sleep 6
1470 graphic 0,1:color 4,7
1480 color 0,1:color 5,2
Torna indietro
