; February 10, 1978  4:18 PM

	.TITL	ZPFONT

; outgoing
	.BEXT	ZPfont,brushFont,cursorTable

;************ statics:

	.SREL
ZPfont:		ZPfontC
brushFont:	BfontC		; to be updated
cursorTable:	curTableC	; to be updated



;************ brush & symbol font

	.NREL

ZPfontC:	ZPfontEnd-.	; size of font data block
		BfontC-.+1	; relative pointer
curTableC: 0
	deleteCur-curTableC
	makeCur-curTableC
	cyclicCur-curTableC
	brushCur-curTableC
	dashCur-curTableC
	selectCur-curTableC
	mTransf2Cur-curTableC
	cTransf2Cur-curTableC
	mTransf4Cur-curTableC
	cTransf4Cur-curTableC
	mTransf6Cur-curTableC
	cTransf6Cur-curTableC
	textCur-curTableC
	blackCur-curTableC
	redCur-curTableC
	greenCur-curTableC
	blueCur-curTableC
	cyanCur-curTableC
	magentaCur-curTableC
	yellowCur-curTableC
;
;
;
	20
	20
BfontC:	dot1-.	; round dot brush
	dot2-.
	dot4-.
	dot8-.
	dot1-.	; square dot brush
	dot2-.
	sqr4-.
	sqr8-.
	dot1-.	; horizontal bar brush
	hbar2-.
	hbar4-.
	hbar8-.
	dot1-.	; vertical bar brush
	vbar2-.
	vbar4-.
	vbar8-.
	line1-.	; line thickness symbols
	line2-.
	line3-.
	line4-.
	deleteSym-.	; menu & cursor symbols
	makeSym-.
	cyclicSym-.
	brushSym-.
	dashSym-.
	selectSym-.
	mTransf2Sym-.
	cTransf2Sym-.
	mTransf4Sym-.
	cTransf4Sym-.
	mTransf6Sym-.
	cTransf6Sym-.
	textSym-.
	blackSym-.
	redSym-.
	greenSym-.
	blueSym-.
	cyanSym-.
	magentaSym-.
	yellowSym-.

;			*** round dot font
	010000	;1x1
dot1:	41
	3001	;i.e. <6,,1> [<skip lines,,scan lines>]
;
	014000	;2X2
	014000
dot2:	41
	3002	;i.e. <6,,2>
;
	014000	;4X4
	036000
	036000
	014000
dot4:	41
	2404	;i.e. <5,,4>
;
	036000	;8X8
	077000
	177400
	177400
	177400
	177400
	077000
	036000
dot8:	41
	1410	;i.e. <3,,8>
;
;			*** square dot font
	036000	;4X4
	036000
	036000
	036000
sqr4:	41
	2404	;i.e. <5,,4>
;
	177400	;8X8
	177400
	177400
	177400
	177400
	177400
	177400
	177400
sqr8:	41
	1410	;i.e. <3,,8>
;
;			*** horizontal bar font
	014000
hbar2:	41
	3001	;i.e. <6,,1>
;
	036000
hbar4:	41
	3001	;i.e. <6,,1>
;
	177400
hbar8:	41
	3001	;i.e. <6,,1>
;
;			*** vertical bar font
	010000
	010000
vbar2:	41
	3002	;i.e. <6,,2>
;
	010000
	010000
	010000
	010000
vbar4:	41
	2404	;i.e. <5,,4>
;
	010000
	010000
	010000
	010000
	010000
	010000
	010000
	010000
vbar8:	41
	1410	;i.e. <3,,8>
;
;
	000010
	000020
	000020
	000040
	000040
	000100
	000100
	000200
	000200
	000400
	000400
	001000
	001000
	002000
	002000
	004000
line1:	41
	20	;i.e. <0,,16>
;
;
	000030
	000060
	000060
	000140
	000140
	000300
	000300
	000600
	000600
	001400
	001400
	003000
	003000
	006000
	006000
	014000
line2:	41
	20	;i.e. <0,,16>
;
;
	000074
	000170
	000170
	000360
	000360
	000740
	000740
	001700
	001700
	003600
	003600
	007400
	007400
	017000
	017000
	036000
line3:	41
	20	;i.e. <0,,16>
;
;
	000377
	000776
	000776
	001774
	001774
	003770
	003770
	007760
	007760
	017740
	017740
	037700
	037700
	077600
	077600
	177400
line4:	41
	20	;i.e. <0,,16>
;
;			*** special symbol font
deleteCur:	140003
	160007
	070016
	034034
	016070
	007160
	003740
	001700
	001700
	003740
	007160
	016070
	034034
	070016
	160007
	140003
deleteSym:	41	; " x" symbol (delete)
	20	;i.e. <0,,16>
;
;
makeCur:	000000
	000600
	000600
	000600
	000600
	000600
	000600
	077776
	077776
	000600
	000600
	000600
	000600
	000600
	000600
	000000
makeSym:	41	; "+" symbol (make)
	417	;i.e. <1,,15>
;
;
cyclicCur:	003740
	017740
	034617
	070616
	060616
	140613
	140603
	177777
	177777
	140603
	140603
	060606
	070616
	034634
	017770
	003740
cyclicSym:	41	; "+" symbol (cyclic)
	20	;i.e. <0,,16>
;
;
brushCur:	000600
	000600
	000600
	000600
	000600
	000600
	000000
	007760
	007760
	000000
	007760
	007760
	007760
	017740
	037700
	177400
brushSym:	41	; "paintbrush" symbol (redraw)
	20	;i.e. <0,,16>
;
;
dashCur:	020004
	030014
	030014
	034034
	034034
	016070
	016070
	007160
	003740
	000600
	000600
	017770
	011110
	011110
	012050
	016070
dashSym:	41	; "scissors" symbol (dash)
	20	;i.e. <0,,16>
;
;
selectCur:	177777
	177777
	140003
	140003
	140003
	140003
	140003
	140003
	140003
	140003
	140003
	140003
	140003
	140003
	177777
	177777
selectSym:	41	; "box" symbol (select)
	20	;i.e. <0,,16>
;
;
mTransf2Cur:	000600
	001700
	003740
	007760
	017770
	037774
	077776
	003740
	003740
	003740
	003740
	003740
	003740
	000000
	000000
	000000
mTransf2Sym:	41	; "arrow" symbol (move)
	20
;
;
cTransf2Cur:	000600
	001100
	002040
	004020
	010610
	021704
	077776
	007760
	017770
	037774
	077776
	003740
	003740
	003740
	003740
	003740
cTransf2Sym:	41	; "double arrow" symbol (copy)
	20
;
;
mTransf4Cur:000400
	001600
	001600
	003700
	003700
	007740
	007740
	017760
	017760
	037770
	037770
	000000
	000000
	000000
	000000
	000000
mTransf4Sym:	41
	20
;
;
cTransf4Cur:000400
	001200
	001200
	002100
	002100
	004440
	005640
	011620
	013720
	023710
	037770
	007740
	017760
	017760
	037770
	037770
cTransf4Sym:	41
	20
;
;
mTransf6Cur:000400
	001600
	001600
	003700
	002100
	006140
	007740
	017760
	010420
	030430
	037770
	000000
	000000
	000000
	000000
	000000
mTransf6Sym:	41
	20
;
;
cTransf6Cur:000400
	001200
	001200
	002100
	002100
	004440
	005640
	011620
	013720
	022110
	036170
	007740
	017760
	010420
	030430
	037770
cTransf6Sym:	41
	20
;
;
textCur:	037774
	037774
	000600
	000600
	000600
	000600
	000600
	000600
	003140
	003140
	000600
	000600
	000000
	000000
	000000
	000000
textSym:	41
	20
;
;
blackCur:	000000
	001700
	007760
	017770
	034074
	035734
	075736
	074076
	075736
	075736
	035734
	034074
	017770
	007760
	001700
	000000
blackSym:	41
	20
;
;
redCur:	000000
	001700
	006060
	010010
	023704
	022044
	042042
	043702
	042402
	042202
	022104
	022044
	010010
	006060
	001700
	000000
redSym:	41
	20
;
;
greenCur:	000000
	001700
	006060
	010010
	020704
	021044
	042042
	042002
	042362
	042042
	021044
	020704
	010010
	006060
	001700
	000000
greenSym:	41
	20
;
;
blueCur:	000000		; actually "violet"
	001700
	006060
	010010
	024024
	024024
	044022
	042042
	042042
	041102
	021104
	020604
	010010
	006060
	001700
	000000
blueSym:	41
	20
;
;
cyanCur:	000000
	001700
	006060
	010010
	020704
	021044
	042042
	042002
	042002
	042042
	021044
	020704
	010010
	006060
	001700
	000000
cyanSym:	41
	20
;
;
magentaCur:	000000
	001700
	006060
	010010
	022044
	023144
	042642
	042042
	042042
	042042
	022044
	020004
	010010
	006060
	001700
	000000
magentaSym:	41
	20
;
;
yellowCur:	000000
	001700
	006060
	010010
	022044
	022044
	041102
	040502
	040202
	040202
	020404
	020404
	010410
	006060
	001700
	000000
yellowSym:	41
	20
;
;
ZPfontEnd:	0

	.END