Computer
Graphics
Operation
Manual
-----------
TRS·BO
®
----------
SUBROUTINE PTTTST
PAINT
WITH
TILES
TEST
LOGICAL
A(6S),B(4),IS(16),MSG(23)
DATA
A(1)/S/
X
DATA
A(2),A(3),A(4),A(S)/X'41',X'22',X'14',X'~S'/
DATA
A(6 ) , A( 7 ) , A(S ) , A( 9 )
/x
'
14
' , X'
22
' , X' 41 ' , X'
~ ~
, /
FINE
HORIZONTAL
LINES
DATA
A(1~),A(ll),A(12)/2,X'FF',X'~~'/
MEDIUM
HORIZONTAL LINES
DATA
A(13)/4/
DATA
A<14 ) , A
<1S
) , A<16 ) , A
<1
7 )
/X
'
FF'
, X'
FF'
,
x'
~~
,,X'
~
~
,/
DIAGONAL
LINES
DATA
A<1S
)/4/
DATA
A(19)
,A(2~)
,A(21)
,A(22)/X'~3'
,X'~C'
,X'3~'
,X'C~'/
LEFT
TO
RIGHT
DIAGONALS
DATA
A(23)/4/
DATA
A(24),A(2S),A(26),A(27)/X'C~',X'3~',X'~C',X'~3'/
FINE
VERTICAL LINES
DATA
A(2S),A(29)/1,X'AA'/
MEDIUM
VERTICAL LINES
DATA
A(3~),A(31)/1,X'CC'/
COARSE
VERTICAL LINES
DATA
A(32),A(33)/1,X'F~'/
ONE
PIXEL
DOTS
DATA
A(34),A(3S),A(36)/2,X'22',X'~~'/
TWO
PIXEL
DOTS
DATA
A(37),A(3S),A(39)/2,X'99',X'66'/
PLUSES
DATA
A( 4
~
) , A(41 ) , A(
42
) , A( 43 )
/3
, X' 3C' , X' 3C ' , X' FF ' /
SOLID
DATA
A(44),A(4S)/1,X'FF'/
BROAD
CROSS
HATCH
DATA
A(46),A(47),A(4S),A(49)/3,X'92',X'92',X'FF'/
THICK
CROSS
HATCH
DATA
A(S~)/4/
DATA
A(S1),A(S2),A(S3),A(S4)/X'FF',X'FF'
,X'DB',X'DB'/
FINE
CROSS
HATCH
DATA
A(S4),A(SS),A(S6)/2,X'92'
,X'FF'/
ALTERNATING PIXELS
DATA
A(S7),A(SS),A(S9)/2,X'SS',X'AA'/
DATA
B(1),B(2),B(3),B(4)/1,~,1,X'FF'/
DATA
IS(1),IS(2),IS(3),IS(4),IS(S),IS(6)/1,1~,13,1S,23,2S/
DATA
IS(7),IS(S),IS(9),IS(l~),IS(11)/3~,32,34,37,4~/
DATA
IS(12),IS(13),IS(14),IS(1S),IS(16)/44,46,S~,S4,S7/
CALL
CLS
ENCODE(MSG,1~~)
---------ltadl8l11aell---------
-141-