NLIST 	TTM
.LIST MEB
=============================================================================

.TITLE	ARROWH
.IDENT /062183/

	AUTHOR: T V ATKINSON
		DEPARTMENT OF CHEMISTRY
		MICHIGAN STATE UNIVERSITY
		EAST LANSING, MI 48824

	DATE:	29-APR-80

	ABSTRACT(SPECIFIC):  THIS ROUTINE CONTAINS A LIBRARY OF SYMBOLS FOR
		DRAWING ARROW HEADS.

	ABSTRACT(GENERAL):  THIS AND OTHER ROUTINES OF THIS TYPE ARE LIBRARIES
		OF VECTOR LISTS.  EACH ENTRY CONSISTS OF A SET OF VECTORS
		WHICH WHEN DRAWN DEPICT ONE SYMBOL (CHARACTERS, NUMBERS,
		PUNCTUATION MARKS, AND OTHER SYMBOLS).  EACH VECTOR
		CONTAINS A MODE(IM), A X COORDINATE(IX), AND A Y COORDINATE(IY).
		THE VECTORS MAY BE WRITTEN(IM=2) OR UNWRITTEN(IM=1).  THE 
		LIBRARY IS CONSTRUCTED UNDER THE ASSUMPTION THAT EACH VECTOR
		WILL BE DRAWN FROM THE CURRENT POSITION TO THE POINT (IX,IY).
		THE POINTS (IX,IY) SPAN AN INTEGER SPACE (-64.LE.IX.LE.63,
		-128.LE.IY.LE.127).  THE COORDINATES IX,IY ARE RELATIVE TO
		THE ORIGIN OF THE SYMBOL.

		    THIS LIBRARY IS STRUCTURED TO BE USED IN CONJUNCTION
		WITH SYMGET.MAC AND SYMPLT.FTN.

=============================================================================
.PAGE
.SBTTL	MACRO DEFINITIONS

-----------------------------------------------------------------------------

	MACROS TO GENERATE POINTER TABLE

-----------------------------------------------------------------------------

.MACRO	MPNT1,NUM
.WORD	COD'NUM-BASADD
.ENDM

.MACRO	MPNT2,NUM1
MPNT1	NUM1
.ENDM

-----------------------------------------------------------------------------

	AVECT:  MACRO TO PACK VECTORS INTO SINGLE WORD

-----------------------------------------------------------------------------

	PACKED VECTOR FORMAT (ONE 16 BIT WORD):

		BIT15		IM = MODE OF DRAWING VECTOR
				  =0 -> UNWRITTEN VECTOR
				  =1 -> WRITTEN VECTOR

		BIT14-BIT08	IX = 7 BIT SIGNED TWO'S COMPLEMENT X COORD.

		BIT07-BIT00	IY = 8 BIT SIGNED TWO'S COMPLEMENT Y COORD.

-----------------------------------------------------------------------------

.MACRO	AVECT,IM,IX,IY
.WORD	<<IM*40000>&100000>!<<IX*400>&77400>!<IY&377>
.ENDM	AVECT

.MACRO	DARK,X,Y
AVECT	1,X,Y
.ENDM	DARK

.MACRO	LIGHT,X,Y
AVECT	2,X,Y
.ENDM	LIGHT

.MACRO	LIMITS,XMIN,XMAX,YMIN,YMAX
.BYTE	XMIN,XMAX,YMIN,YMAX
.ENDM	LIMITS
.PAGE
.SBTTL	LIBRARY
.PSECT ARROWH,REL,RW,I
.GLOBL	ARROWH
CODBEG=101
CODEND=114

-----------------------------------------------------------------------------

	ENTRY POINT

-----------------------------------------------------------------------------

ASADD:
RROWH:	.WORD	CODBEG
.WORD	CODEND
.WORD	64.			; HORIZONTAL RASTER SIZE
.WORD	64.			; VERTICAL RASTER SIZE

-----------------------------------------------------------------------------

	POINTER TABLE

-----------------------------------------------------------------------------

	POINTER TABLE FORMAT:

		.WORD	CODNNN		; ADDRESS OF FIRST VECTOR OF THE SYMBOL
					; WITH CODE NNN = CODBEG
		.WORD	CODNN1		; ADDRESS OF FIRST VECTOR OF THE SYMBOL
					; WITH CODE NNN + 1

				.
				.
				.

		.WORD	CODMMM		; ADDRESS OF FIRST VECTOR OF THE SYMBOL
					; WITH CODE MMM = CODEND
		.WORD	CODMM1		; ADDRESS OF THE FIRST WORD AFTER LIB.

-----------------------------------------------------------------------------

NUMENT=CODEND-CODBEG + 2	; NUMBER OF ENTRIES IN TABLE + 1
CODNUM=CODBEG
.REPT	NUMENT
MPNT2	\CODNUM
CODNUM=CODNUM+1
.ENDM
.PAGE

-----------------------------------------------------------------------------

	SYMBOL VECTOR LISTS

-----------------------------------------------------------------------------

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

	COLUMN 3: UPPER CASE

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


	A: SIMPLE ARROW HEAD

COD101:
	LIMITS	  0., 63.,-63., 63.
DARK	0.,  0.
LIGHT	63., 63.
DARK	63.,-63.
LIGHT	 0.,  0.

	B: ARROW WITH FOLD BACK

OD102:
	LIMITS	  0., 63.,-63., 63.
DARK	0.,  0.
LIGHT	63., 63.
LIGHT	46.,  0.
LIGHT	63.,-63.
LIGHT	0.,  0.
DARK	46.,  0.

	C: SOLID ARROW WITH FOLD BACK

OD103:
LIMITS	  0., 63.,-63., 63.
DARK	0.,  0.
LIGHT	63., 63.
LIGHT	46.,  0.
LIGHT	63.,-63.
LIGHT	0.,  0.

DARK	63., 63.
LIGHT	57., 52.
LIGHT	 5.,  0.
LIGHT	57.,-52.
LIGHT	42.,  0.
LIGHT	57., 52.
LIGHT	50., 40.
LIGHT	10.,  0.
LIGHT	50.,-40.
LIGHT	38.,  0.
LIGHT	50., 40.
LIGHT	45., 30.
LIGHT	15.,  0.
LIGHT	45.,-30.
LIGHT	34.,  0.
LIGHT	45., 30.
LIGHT	35., 15.
LIGHT	20.,  0.
LIGHT	35.,-15.
LIGHT	30.,  0.
LIGHT	35., 15.
LIGHT	25.,  0.
LIGHT	35.,-15.
LIGHT	45.,-30.
LIGHT	50.,-40.
LIGHT	57.,-52.
LIGHT	63.,-63.
DARK	46.,  0.

	D: OPEN CURVED ARROW

OD104:
LIMITS	  0., 63.,-63., 63.
DARK	0.,   0.
DARK	63.,  63.
LIGHT	56.,  50.
LIGHT	50.,  40.
LIGHT	46.,  34.
LIGHT	38.,  23.
LIGHT	31.,  17.
LIGHT	17.,   7.
LIGHT	13.,   5.
LIGHT	7.,   2.
LIGHT	0.,   0.
LIGHT	7.,  -2.
LIGHT	13.,  -5.
LIGHT	17.,  -7.
LIGHT	31., -17.
LIGHT	38., -23.
LIGHT	46., -34.
LIGHT	50., -40.
LIGHT	56., -50.
LIGHT	63., -63.
DARK	0.,   0.

	E: CLOSED CURVED ARROW

OD105:
LIMITS	  0., 63.,-63., 63.
DARK	0.,   0.
DARK	63.,  63.
LIGHT	56.,  50.
LIGHT	50.,  40.
LIGHT	46.,  34.
LIGHT	38.,  23.
LIGHT	31.,  17.
LIGHT	17.,   7.
LIGHT	13.,   5.
LIGHT	7.,   2.
LIGHT	0.,   0.
LIGHT	7.,  -2.
LIGHT	13.,  -5.
LIGHT	17.,  -7.
LIGHT	31., -17.
LIGHT	38., -23.
LIGHT	46., -34.
LIGHT	50., -40.
LIGHT	56., -50.
LIGHT	63., -63.

LIGHT	62., -60.
LIGHT	60., -54.
LIGHT	56., -40.
LIGHT	54., -30.
LIGHT	52., -19.
LIGHT	51., -11.
LIGHT	50.,   0.
LIGHT	51.,  11.
LIGHT	52.,  19.
LIGHT	54.,  30.
LIGHT	56.,  40.
LIGHT	60.,  54.
LIGHT	62.,  60.
LIGHT	63.,  63.
DARK	50.,   0.

	F: SOLID CURVED ARROW

OD106:
LIMITS	  0., 63.,-63., 63.
DARK	0.,   0.
DARK	63.,  63.
LIGHT	56.,  50.
LIGHT	50.,  40.
LIGHT	46.,  34.
LIGHT	38.,  23.
LIGHT	31.,  17.
LIGHT	17.,   7.
LIGHT	13.,   5.
LIGHT	7.,   2.
LIGHT	0.,   0.
LIGHT	7.,  -2.
LIGHT	13.,  -5.
LIGHT	17.,  -7.
LIGHT	31., -17.
LIGHT	38., -23.
LIGHT	46., -34.
LIGHT	50., -40.
LIGHT	56., -50.
LIGHT	63., -63.

LIGHT	62., -60.
LIGHT	60., -54.
LIGHT	56., -40.
LIGHT	54., -30.
LIGHT	52., -19.
LIGHT	51., -11.
LIGHT	50.,   0.
LIGHT	51.,  11.
LIGHT	52.,  19.
LIGHT	54.,  30.
LIGHT	56.,  40.
LIGHT	60.,  54.
LIGHT	62.,  60.
LIGHT	63.,  63.

DARK	 0.,   0.
LIGHT	10.,   0.
LIGHT	50.,  30.
LIGHT	56.,  50.
LIGHT	43.,  25.
DARK	50.,  30.
LIGHT	50., -30.
LIGHT	56., -50.
LIGHT	43., -25.
DARK	50., -30.
LIGHT	10.,   0.
DARK	15.,   0.
LIGHT	46.,  23.
LIGHT	46., -23.
LIGHT	15.,   0.
DARK	20.,   0.
LIGHT	42.,  16.
LIGHT	42., -16.
LIGHT	20.,   0.
DARK	25.,   0.
LIGHT	38.,   9.
LIGHT	38.,  -9.
LIGHT	25.,   0.
DARK	30.,   0.
LIGHT	35.,   3.
LIGHT	35.,  -3.
LIGHT	30.,   0.
DARK	50.,   0.

	G: SIMPLE CLOSED ARROW

OD107:
	LIMITS	  0., 63.,-63., 63.
DARK	0.,  0.
LIGHT	63., 63.
LIGHT	63.,-63.
LIGHT	0.,  0.
DARK	63.,  0.

	H: SOLID SIMPLE ARROW

OD110:
LIMITS	  0., 63.,-63., 63.
DARK	0.,  0.
LIGHT	63., 63.
LIGHT	63.,-63.
LIGHT	0.,  0.

DARK	 5.,  0.
LIGHT	60., 55.
LIGHT	60.,-55.
LIGHT	 5.,  0.
DARK	10.,  0.
LIGHT	56., 46.
LIGHT	56.,-46.
LIGHT	10.,  0.
DARK	15.,  0.
LIGHT	52., 37.
LIGHT	52.,-37.
LIGHT	15.,  0.
DARK	20.,  0.
LIGHT	48., 28.
LIGHT	48.,-28.
LIGHT	20.,  0.
DARK	25.,  0.
LIGHT	44., 19.
LIGHT	44.,-19.
LIGHT	25.,  0.
DARK	30.,  0.
LIGHT	40., 10.
LIGHT	40.,-10.
LIGHT	30.,  0.
DARK	35.,  0.
LIGHT	38.,  4.
LIGHT	38., -4.
LIGHT	35.,  0.
DARK	63.,  0.

	I: JOUST ARROW HEAD

OD111:
LIMITS	  0., 63.,-63., 63.
DARK	0.,  0.
LIGHT	10.,  6.
LIGHT	21., 15.
LIGHT	28., 22.
LIGHT	34., 30.
LIGHT	40., 39.
LIGHT	51., 61.

DARK	0.,  0.
LIGHT	10., -6.
LIGHT	21.,-15.
LIGHT	28.,-22.
LIGHT	34.,-30.
LIGHT	40.,-39.
LIGHT	51.,-61.

DARK	63.,    0.
LIGHT	62.,   29.
LIGHT	59.,   51.
LIGHT	57.,   60.
LIGHT	54.,   63.
LIGHT	51.,   60.
LIGHT	49.,   51.
LIGHT	46.,   29.
LIGHT	45.,    0.
LIGHT	46.,  -29.
LIGHT	49.,  -51.
LIGHT	51.,  -60.
LIGHT	54.,  -63.
LIGHT	57.,  -60.
LIGHT	59.,  -51.
LIGHT	62.,  -29.
LIGHT	63.,    0.
DARK	54.,    0.

	J: SOLID JOUST ARROW

OD112:	
LIMITS	  0., 63.,-63., 63.
DARK	0.,  0.
LIGHT	10.,  6.
LIGHT	21., 15.
LIGHT	28., 22.
LIGHT	34., 30.
LIGHT	40., 39.
LIGHT	51., 61.

DARK	0.,  0.
LIGHT	10., -6.
LIGHT	21.,-15.
LIGHT	28.,-22.
LIGHT	34.,-30.
LIGHT	40.,-39.
LIGHT	51.,-61.

DARK	63.,    0.
LIGHT	62.,   29.
LIGHT	59.,   51.
LIGHT	57.,   60.
LIGHT	54.,   63.
LIGHT	51.,   60.
LIGHT	49.,   51.
LIGHT	46.,   29.
LIGHT	45.,    0.
LIGHT	46.,  -29.
LIGHT	49.,  -51.
LIGHT	51.,  -60.
LIGHT	54.,  -63.
LIGHT	57.,  -60.
LIGHT	59.,  -51.
LIGHT	62.,  -29.
LIGHT	63.,    0.

DARK	38.,   29.
LIGHT	45.,   46.
LIGHT	45.,  -46.
LIGHT	38.,  -29.
DARK	45.,  -35.
LIGHT	 5.,    0.
LIGHT	45.,   35.
DARK	43.,   28.
LIGHT	43.,  -28.
LIGHT	10.,    0.
LIGHT	43.,   28.
DARK	40.,   20.
LIGHT	40.,  -20.
LIGHT	15.,    0.
LIGHT	40.,   20.
DARK	37.,   13.
LIGHT	37.,  -13.
LIGHT	20.,    0.
LIGHT	37.,   13.
DARK	34.,    7.
LIGHT	34.,   -7.
LIGHT	25.,    0.
LIGHT	34.,	7.
DARK	32.,	3.
LIGHT	32.,   -3.
LIGHT	28.,	0.
LIGHT	32.,	3.
DARK	54.,    0.

	END OF THE LIBRARY

OD113:
OD114:
.END