1 ! Graphics Test
2 ! - Main -
3 !
10 PEN 1
11 X_left=-2
12 X_right=15
13 Y_bottom=-2
14 Y_top=2
15 X_tick=1
16 Y_tick=1
20 !
21 !
30 VIEWPORT 10,50,50,80 !#1
31 GOSUB Frame1
32 VIEWPORT 60,100,50,80 !#2
33 GOSUB Frame1
34 VIEWPORT 10,100,15,40 !#3
35 GOSUB Frame1
40 !
41 STOP
180 ! - Sub FRAME -
190 Frame1: FRAME
200 WINDOW X_left,X_right,Y_bottom,Y_top
210 AXES X_tick,Y_tick,0,0,10,3,3
220 MOVE 10,Y_top
230 DRAW 10,Y_bottom
240 LORG 3
250 MOVE X_left,Y_top
260 CSIZE 1
270 LABEL "VIEW PORT"
280 Flg=1
|
290 FOR I=-2 TO 100 STEP .1
300 IF Flg=1 THEN
310 PLOT I,SIN(I),2
320 ELSE
330 Flg=0
340 END IF
350 PLOT I,SIN(I)
360 NEXT I
370 CSIZE 1
380 LORG 1
390 FOR Loop=X_left TO X_right STEP X_tick
400 MOVE Loop,0
410 LABEL Loop
420 NEXT Loop
430 LORG 7
440 FOR Loop=Y_bottom TO Y_top STEP Y_tick
450 MOVE 0,Loop
460 LABEL Loop
470 NEXT Loop
480 !
490 ! - SOFT CLIP -
500 CLIP X_left-.5,X_right+.5,Y_bottom-.5,Y_top+.5
510 FRAME
520 LORG 3
530 MOVE X_left-.5,Y_top+.5
540 LABEL "SOFT CLIP"
550 CSIZE 2
560 FOR I=1 TO 9
570 MOVE 10,Y_top
580 LORG I
590 LABEL I
600 NEXT I
610 RETURN
620 END
|