Advertisement
I ·
Gemini User's Manual
- - - - - - - -
3010 Xl=X2-Xl:YL=Y2-Yl
3020 NX=ABS(XLtXFAC):SY=ABS(YLlYFAC)
3030
IF
NXCNY THEN
NX=N~
3040
NS4=INT(~X+l)
3050 OX=XL/NSZ:DV=VL/NSZ
3060 FOR
1=1 TO NSZ
3070
Xl=Xl+0X:~1=Vl+DY
3080
GOSUB 4000
3090 NEXT
!
3100 RETURN
4000
RE~
PLOT A POINT AT XI,V!
4010 XX=XltXFAC:VY=VltVFAC
4020 COL=!NT(XX)+l
4030
RQW=INT(YV/61
4040 XIT7.=INT(YY-(6tRDW))+!
4050 BIT1.(CDL.ROW1=BITZ(COL.RDW) OR MASK1.(XITZ)
4060 RETURN
Figure 7-4b.
This continuation of Figure 7-4a is the rest of one
approach to using bit-image graphics.
• •
• •
•
• •
• •
• •
• •
•
• •
Figure 7-5.
Using the BASIC program provided in Figure 7-4, you can
•
obtain these results.
CONCLUSION
112
The limits on Gemini's ability to produce readable text and graphic
images are limited only by your imagination, your computer
system, and your ability to properly use the functional command
codes.
When it comes to "imagination" and a good computer
system, you stand on your own ground. We can help you master
the function codes, as demonstrated in Chapter 9.
• •
• •
• •
Advertisement
