aa_vectors.hasm

操作系统SunOS 4.1.3版本的源码

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

#include "hasm_public.h"
;
; Vector model of the F15 pointing left, viewed from the side
;
; For a nice view try: hk_sim f15v.hasm -fe "-x-20 -y-155"
; To match the E&S photo: hk_sim f15v.hasm -fe "-z15 -x-25 -y-115"
;
; 2-May-89

vector_f15:
	set_attribute	hk_view, @perspective

	set_attribute	hk_line_geom_format
	.word		HK_LINE_XYZ
	set_attribute	hk_pre_concat_lmt
	.scale		1.65
	set_attribute	hk_pre_concat_lmt
	.translate	<0.1, 0.0, 0.0>
	;set_attribute	hk_pre_concat_lmt
	;.rotate_z	-0
	set_attribute   hk_pre_concat_lmt
	.rotate_x	-35
	set_attribute   hk_pre_concat_lmt
	.rotate_y	-115
	set_attribute	hk_pre_concat_lmt, @rot_x_90

	set_attribute	hk_line_antialiasing
	.word		TRUE
	set_attribute	hk_z_buffer_compare
	.word		TRUE
	set_attribute	hk_z_buffer_update
	.word		HK_Z_UPDATE_NONE
	jmpl		f15_vector_lists, r3
	set_attribute	hk_pre_concat_lmt, @mirror
	jmpl		f15_vector_lists, r3
all_done:
	trap		0

; Set up perspective #2
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,  0.2, -0.3 > , \
	    <  0.0,  0.0,  0.0,  1.0 > >

; Rotate about the X-axis 90 degrees
rot_x_90:
	.matrix \
		< <  1.0,  0.0,  0.0,  0.0 > , \
		  <  0.0,  0.0, -1.0,  0.0 > , \
		  <  0.0,  1.0,  0.0,  0.0 > , \
		  <  0.0,  0.0,  0.0,  1.0 > >

; Negate all Y values to get a mirror image of the left side
mirror:
	.matrix \
		< <  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 > >

f15_vector_lists:
	set_attribute	hk_line_color
	.rgb	<0.50, 0.16, 0.10>
	jmpl	vec1, r2 ; Lines around the nose
	jmpl	vec2, r2 ; Lines going back along the nose
	set_attribute	hk_line_color
	.rgb	<0.25, 0.25, 0.50>
	jmpl	vec3, r2 ; Ribs near cockpit
	jmpl	vec4, r2 ; lines back near cockpit
	set_attribute	hk_line_color
	.rgb	<0.35, 0.50, 0.30>
	jmpl	vec5, r2 ; Ribs on fuselage back all the way
	jmpl	vec6, r2 ; Lines going back along the fuselage
	jmpl	vec7, r2 ; Wedge near the air intakes at the front
	jmpl	vec7a, r2 ; Ribs of the air intakes at the front
	jmpl	vec7b, r2 ; Lines along side of the air intakes at the front
	set_attribute	hk_line_color
	.rgb	<0.1, 0.3, 0.5>
	jmpl	vec8, r2 ; Ribs connecting wing and fuselage
	jmpl	vec9, r2 ; Lines back connecting wing and fuselage
	jmpl	vec10, r2 ; Ribs in section connecting tail and fuselage
	jmpl	vec11, r2 ; Lines going back in section of tail and fuselage
	set_attribute	hk_line_color
	.rgb	<0.5, 0.2, 0.0>
	jmpl	vec12, r2 ; The wing ribs
	jmpl	vec13, r2 ; The wing lines going from fuselage to wing tip
	set_attribute	hk_line_color
	.rgb	<0.50, 0.16, 0.10>
	jmpl	vec14, r2 ; Vertical stabilizer
	jmpl	vec15, r2 ; All of the vertical lines of the tail
	set_attribute	hk_line_color
	.rgb	<0.50, 0.16, 0.10>
	jmpl	vec16, r2 ; What are those little wings at the back called?
	jmpl	vec17, r2 ; Tail lines going from fuselage to tip
	jmpl		(r3 + 0),r3	; Return



vec1:
; Lines around the nose
	polyline 50
	.xyz	<-0.701655,0.000000,-.031842>
	.xyz	<-0.701655,0.000435,-.031799>
	.xyz	<-0.701655,0.000957,-.031886>
	.xyz	<-0.701655,0.001479,-.031973>
	.xyz	<-0.701655,0.001914,-.032060>
	.xyz	<-0.701655,0.002436,-.032233>
	.xyz	<-0.701655,0.002871,-.032407>
	.xyz	<-0.701655,0.003393,-.032582>
	.xyz	<-0.701655,0.003828,-.032842>
	.xyz	<-0.701655,0.004263,-.033103>
	.xyz	<-0.701655,0.004611,-.033365>
	.xyz	<-0.701655,0.005046,-.033625>
	.xyz	<-0.701655,0.005394,-.033974>
	.xyz	<-0.701655,0.005742,-.034322>
	.xyz	<-0.701655,0.006090,-.034757>
	.xyz	<-0.701655,0.006351,-.035105>
	.xyz	<-0.701655,0.006699,-.035540>
	.xyz	<-0.701655,0.006873,-.035974>
	.xyz	<-0.701655,0.007134,-.036497>
	.xyz	<-0.701655,0.007308,-.036931>
	.xyz	<-0.701655,0.007482,-.037367>
	.xyz	<-0.701655,0.007569,-.037889>
	.xyz	<-0.701655,0.007656,-.038410>
	.xyz	<-0.701655,0.007743,-.038846>
	.xyz	<-0.701655,0.007830,-.039368>
	.xyz	<-0.701655,0.007830,-.039889>
	.xyz	<-0.701655,0.007743,-.040411>
	.xyz	<-0.701655,0.007656,-.040847>
	.xyz	<-0.701655,0.007569,-.041368>
	.xyz	<-0.701655,0.007482,-.041891>
	.xyz	<-0.701655,0.007308,-.042326>
	.xyz	<-0.701655,0.007134,-.042847>
	.xyz	<-0.701655,0.006873,-.043283>
	.xyz	<-0.701655,0.006699,-.043717>
	.xyz	<-0.701655,0.006351,-.044153>
	.xyz	<-0.701655,0.006090,-.044500>
	.xyz	<-0.701655,0.005742,-.044935>
	.xyz	<-0.701655,0.005394,-.045284>
	.xyz	<-0.701655,0.005046,-.045632>
	.xyz	<-0.701655,0.004611,-.045892>
	.xyz	<-0.701655,0.004263,-.046241>
	.xyz	<-0.701655,0.003828,-.046501>
	.xyz	<-0.701655,0.003393,-.046675>
	.xyz	<-0.701655,0.002871,-.046937>
	.xyz	<-0.701655,0.002436,-.047111>
	.xyz	<-0.701655,0.001914,-.047197>
	.xyz	<-0.701655,0.001479,-.047284>
	.xyz	<-0.701655,0.000957,-.047371>
	.xyz	<-0.701655,0.000435,-.047458>
	.xyz	<-0.701655,0.000000,-.047458>
	polyline 50
	.xyz	<-0.688431,0.000000,-.024447>
	.xyz	<-0.688431,0.000783,-.024403>
	.xyz	<-0.688431,0.001566,-.024490>
	.xyz	<-0.688431,0.002436,-.024665>
	.xyz	<-0.688431,0.003219,-.024838>
	.xyz	<-0.688431,0.004002,-.025100>
	.xyz	<-0.688431,0.004785,-.025361>
	.xyz	<-0.688431,0.005568,-.025709>
	.xyz	<-0.688431,0.006264,-.026057>
	.xyz	<-0.688431,0.007047,-.026492>
	.xyz	<-0.688431,0.007656,-.027013>
	.xyz	<-0.688431,0.008352,-.027448>
	.xyz	<-0.688431,0.008961,-.028058>
	.xyz	<-0.688431,0.009483,-.028667>
	.xyz	<-0.688431,0.010092,-.029275>
	.xyz	<-0.688431,0.010527,-.029972>
	.xyz	<-0.688431,0.011049,-.030668>
	.xyz	<-0.688431,0.011397,-.031363>
	.xyz	<-0.688431,0.011745,-.032060>
	.xyz	<-0.688431,0.012093,-.032842>
	.xyz	<-0.688431,0.012354,-.033625>
	.xyz	<-0.688431,0.012528,-.034495>
	.xyz	<-0.688431,0.012702,-.035278>
	.xyz	<-0.688431,0.012789,-.036061>
	.xyz	<-0.688431,0.012876,-.036931>
	.xyz	<-0.688431,0.012876,-.037714>
	.xyz	<-0.688431,0.012789,-.038585>
	.xyz	<-0.688431,0.012702,-.039368>
	.xyz	<-0.688431,0.012528,-.040238>
	.xyz	<-0.688431,0.012354,-.041021>
	.xyz	<-0.688431,0.012093,-.041804>
	.xyz	<-0.688431,0.011745,-.042587>
	.xyz	<-0.688431,0.011397,-.043283>
	.xyz	<-0.688431,0.011049,-.044066>
	.xyz	<-0.688431,0.010527,-.044762>
	.xyz	<-0.688431,0.010092,-.045371>
	.xyz	<-0.688431,0.009483,-.045979>
	.xyz	<-0.688431,0.008961,-.046588>
	.xyz	<-0.688431,0.008352,-.047197>
	.xyz	<-0.688431,0.007656,-.047720>
	.xyz	<-0.688431,0.007047,-.048154>
	.xyz	<-0.688431,0.006264,-.048590>
	.xyz	<-0.688431,0.005568,-.048937>
	.xyz	<-0.688431,0.004785,-.049286>
	.xyz	<-0.688431,0.004002,-.049633>
	.xyz	<-0.688431,0.003219,-.049808>
	.xyz	<-0.688431,0.002436,-.049982>
	.xyz	<-0.688431,0.001566,-.050156>
	.xyz	<-0.688431,0.000783,-.050242>
	.xyz	<-0.688431,0.000000,-.050242>
	polyline 50
	.xyz	<-0.666246,0.000000,-.011571>
	.xyz	<-0.666246,0.001392,-.011614>
	.xyz	<-0.666246,0.002871,-.011702>
	.xyz	<-0.666246,0.004350,-.011963>
	.xyz	<-0.666246,0.005829,-.012311>
	.xyz	<-0.666246,0.007221,-.012745>
	.xyz	<-0.666246,0.008613,-.013268>
	.xyz	<-0.666246,0.009918,-.013790>
	.xyz	<-0.666246,0.011223,-.014485>
	.xyz	<-0.666246,0.012528,-.015268>
	.xyz	<-0.666246,0.013746,-.016138>
	.xyz	<-0.666246,0.014877,-.017009>
	.xyz	<-0.666246,0.016008,-.018052>
	.xyz	<-0.666246,0.016965,-.019096>
	.xyz	<-0.666246,0.017922,-.020227>
	.xyz	<-0.666246,0.018879,-.021358>
	.xyz	<-0.666246,0.019662,-.022664>
	.xyz	<-0.666246,0.020358,-.023882>
	.xyz	<-0.666246,0.020967,-.025274>
	.xyz	<-0.666246,0.021576,-.026579>
	.xyz	<-0.666246,0.022011,-.028058>
	.xyz	<-0.666246,0.022359,-.029450>
	.xyz	<-0.666246,0.022707,-.030928>
	.xyz	<-0.666246,0.022881,-.032320>
	.xyz	<-0.666246,0.022968,-.033799>
	.xyz	<-0.666246,0.022968,-.035278>
	.xyz	<-0.666246,0.022881,-.036757>
	.xyz	<-0.666246,0.022707,-.038236>
	.xyz	<-0.666246,0.022359,-.039715>
	.xyz	<-0.666246,0.022011,-.041108>
	.xyz	<-0.666246,0.021576,-.042500>
	.xyz	<-0.666246,0.020967,-.043892>
	.xyz	<-0.666246,0.020358,-.045196>
	.xyz	<-0.666246,0.019662,-.046501>
	.xyz	<-0.666246,0.018879,-.047720>
	.xyz	<-0.666246,0.017922,-.048937>
	.xyz	<-0.666246,0.016965,-.050069>
	.xyz	<-0.666246,0.016008,-.051112>
	.xyz	<-0.666246,0.014877,-.052070>
	.xyz	<-0.666246,0.013746,-.053027>
	.xyz	<-0.666246,0.012528,-.053897>
	.xyz	<-0.666246,0.011223,-.054593>
	.xyz	<-0.666246,0.009918,-.055289>
	.xyz	<-0.666246,0.008613,-.055898>
	.xyz	<-0.666246,0.007221,-.056419>
	.xyz	<-0.666246,0.005829,-.056855>
	.xyz	<-0.666246,0.004350,-.057202>
	.xyz	<-0.666246,0.002871,-.057377>
	.xyz	<-0.666246,0.001392,-.057551>
	.xyz	<-0.666246,0.000000,-.057551>
	polyline 50
	.xyz	<-0.622137,0.000000,0.002262>
	.xyz	<-0.622137,0.002088,0.002219>
	.xyz	<-0.622137,0.004176,0.001958>
	.xyz	<-0.622137,0.006177,0.001696>
	.xyz	<-0.622137,0.008265,0.001174>
	.xyz	<-0.622137,0.010266,0.000565>
	.xyz	<-0.622137,0.012267,-.000131>
	.xyz	<-0.622137,0.014181,-.001001>
	.xyz	<-0.622137,0.016008,-.001958>
	.xyz	<-0.622137,0.017748,-.003001>
	.xyz	<-0.622137,0.019488,-.004219>
	.xyz	<-0.622137,0.021141,-.005524>
	.xyz	<-0.622137,0.022707,-.006917>
	.xyz	<-0.622137,0.024186,-.008482>
	.xyz	<-0.622137,0.025491,-.010049>
	.xyz	<-0.622137,0.026796,-.011702>
	.xyz	<-0.622137,0.027927,-.013442>
	.xyz	<-0.622137,0.028971,-.015268>
	.xyz	<-0.622137,0.029841,-.017182>
	.xyz	<-0.622137,0.030624,-.019096>
	.xyz	<-0.622137,0.031320,-.021097>
	.xyz	<-0.622137,0.031842,-.023186>
	.xyz	<-0.622137,0.032190,-.025186>
	.xyz	<-0.622137,0.032451,-.027275>
	.xyz	<-0.622137,0.032625,-.029362>
	.xyz	<-0.622137,0.032625,-.031450>
	.xyz	<-0.622137,0.032451,-.033539>
	.xyz	<-0.622137,0.032190,-.035627>
	.xyz	<-0.622137,0.031842,-.037714>
	.xyz	<-0.622137,0.031320,-.039715>
	.xyz	<-0.622137,0.030624,-.041717>
	.xyz	<-0.622137,0.029841,-.043630>
	.xyz	<-0.622137,0.028971,-.045545>
	.xyz	<-0.622137,0.027927,-.047371>
	.xyz	<-0.622137,0.026796,-.049112>
	.xyz	<-0.622137,0.025491,-.050765>
	.xyz	<-0.622137,0.024186,-.052418>
	.xyz	<-0.622137,0.022707,-.053897>
	.xyz	<-0.622137,0.021141,-.055289>
	.xyz	<-0.622137,0.019488,-.056594>
	.xyz	<-0.622137,0.017748,-.057811>
	.xyz	<-0.622137,0.016008,-.058943>
	.xyz	<-0.622137,0.014181,-.059900>
	.xyz	<-0.622137,0.012267,-.060683>
	.xyz	<-0.622137,0.010266,-.061466>
	.xyz	<-0.622137,0.008265,-.062075>
	.xyz	<-0.622137,0.006177,-.062509>
	.xyz	<-0.622137,0.004176,-.062858>
	.xyz	<-0.622137,0.002088,-.063032>
	.xyz	<-0.622137,0.000000,-.063119>
	polyline 50
	.xyz	<-0.562455,0.000000,0.019227>
	.xyz	<-0.562455,0.002697,0.019183>
	.xyz	<-0.562455,0.005481,0.018923>
	.xyz	<-0.562455,0.008265,0.018488>
	.xyz	<-0.562455,0.010962,0.017879>
	.xyz	<-0.562455,0.013572,0.017096>
	.xyz	<-0.562455,0.016182,0.016138>
	.xyz	<-0.562455,0.018705,0.015007>
	.xyz	<-0.562455,0.021228,0.013702>
	.xyz	<-0.562455,0.023577,0.012311>
	.xyz	<-0.562455,0.025839,0.010744>
	.xyz	<-0.562455,0.028014,0.009004>
	.xyz	<-0.562455,0.030102,0.007091>
	.xyz	<-0.562455,0.032016,0.005089>
	.xyz	<-0.562455,0.033756,0.003001>
	.xyz	<-0.562455,0.035496,0.000827>
	.xyz	<-0.562455,0.036975,-.001522>
	.xyz	<-0.562455,0.038367,-.003958>
	.xyz	<-0.562455,0.039498,-.006481>
	.xyz	<-0.562455,0.040542,-.009004>
	.xyz	<-0.562455,0.041412,-.011702>
	.xyz	<-0.562455,0.042195,-.014311>
	.xyz	<-0.562455,0.042717,-.017096>
	.xyz	<-0.562455,0.043065,-.019793>
	.xyz	<-0.562455,0.043239,-.022576>
	.xyz	<-0.562455,0.043239,-.025361>
	.xyz	<-0.562455,0.043065,-.028144>
	.xyz	<-0.562455,0.042717,-.030928>
	.xyz	<-0.562455,0.042195,-.033625>
	.xyz	<-0.562455,0.041412,-.036323>
	.xyz	<-0.562455,0.040542,-.038932>
	.xyz	<-0.562455,0.039498,-.041543>
	.xyz	<-0.562455,0.038367,-.043979>
	.xyz	<-0.562455,0.036975,-.046415>
	.xyz	<-0.562455,0.035496,-.048763>
	.xyz	<-0.562455,0.033756,-.050939>
	.xyz	<-0.562455,0.032016,-.053114>
	.xyz	<-0.562455,0.030102,-.055115>
	.xyz	<-0.562455,0.028014,-.056942>
	.xyz	<-0.562455,0.025839,-.058681>
	.xyz	<-0.562455,0.023577,-.060247>
	.xyz	<-0.562455,0.021228,-.061726>
	.xyz	<-0.562455,0.018705,-.062945>
	.xyz	<-0.562455,0.016182,-.064075>
	.xyz	<-0.562455,0.013572,-.065032>
	.xyz	<-0.562455,0.010962,-.065816>
	.xyz	<-0.562455,0.008265,-.066425>
	.xyz	<-0.562455,0.005481,-.066946>
	.xyz	<-0.562455,0.002697,-.067208>
	.xyz	<-0.562455,0.000000,-.067295>
	jmpl	(r2 + 0),r2	; Return
vec2:
; Lines going back along the nose
	polyline 6
	.xyz	<-0.716532,0.000000,-.041064>
	.xyz	<-0.701655,0.000000,-.031799>
	.xyz	<-0.688431,0.000000,-.024403>
	.xyz	<-0.666246,0.000000,-.011528>
	.xyz	<-0.622137,0.000000,0.002305>
	.xyz	<-0.562455,0.000000,0.019271>
	polyline 6
	.xyz	<-0.716532,0.000000,-.041064>
	.xyz	<-0.701655,0.000435,-.031799>
	.xyz	<-0.688431,0.000783,-.024403>
	.xyz	<-0.666246,0.001392,-.011614>
	.xyz	<-0.622137,0.002088,0.002219>
	.xyz	<-0.562455,0.002697,0.019183>
	polyline 6
	.xyz	<-0.716532,0.000000,-.041064>
	.xyz	<-0.701655,0.000957,-.031886>
	.xyz	<-0.688431,0.001566,-.024490>
	.xyz	<-0.666246,0.002871,-.011702>
	.xyz	<-0.622137,0.004176,0.001958>
	.xyz	<-0.562455,0.005481,0.018923>
	polyline 6