flat_triangles.hasm

来自「操作系统SunOS 4.1.3版本的源码」· HASM 代码 · 共 113 行

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

#include "hasm_public.h"
;
; Draw a single triangle with a different color at each vertex
;
start:

	set_attribute	hk_view, @perspective

        set_attribute   hk_z_buffer_compare
        .word           FALSE
        set_attribute   hk_z_buffer_update
        .word           HK_Z_UPDATE_NONE

	set_attribute	hk_use_back_props, #FALSE
	set_attribute	hk_face_culling_mode, #HK_CULL_NONE
	set_attribute	hk_front_lighting_degree, #HK_NO_LIGHTING

	set_attribute	hk_tri_geom_format
	.word		HK_TRI_XYZ_VNORMAL_VCOLOR

	set_attribute	hk_front_shading_method, #HK_SHADING_FLAT

	jmpl		triangles, r6

	trap		0

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 > >

triangles:
	triangle_list	3
	.tri_start
	.xyz	< -0.9, 0.85, 0.0 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 1.0, 0.0, 0.0 > 
	.tri_r2
	.xyz	< -0.23, 0.18, 0.48 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 1.0, 0.0, 0.0 > 
	.tri_r2
	.xyz	< -0.7, 0.96, 0.15 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 1.0, 0.0, 0.0 > 

	triangle_list	3
	.tri_start
	.xyz	< 0.74, 0.12, 0.15 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 0.0, 1.0, 0.0 > 
	.tri_r2
	.xyz	< 0.93865, 0.15442, 0.6754 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 0.0, 1.0, 0.0 > 
	.tri_r2
	.xyz	< 0.1324, 0.876, 0.54321 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 0.0, 1.0, 0.0 > 

	triangle_list	3
	.tri_start
	.xyz	< 0.423, -0.8970, 0.456 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 0.0, 0.0, 1.0 > 
	.tri_r2
	.xyz	< 0.0987, -0.1234, 0.123 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 0.0, 0.0, 1.0 > 
	.tri_r2
	.xyz	< 0.9876, -0.645, 0.9078 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 0.0, 0.0, 1.0 > 

	triangle_list	3
	.tri_start
	.xyz	< -0.095826, -0.9876, 0.5643 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 1.0, 0.0, 1.0 > 
	.tri_r2
	.xyz	< -0.7908, -0.34712689, 0.8796234 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 1.0, 0.0, 1.0 > 
	.tri_r2
	.xyz	< -0.49568, -0.12387, 0.0978 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 1.0, 0.0, 1.0 > 

	triangle_list	3
	.tri_start
	.xyz	< -0.395826, 0.9876, 0.5643 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 1.0, 1.0, 0.0 > 
	.tri_r2
	.xyz	< 0.3908, 0.34712689, 0.8796234 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 1.0, 1.0, 0.0 > 
	.tri_r2
	.xyz	< -0.09568, -0.12387, 0.0978 > 
	.norm	< 0, 0, -1 > 
	.rgb	< 1.0, 1.0, 0.0 > 

	jmpl	(r6+0), r6