text.hasm

操作系统SunOS 4.1.3版本的源码

;
	set_attribute	hk_marker_type
	.word		marker_circle
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_RIGHT		; Right (horizontal)
	.word		HK_AV_CAP		; Cap (vertical)
	rtext
	.xyz		< 0.05, 1.00, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Right Cap"
	polymarker	1
	.xyz		< 0.05, 1.00, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_text_color
	.rgb		< 0.67034249, 0.24367239, 0.88482785 >
	set_attribute	hk_marker_color
	.rgb		< 0.07158930, 0.97922283, 0.91720044 >
;
	set_attribute	hk_marker_type
	.word		marker_cross
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_LEFT		; Left (horizontal)
	.word		HK_AV_HALF		; Half (vertical)
	rtext
	.xyz		< 0.1, 0.60, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Left Half"
	polymarker	1
	.xyz		< 0.1, 0.60, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_text_color
	.rgb		< 0.40783942, 0.58996626, 0.26580051 >
	set_attribute	hk_marker_color
	.rgb		< 0.87552741, 0.72616094, 0.39823838 >
;
	set_attribute	hk_marker_type
	.word		marker_cross
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_CENTER		; Center (horizontal)
	.word		HK_AV_HALF		; Half (vertical)
	rtext
	.xyz		< 0.2, 0.60, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Center Half"
	polymarker	1
	.xyz		< 0.2, 0.60, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_text_color
	.rgb		< 0.96583559, 0.12262883, 0.87150949 >
	set_attribute	hk_marker_color
	.rgb		< 0.80829600, 0.92312163, 0.30519203 >
;
	set_attribute	hk_marker_type
	.word		marker_circle
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_RIGHT		; Right (horizontal)
	.word		HK_AV_HALF		; Half (vertical)
	rtext
	.xyz		< 0.3, 0.60, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Right Half"
	polymarker	1
	.xyz		< 0.3, 0.60, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_text_color
	.rgb		< 0.75159054, 0.83457419, 0.99138320 >
	set_attribute	hk_marker_color
	.rgb		< 0.18400717, 0.08754747, 0.26592911 >
;
	set_attribute	hk_marker_type
	.word		marker_cross
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_LEFT		; Left (horizontal)
	.word		HK_AV_BASE		; Base (vertical)
	rtext
	.xyz		< 0.35, 0.20, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Left Base"
	polymarker	1
	.xyz		< 0.35, 0.20, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_text_color
	.rgb		< 0.98131611, 0.14793628, 0.22347250 >
	set_attribute	hk_marker_color
	.rgb		< 0.44782859, 0.42979212, 0.45436751 >
;
	set_attribute	hk_marker_type
	.word		marker_cross
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_CENTER		; Center (horizontal)
	.word		HK_AV_BASE		; Base (vertical)
	rtext
	.xyz		< 0.45, 0.20, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Center Base"
	polymarker	1
	.xyz		< 0.45, 0.20, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_text_color
	.rgb		< 0.29558283, 0.10013462, 0.69803989 >
	set_attribute	hk_marker_color
	.rgb		< 0.18041069, 0.17172392, 0.67726272 >
;
	set_attribute	hk_marker_type
	.word		marker_circle
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_RIGHT		; Right (horizontal)
	.word		HK_AV_BASE		; Base (vertical)
	rtext
	.xyz		< 0.55, 0.20, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Right Base"
	polymarker	1
	.xyz		< 0.55, 0.20, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_text_color
	.rgb		< 0.09761113, 0.57956334, 0.26722898 >
	set_attribute	hk_marker_color
	.rgb		< 0.36341164, 0.45509074, 0.99338992 >
;
	set_attribute	hk_marker_type
	.word		marker_cross
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_LEFT		; Left (horizontal)
	.word		HK_AV_BOTTOM		; Bottom (vertical)
	rtext
	.xyz		< 0.6, 0.00, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Left Bottom"
	polymarker	1
	.xyz		< 0.6, 0.00, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_text_color
	.rgb		< 0.76165001, 0.42092633, 0.11601876 >
	set_attribute	hk_marker_color
	.rgb		< 0.63315950, 0.22922233, 0.03914039 >
;
	set_attribute	hk_marker_type
	.word		marker_cross
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_CENTER		; Center (horizontal)
	.word		HK_AV_BOTTOM		; Bottom (vertical)
	rtext
	.xyz		< 0.7, 0.00, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Center Bottom"
	polymarker	1
	.xyz		< 0.7, 0.00, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_text_color
	.rgb		< 0.93835153, 0.98081287, 0.87371457 >
	set_attribute	hk_marker_color
	.rgb		< 0.92973473, 0.16482004, 0.96126204 >
;
	set_attribute	hk_marker_type
	.word		marker_circle
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_RIGHT		; Right (horizontal)
	.word		HK_AV_BOTTOM		; Bottom (vertical)
	rtext
	.xyz		< 0.8, 0.00, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Right Bottom"
	polymarker	1
	.xyz		< 0.8, 0.00, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_text_color
	.rgb		< 0.19566384, 0.54613615, 0.10919832 >
	set_attribute	hk_marker_color
	.rgb		< 0.41913634, 0.59396474, 0.53899044 >
;
	set_attribute	hk_marker_type
	.word		marker_cross
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_NORMAL		; Normal (horizontal)
	.word		HK_AV_NORMAL		; Normal (vertical)
	rtext
	.xyz		< 0.9, 1.00, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Normal Normal"
	polymarker	1
	.xyz		< 0.9, 1.00, 0.0 >

;---------------------------------------------------------------------;

	set_attribute	hk_text_color
        .rgb            < 0.9, 0.7, 0.2 >
	set_attribute	hk_marker_color
        .rgb            < 1.0, 0.0, 0.0 >

;---------------------------------------------------------------------;
; Check out drawing left
;
	set_attribute	hk_rtext_alignment
	.word		HK_AH_NORMAL		; Normal (horizontal)
	.word		HK_AV_NORMAL		; Normal (vertical)
	set_attribute	hk_rtext_path
	.word		1			; Left
	rtext
	.xyz		< 0.0, 0.1, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Backwards"
	polymarker	1
	.xyz		< 0.0, 0.1, 0.0 >
;---------------------------------------------------------------------;
; Check out drawing up
;
	set_attribute	hk_rtext_path
	.word		HK_TP_UP		; Up
	rtext
	.xyz		<-0.35,-0.5, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Upwards"
	polymarker	1
	.xyz		<-0.35,-0.5, 0.0 >
;---------------------------------------------------------------------;
; Test other text features
;
	set_attribute	hk_rtext_path
	.word		HK_TP_RIGHT		; Normal
;
	set_attribute	hk_text_expansion_factor
	.word		0.8
	rtext
	.xyz		<-0.2, 0.0, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Expansion factor 0.8"
	polymarker	1
	.xyz		<-0.2, 0.0, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_text_expansion_factor
	.word		4.2
	rtext
	.xyz		<-0.2,-0.1, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"4.2"
	polymarker	1
	.xyz		<-0.2,-0.1, 0.0 >
	set_attribute	hk_text_expansion_factor
	.word		1.0
;---------------------------------------------------------------------;
	set_attribute	hk_rtext_slant
	.word		0.267949		; Tan(15)
	rtext
	.xyz		<-0.2,-0.2, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Slanted 15 degrees"
	polymarker	1
	.xyz		<-0.2,-0.2, 0.0 >
	set_attribute	hk_rtext_slant
	.word		0.0
;---------------------------------------------------------------------;
	set_attribute	hk_text_spacing
	.word		1.5
	rtext
	.xyz		<-0.2,-0.3, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Spacing 1.5"
	polymarker	1
	.xyz		<-0.2,-0.3, 0.0 >
	set_attribute	hk_text_spacing
	.word		0.0
;---------------------------------------------------------------------;
	rtext
	.xyz		<-0.2,-0.4, 0.0 >	; Position
	.xyz		< 0.996195,-0.087156, 0.0 >	; Direction 0
	.xyz		< 0.087156, 0.996195, 0.0 >	; Direction 1
	.string		"Down 5 degrees"
	polymarker	1
	.xyz		<-0.2,-0.4, 0.0 >
;---------------------------------------------------------------------;
	set_attribute	hk_rtext_height
	.word		0.10			; Double the size
	set_attribute	hk_text_line_width
	.word		3.0
	rtext
	.xyz		<-0.2,-0.6, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Line width 3"
	polymarker	1
	.xyz		<-0.2,-0.6, 0.0 >
	set_attribute	hk_text_line_width
	.word		1.0
;---------------------------------------------------------------------;
; Finish off with a label for this test
;
	set_attribute	hk_text_color
        .rgb            < 0.60199526, 0.28574522, 0.03092304 >

	set_attribute	hk_text_font_table
	.word		hasm_font2
	set_attribute	hk_text_character_set
	.word		0
	.word		0
	set_attribute	hk_text_font
	.word		0
	.word		0

	set_attribute	hk_rtext_height
	.word		0.14
	set_attribute	hk_text_color
	.rgb		< 0.87350384, 0.88954757, 0.63912506 >
	set_attribute	hk_rtext_alignment
	.word		2			; Center (horizontal)
	.word		4			; Base (vertical)
	rtext
	.xyz		< 0.0,-0.85, 0.0 >	; Position
	.xyz		< 1.0, 0.0, 0.0 >	; Direction 0
	.xyz		< 0.0, 1.0, 0.0 >	; Direction 1
	.string		"Regular text test"
;
	jmpl		(r6 + 0), r6		; Return
;
; Draw a grid
;
grid:
	set_attribute	hk_line_geom_format
	.word		HK_LINE_XYZ
; Draw some horizontal lines
	polyline	2
	.xyz		<-1.0, 1.0, 0.0 >
	.xyz		< 1.0, 1.0, 0.0 >
	polyline	2
	.xyz		<-1.0, 0.9, 0.0 >
	.xyz		< 1.0, 0.9, 0.0 >
	polyline	2
	.xyz		<-1.0, 0.8, 0.0 >
	.xyz		< 1.0, 0.8, 0.0 >
	polyline	2
	.xyz		<-1.0, 0.7, 0.0 >
	.xyz		< 1.0, 0.7, 0.0 >
	polyline	2
	.xyz		<-1.0, 0.6, 0.0 >
	.xyz		< 1.0, 0.6, 0.0 >
	polyline	2
	.xyz		<-1.0, 0.5, 0.0 >
	.xyz		< 1.0, 0.5, 0.0 >
	polyline	2
	.xyz		<-1.0, 0.4, 0.0 >
	.xyz		< 1.0, 0.4, 0.0 >
	polyline	2
	.xyz		<-1.0, 0.3, 0.0 >
	.xyz		< 1.0, 0.3, 0.0 >
	polyline	2
	.xyz		<-1.0, 0.2, 0.0 >
	.xyz		< 1.0, 0.2, 0.0 >
	polyline	2
	.xyz		<-1.0, 0.1, 0.0 >
	.xyz		< 1.0, 0.1, 0.0 >
	polyline	2
	.xyz		<-1.0, 0.0, 0.0 >
	.xyz		< 1.0, 0.0, 0.0 >
	polyline	2
	.xyz		<-1.0,-0.1, 0.0 >
	.xyz		< 1.0,-0.1, 0.0 >
	polyline	2
	.xyz		<-1.0,-0.2, 0.0 >
	.xyz		< 1.0,-0.2, 0.0 >
	polyline	2
	.xyz		<-1.0,-0.3, 0.0 >
	.xyz		< 1.0,-0.3, 0.0 >
	polyline	2
	.xyz		<-1.0,-0.4, 0.0 >
	.xyz		< 1.0,-0.4, 0.0 >
	polyline	2
	.xyz		<-1.0,-0.5, 0.0 >
	.xyz		< 1.0,-0.5, 0.0 >
	polyline	2
	.xyz		<-1.0,-0.6, 0.0 >
	.xyz		< 1.0,-0.6, 0.0 >
	polyline	2
	.xyz		<-1.0,-0.7, 0.0 >
	.xyz		< 1.0,-0.7, 0.0 >
	polyline	2
	.xyz		<-1.0,-0.8, 0.0 >
	.xyz		< 1.0,-0.8, 0.0 >
	polyline	2
	.xyz		<-1.0,-0.9, 0.0 >
	.xyz		< 1.0,-0.9, 0.0 >
	polyline	2
	.xyz		<-1.0,-1.0, 0.0 >
	.xyz		< 1.0,-1.0, 0.0 >
; Draw some vertical lines
	polyline	2
	.xyz		< 1.0,-1.0, 0.0 >
	.xyz		< 1.0, 1.0, 0.0 >
	polyline	2
	.xyz		< 0.9,-1.0, 0.0 >
	.xyz		< 0.9, 1.0, 0.0 >
	polyline	2
	.xyz		< 0.8,-1.0, 0.0 >
	.xyz		< 0.8, 1.0, 0.0 >
	polyline	2
	.xyz		< 0.7,-1.0, 0.0 >
	.xyz		< 0.7, 1.0, 0.0 >
	polyline	2
	.xyz		< 0.6,-1.0, 0.0 >
	.xyz		< 0.6, 1.0, 0.0 >
	polyline	2
	.xyz		< 0.5,-1.0, 0.0 >
	.xyz		< 0.5, 1.0, 0.0 >
	polyline	2
	.xyz		< 0.4,-1.0, 0.0 >
	.xyz		< 0.4, 1.0, 0.0 >
	polyline	2
	.xyz		< 0.3,-1.0, 0.0 >
	.xyz		< 0.3, 1.0, 0.0 >
	polyline	2
	.xyz		< 0.2,-1.0, 0.0 >
	.xyz		< 0.2, 1.0, 0.0 >
	polyline	2
	.xyz		< 0.1,-1.0, 0.0 >
	.xyz		< 0.1, 1.0, 0.0 >
	polyline	2
	.xyz		< 0.0,-1.0, 0.0 >
	.xyz		< 0.0, 1.0, 0.0 >
	polyline	2
	.xyz		<-0.1,-1.0, 0.0 >
	.xyz		<-0.1, 1.0, 0.0 >
	polyline	2
	.xyz		<-0.2,-1.0, 0.0 >
	.xyz		<-0.2, 1.0, 0.0 >
	polyline	2
	.xyz		<-0.3,-1.0, 0.0 >
	.xyz		<-0.3, 1.0, 0.0 >
	polyline	2
	.xyz		<-0.4,-1.0, 0.0 >
	.xyz		<-0.4, 1.0, 0.0 >
	polyline	2
	.xyz		<-0.5,-1.0, 0.0 >
	.xyz		<-0.5, 1.0, 0.0 >
	polyline	2
	.xyz		<-0.6,-1.0, 0.0 >
	.xyz		<-0.6, 1.0, 0.0 >
	polyline	2
	.xyz		<-0.7,-1.0, 0.0 >
	.xyz		<-0.7, 1.0, 0.0 >
	polyline	2
	.xyz		<-0.8,-1.0, 0.0 >
	.xyz		<-0.8, 1.0, 0.0 >
	polyline	2
	.xyz		<-0.9,-1.0, 0.0 >
	.xyz		<-0.9, 1.0, 0.0 >
	polyline	2
	.xyz		<-1.0,-1.0, 0.0 >
	.xyz		<-1.0, 1.0, 0.0 >
	
	jmpl		(r6 + 0), r6		; Return
;
; Include the marker table here
;
#include "/usr/shbam2/tests/text/marker_table.hasm"
;
; Include the font here
;
hasm_font1:
#include "/usr/shbam/data/hershey_fonts/romanc.hasm"
hasm_font2:
#include "/usr/shbam/data/hershey_fonts/gothgbt.hasm"