Grafika

Taką trójwymiarową grafikę, wraz z programem (BASIC — wersja BBC) można było zobaczyć podczas seminarium brytyjskiej firmy 3SL poświęconemu komputerowemu wspomaganiu nauczania. Odbywało się ono w ostatnich dniach lipca br. w Instytucie Maszyn Matematycznych w Warszawie, a towarzyszył ma pokaz systemu mikrokomputerowego firmy BBC. Można było także indywidualnie popracować na sprzęcie, zapoznając się z możliwościami systemu oraz interesującymi programami edukacyjnymi.

20 MODE 0:VDU19,0,4;0; 50 XM=640.1
50 XM=640.1
60 ZM=800
70 YM=700
80 TILT=20
90 ST=SIN(RAD(TILT)):CT=COS(RAD(TILT))
100 VDU29,640;300;
110 FOR X=-XM TO 0 STEP 4
120 FOR Y=-ZM TO ZM STEP 16
130 SCREENY=Y*ST+CT*YM*FNsin(X,Y)
140 IF Y=-ZM THEN MINY=SCREENY : MAXY=SCREENY
150 IF SCREENY>MAXY THEN MAXY = SCREENY:PROCPLOT
160 IF SCREENY<MINY THEN MINY = SCREENY:PROCPLOT
170 NEXT Y
180 NEXT X
190 VDU5:MOVE 0,1050
200 SAVE"RIPPLE" 3000 8000 FFFF3000 FFFF3000 202 END
210 DEFPROCPLOT
220 PLOT69, X, SCREENY: PLOT 69,-X,SCREENY
230 ENDPROC
240 :
250 DEFFNsin(X,Y)
260 KR=.02*SQR(X*X + Y * Y)
270 =SIN(KR)^2/KR