wide_vectors.hasm

操作系统SunOS 4.1.3版本的源码

;
;      @(#)wide_vectors.hasm 1.1 92/07/30 17:42:17
;
; Copyright (c) 1990 by Sun Microsystems, Inc.
;

#include "hasm_public.h"
;
; Test wide line support.
;

	set_attribute	hk_view, @perspective

	set_attribute	hk_line_antialiasing
	.word		FALSE

	set_attribute	hk_line_geom_format
	.word		HK_LINE_XYZ_RGB

	set_attribute	hk_line_width
	.word		5.0
	jmpl		star, r6

	set_attribute	hk_line_width
	.word		4.0
	jmpl		star, r6

	set_attribute	hk_line_width
	.word		3.0
	jmpl		star, r6

	set_attribute	hk_line_width
	.word		2.0
	jmpl		star, r6

	set_attribute	hk_line_width
	.word		1.0
	jmpl		star, r6

	set_attribute	hk_line_width
	.word		0.8
	jmpl		star, r6

	set_attribute	hk_line_width
	.word		0.5
	jmpl		star, r6

	trap		0

; Set up perspective #3
perspective:
	.fword		-0.5,  -0.5,  0.5,  0.5
	.matrix_pair \				; VT and IVT
	<   <  1.0,  0.0,  0.0,  0.0 > , \
	    <  0.0,  1.0,  0.0,  0.0 > , \
	    <  0.0,  0.0,  1.0,  0.0 > , \
	    <  0.0,  0.0,  0.0,  1.0 > >

; Draw star
star:
	polyline 6			; Draw a vector
	.xyz		< 0.0, 1.0, 0.0 >
	.rgb		<1.0, 0.0, 0.0>
	.xyz		< 0.587785252, -0.809016994, 0.0 >
	.rgb		<1.0, 0.0, 0.0>
	.xyz		< -0.951056516, 0.309016994, 0.0 >
	.rgb		<1.0, 1.0, 1.0>
	.xyz		< 0.951056516, 0.309016994, 0.0 >
	.rgb		<1.0, 1.0, 1.0>
	.xyz		< -0.587785252, -0.809016994, 0.0 >
	.rgb		<0.0, 0.0, 1.0>
	.xyz		< 0.0, 1.0, 0.0 >
	.rgb		<0.0, 0.0, 1.0>

	set_attribute	hk_pre_concat_lmt
	.scale		0.8

	jmpl		(r6 + 0), r6		; Return