home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
mbug
/
mbug120.arc
/
PASCAL.LBR
/
TURBOPCG.DOC
< prev
next >
Wrap
Text File
|
1979-12-31
|
4KB
|
100 lines
MicroBeσ Turb∩ Pasca∞ Pcτ Handler
=================================
Phi∞ Parton¼ Octobe≥ 1985.
Description
-----------
TURBOPCG.PA╙á contain≤á ßá se⌠á oµá pasca∞á routine≤á t∩á bσ ì
INCLUDEΣá iεá thσ user'≤ program«á Thesσ routine≤ initializσá thσ ì
screeεá fo≥ graphics¼á se⌠ selecteΣ pixel≤ anΣ maintaiεá thσá Pcτ ì
ram¼á hencσ givinτ graphic≤ capabilitie≤ t∩ Microbeσ Turb∩ Pasca∞ ì
users.
OverView
--------
Thσ routine≤ worδ oε thσ 80x2┤ screeε forma⌠ givinτ ß screeε ì
resolutioεá oµ 640x26┤ pixels¼á witΦ ß Pcτ characte≥ sizσ oµ 8x1▒ ì
pixel≤á a≤á thσ las⌠ ╡ byte≤ oµ ß pcτ arσ no⌠ displayeΣá oεá thi≤ ì
format«á Bu⌠á the∙á arσá useΣá b∙á thσá routine≤á t∩á storσá somσ ì
internal information.
Thσ handle≥ WIL╠ NO╘ overwritσ tex⌠ oε thσ screen¼ n∩ error≤ ì
wil∞ occur¼á thσ pixe∞ jus⌠ won'⌠ bσ set«á ╔ chosσ t∩ d∩ thi≤á t∩ ì
minimise Pcg usage, allowing more graphics on the screen.
TURBOPC╟ contain≤ onl∙ thσ rudiment≤ oµ ß pcτ handler¼ iσ n∩ ì
equivalent≤á t∩á MicroworlΣ basic'≤ Rese⌠ o≥ Invert«á ╔á hopσá t∩ ì
extenΣá i⌠ sometimσ iε thσ futurσ anΣ woulΣ welcomσ yo⌡ comments¼ ì
criticisms anΣ ROUTINES!
Thσá codσá i≤á fa≥á froφá perfect¼á confusinτá anΣá sparsel∙ ì
documented¼á ╔ aφ hopinτ fo≥ somσ inpu⌠ beforσ ╔ d∩ an∙ more«á Iµ ì
you want more information just ask.
TURGRAF
-------
╔ als∩ supplieΣ ß simplσ graphic≤ package¼á TURGRAF.PA╙á anΣ ì
TURGRAF.DOC«á Thi≤á contain≤á ß linσ generatinτ routinσá anΣá thσ ì
rudiments of a graphics system.
OPENGRAF
SETWINDOW
SETVIEWPORT
MOVETO
DRAWTO
See TURGRAF.DOC for more info.
USING TURBOPCG
--------------
Thσá sourcσá codσ contain≤ somσ declaratioε statement≤á tha⌠ ì
shoulΣ bσ globa∞ t∩ thσ program«á Thereforσ i⌠ shoulΣ bσ includeΣ ì
between your declartion statements and program or procedures.
The sequence of calls to use the handler should be...
1) InitBee; {No Parameters}
Thi≤á fill≤á thσá screeεá witΦá 'softºá blanks¼áá iσá ßá pcτ ì
character set as a blank. It also initializes some variables.è
2) User calls to SetPixel.
SetPixel(x,y); {Paramters are integers passed by value }
or SetPixel(10,12); {hence constants are allowed.}
Note║ Thσ pixel≤ arσ numbe≥ 0..63╣ anΣ 0..26│ witΦ origiε a⌠ ì
lowe≥ lef⌠ hanΣ corne≥ AN─ tha⌠ thσ routine≤ don'⌠ checδ tha⌠ thσ ì
parameter≤ arσ lega∞ values« I⌠ woulΣ bσ ver∙ eas∙ t∩ inser⌠ sucΦ ì
ß checδ though«á ╔ didn'⌠ becausσ ╔ wrotσ thi≤ t∩ g∩ witΦ TURGRA╞ ì
which does all such checking.
3) At the end of graphics make a call to...
DisplayWorkCell; {No parameters}
Thσá reasoεá fo≥á thi≤ i≤ ß bi⌠ comple° anΣ arise≤á ou⌠á oµá ε ì
effor⌠ oµ minσ t∩ speeΣ u≡ thσ plotting«á Iµ yo⌡ don'⌠ cal∞á thi≤ ì
procedurσá i⌠á i≤ possiblσ somσ pixel≤ yo⌡ selecteΣ won'⌠ bσá se⌠ ì
after your plotting has finished.
Thσ Booleaε variablσ GrafOδ i≤ useΣ t∩ indicatσ iµ therσ arσ ì
an∙ morσ freσ PCGs¼á TRU┼ iµ so« Iµ GrafOδ ╜ FALS┼ anΣ yo⌡ makσ ß ì
cal∞ t∩ SetPixe∞ n∩ actioε t∩ se⌠ thσ pixe∞ wil∞ bσ taken¼ iσ thσ ì
routines will ignore any subsequent calls to SetPixel.
BUGS
----
Iµ yo⌡ finΣ an∙ pleasσ tel∞ me!!
╔á wrotσá thi≤ abou⌠ ╢ month≤ ag∩ useΣ i⌠ ß couplσ oµá time≤ ì
anΣ forgo⌠ abou⌠ it¼ s∩ i⌠ ha≤ no⌠ beeε wel∞ tested.
Thσ Pcτ routine≤ havσ n∩ wa∙ oµ knowinτ wherσ yo⌡ placσ tex⌠ ì
oεá thσ screen«á Iµ yo⌡ overwritσ an∙ graphic≤ thσá routine≤á arσ ì
likel∙ t∩ thinδ tha⌠ pcτ cha≥ yo⌡ eraseΣ i≤ stil∞ requireΣ anΣ i⌠ ì
won'⌠ bσ recovered¼á hencσ yo⌡ loosσ somσ pcτ memory« Therσ arσ ß ì
couplσá oµá way≤á arounΣá thi≤á bu⌠á unfortunatel∙á the∙á involvσ ì
routine≤ ╔ haven'⌠ writteε yet.
GOOD LUCK!
----------
Pleasσá don'⌠á hestitatσ t∩ contac⌠ mσ viß thσ BBS≤á iµá yo⌡ ì
have any queries, complaints or abuse.
Phil Parton.