Advertisement
I
Gemini User's Manual
- - - - - - -
2080 FOR ANG = 0 TO
360
STEP 15
201:10 Rl = MIG.b.28/300
:100
R2
=
(ANG+150)'6.28i360
2110 XI = RAD'COSIRII+I0 : YI : RAD*SINIR11+10
~120
X2 = RADtCOSIR21+10 : Y2 = RAOtSINIR2)+10
2130
60SUB
4000
2140
~£XT
ANG
3000 REM SEND BIT
I~A6E
MAP TO PRINTER
3005 OPEN 4,4,:
3010
PRIHTI4, CHRSI27' "A" CHRSlb)
3020 FOR ROW = 0 TO 11
3025 PRINTI4,CHRS(27
1
:'k":CHRSll19):CHRS(1);
3050
FOR
COL =
1 TO 75
~055
FOR LL=I TO 5
3060
PRINTt4,CHRS(SITi.'.COL,ROW));
3065 NEXT lL
3070 NEXT
COL
3090 PRINTl4 , ••
3090 NEXT ROw
3100 FRINT.4 :
ClOSE4
3110 END
4000 REM DRAW A LINE FRO"
~l,Yl
TO X2,Y2
4010
XL
=
X2 - Xl
: VL
=
V2 - YI
4020 NX = ABSIXL.XFACI
I
NY
=
ABSIYL.VFAC)
4030 IF NX ( NY THEN NX
=
NY
4040 NS1 = INT(NX+l)
4050 DX = XL/NSZ
: DY
=
YL/NS%
4060
FOR I = I TO MSt
4070 Xl = Xl
+
DX
4080 GOSUB
5000
4090 NEXT I
4100 RETURN
: Vi =
Yl + DY
5000 REM PLOT A POINT AT XI,Vl
5010 XX = Xl • XFAC
: YY = YI
*
YFAC
5020 COL, : INT(XX)tl
5030 ROWI
=
INT(YY/bl
5040
XITI
=
INTIVY -
ROMl •
b) +
1
5050
BITIICOll,ROWX)
=
BITXICDL1.,ROW1)
OR
"ASK1IXITX)
S060 RETURN
Figure C-10 is the graphics program (refer to Figure 7-4) amended for the
Commodore computer.
188
• •
• •
• •
• •
• •
• •
• •
• •
•
I
• •
• •
•
Advertisement
