depth_cueing.hasm

操作系统SunOS 4.1.3版本的源码

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

#include "hasm_public.h"
;
; The "Utah Teapot"
;
; Looks good at: hk_sim -fe "-s0.25 -x-110 -z15" tea.hasm
;

start:
	set_attribute	hk_line_color
	.rgb		<1.0, 1.0, 1.0>
	set_attribute	hk_line_antialiasing
	.word		TRUE
	set_attribute	hk_z_buffer_compare
	.word		FALSE
	set_attribute	hk_z_buffer_update
	.word		HK_Z_UPDATE_NONE
	set_attribute	hk_depth_cue_enable
	.word		TRUE
	set_attribute	hk_depth_cue_color
	.rgb		< 0.0, 0.0, 0.0 >
	set_attribute	hk_depth_cue_parameters
	.word		0.1		; z front
	.word		0.0		; z back
	.word		1.0		; z scale front
	.word		0.1		; z scale back

	set_attribute	hk_pre_concat_lmt
	.translate	<0.0, -0.55, -0.10>
	set_attribute	hk_pre_concat_lmt
	.scale		0.35
	set_attribute	hk_pre_concat_lmt
	.rotate_x	105.0
	set_attribute	hk_pre_concat_lmt
	.rotate_z	-30.0
	set_attribute	hk_pre_concat_lmt
	.rotate_y	5.0

	set_attribute	hk_line_geom_format
	.word		HK_LINE_XYZ

polyline 11
	.xyz < 1.4,0.0,2.4 >
	.xyz < 1.38592,0.0,2.43544 >
	.xyz < 1.3804,0.0,2.463 >
	.xyz < 1.38222,0.0,2.48269 >
	.xyz < 1.3902,0.0,2.4945 >
	.xyz < 1.40313,0.0,2.49844 >
	.xyz < 1.4198,0.0,2.4945 >
	.xyz < 1.43903,0.0,2.48269 >
	.xyz < 1.4596,0.0,2.463 >
	.xyz < 1.48032,0.0,2.43544 >
	.xyz < 1.5,0.0,2.4 >
    ;
polyline 11
	.xyz < 1.4,0.0,2.4 >
	.xyz < 1.38197,-.229712,2.4 >
	.xyz < 1.32966,-.446656,2.4 >
	.xyz < 1.24578,-.648144,2.4 >
	.xyz < 1.13299,-.831488,2.4 >
	.xyz < .994,-.994,2.4 >
	.xyz < .831488,-1.13299,2.4 >
	.xyz < .648144,-1.24578,2.4 >
	.xyz < .446656,-1.32966,2.4 >
	.xyz < .229712,-1.38197,2.4 >
	.xyz < 0.0,-1.4,2.4 >
    ;
polyline 11
	.xyz < 1.38197,-.229712,2.4 >
	.xyz < 1.36807,-.227403,2.43544 >
	.xyz < 1.36262,-.226496,2.463 >
	.xyz < 1.36442,-.226795,2.48269 >
	.xyz < 1.37229,-.228104,2.4945 >
	.xyz < 1.38505,-.230225,2.49844 >
	.xyz < 1.40151,-.232961,2.4945 >
	.xyz < 1.42049,-.236115,2.48269 >
	.xyz < 1.4408,-.239491,2.463 >
	.xyz < 1.46126,-.242892,2.43544 >
	.xyz < 1.48068,-.24612,2.4 >
    ;
polyline 11
	.xyz < 1.38592,0.0,2.43544 >
	.xyz < 1.36807,-.227403,2.43544 >
	.xyz < 1.3163,-.442165,2.43544 >
	.xyz < 1.23325,-.641628,2.43544 >
	.xyz < 1.1216,-.823129,2.43544 >
	.xyz < .984007,-.984007,2.43544 >
	.xyz < .823128,-1.1216,2.43544 >
	.xyz < .641628,-1.23325,2.43544 >
	.xyz < .442165,-1.3163,2.43544 >
	.xyz < .227402,-1.36807,2.43544 >
	.xyz < 0.0,-1.38592,2.43544 >
    ;
polyline 11
	.xyz < 1.32966,-.446656,2.4 >
	.xyz < 1.3163,-.442165,2.43544 >
	.xyz < 1.31105,-.440403,2.463 >
	.xyz < 1.31278,-.440985,2.48269 >
	.xyz < 1.32036,-.443529,2.4945 >
	.xyz < 1.33263,-.447653,2.49844 >
	.xyz < 1.34847,-.452973,2.4945 >
	.xyz < 1.36673,-.459107,2.48269 >
	.xyz < 1.38627,-.465671,2.463 >
	.xyz < 1.40595,-.472283,2.43544 >
	.xyz < 1.42464,-.47856,2.4 >
    ;
polyline 11
	.xyz < 1.3804,0.0,2.463 >
	.xyz < 1.36262,-.226496,2.463 >
	.xyz < 1.31105,-.440403,2.463 >
	.xyz < 1.22834,-.63907,2.463 >
	.xyz < 1.11713,-.819847,2.463 >
	.xyz < .980084,-.980084,2.463 >
	.xyz < .819847,-1.11713,2.463 >
	.xyz < .63907,-1.22834,2.463 >
	.xyz < .440403,-1.31105,2.463 >
	.xyz < .226496,-1.36262,2.463 >
	.xyz < 0.0,-1.3804,2.463 >
    ;
polyline 11
	.xyz < 1.24578,-.648144,2.4 >
	.xyz < 1.23325,-.641628,2.43544 >
	.xyz < 1.22834,-.63907,2.463 >
	.xyz < 1.22996,-.639915,2.48269 >
	.xyz < 1.23706,-.643607,2.4945 >
	.xyz < 1.24856,-.649591,2.49844 >
	.xyz < 1.26339,-.657311,2.4945 >
	.xyz < 1.2805,-.666211,2.48269 >
	.xyz < 1.29881,-.675736,2.463 >
	.xyz < 1.31725,-.685331,2.43544 >
	.xyz < 1.33476,-.69444,2.4 >
    ;
polyline 11
	.xyz < 1.38222,0.0,2.48269 >
	.xyz < 1.36442,-.226795,2.48269 >
	.xyz < 1.31278,-.440985,2.48269 >
	.xyz < 1.22996,-.639915,2.48269 >
	.xyz < 1.11861,-.820931,2.48269 >
	.xyz < .98138,-.98138,2.48269 >
	.xyz < .820931,-1.11861,2.48269 >
	.xyz < .639915,-1.22996,2.48269 >
	.xyz < .440985,-1.31278,2.48269 >
	.xyz < .226795,-1.36442,2.48269 >
	.xyz < 0.0,-1.38222,2.48269 >
    ;
polyline 11
	.xyz < 1.13299,-.831488,2.4 >
	.xyz < 1.1216,-.823129,2.43544 >
	.xyz < 1.11713,-.819847,2.463 >
	.xyz < 1.11861,-.820931,2.48269 >
	.xyz < 1.12506,-.825668,2.4945 >
	.xyz < 1.13552,-.833344,2.49844 >
	.xyz < 1.14902,-.843248,2.4945 >
	.xyz < 1.16457,-.854666,2.48269 >
	.xyz < 1.18123,-.866886,2.463 >
	.xyz < 1.198,-.879195,2.43544 >
	.xyz < 1.21392,-.89088,2.4 >
    ;
polyline 11
	.xyz < 1.3902,0.0,2.4945 >
	.xyz < 1.37229,-.228104,2.4945 >
	.xyz < 1.32036,-.443529,2.4945 >
	.xyz < 1.23706,-.643607,2.4945 >
	.xyz < 1.12506,-.825668,2.4945 >
	.xyz < .987042,-.987042,2.4945 >
	.xyz < .825668,-1.12506,2.4945 >
	.xyz < .643607,-1.23706,2.4945 >
	.xyz < .443529,-1.32036,2.4945 >
	.xyz < .228104,-1.37229,2.4945 >
	.xyz < 0.0,-1.3902,2.4945 >
    ;
polyline 11
	.xyz < .994,-.994,2.4 >
	.xyz < .984007,-.984007,2.43544 >
	.xyz < .980084,-.980084,2.463 >
	.xyz < .98138,-.98138,2.48269 >
	.xyz < .987042,-.987042,2.4945 >
	.xyz < .996219,-.996219,2.49844 >
	.xyz < 1.00806,-1.00806,2.4945 >
	.xyz < 1.02171,-1.02171,2.48269 >
	.xyz < 1.03632,-1.03632,2.463 >
	.xyz < 1.05103,-1.05103,2.43544 >
	.xyz < 1.065,-1.065,2.4 >
    ;
polyline 11
	.xyz < 1.40313,0.0,2.49844 >
	.xyz < 1.38505,-.230225,2.49844 >
	.xyz < 1.33263,-.447653,2.49844 >
	.xyz < 1.24856,-.649591,2.49844 >
	.xyz < 1.13552,-.833344,2.49844 >
	.xyz < .996219,-.996219,2.49844 >
	.xyz < .833344,-1.13552,2.49844 >
	.xyz < .649591,-1.24856,2.49844 >
	.xyz < .447653,-1.33263,2.49844 >
	.xyz < .230225,-1.38505,2.49844 >
	.xyz < 0.0,-1.40313,2.49844 >
    ;
polyline 11
	.xyz < .831488,-1.13299,2.4 >
	.xyz < .823128,-1.1216,2.43544 >
	.xyz < .819847,-1.11713,2.463 >
	.xyz < .820931,-1.11861,2.48269 >
	.xyz < .825668,-1.12506,2.4945 >
	.xyz < .833344,-1.13552,2.49844 >
	.xyz < .843248,-1.14902,2.4945 >
	.xyz < .854666,-1.16457,2.48269 >
	.xyz < .866886,-1.18123,2.463 >
	.xyz < .879195,-1.198,2.43544 >
	.xyz < .89088,-1.21392,2.4 >
    ;
polyline 11
	.xyz < 1.4198,0.0,2.4945 >
	.xyz < 1.40151,-.232961,2.4945 >
	.xyz < 1.34847,-.452973,2.4945 >
	.xyz < 1.26339,-.657311,2.4945 >
	.xyz < 1.14902,-.843248,2.4945 >
	.xyz < 1.00806,-1.00806,2.4945 >
	.xyz < .843248,-1.14902,2.4945 >
	.xyz < .65731,-1.26339,2.4945 >
	.xyz < .452973,-1.34847,2.4945 >
	.xyz < .232961,-1.40151,2.4945 >
	.xyz < 0.0,-1.4198,2.4945 >
    ;
polyline 11
	.xyz < .648144,-1.24578,2.4 >
	.xyz < .641628,-1.23325,2.43544 >
	.xyz < .63907,-1.22834,2.463 >
	.xyz < .639915,-1.22996,2.48269 >
	.xyz < .643607,-1.23706,2.4945 >
	.xyz < .649591,-1.24856,2.49844 >
	.xyz < .65731,-1.26339,2.4945 >
	.xyz < .666211,-1.2805,2.48269 >
	.xyz < .675736,-1.29881,2.463 >
	.xyz < .685331,-1.31725,2.43544 >
	.xyz < .69444,-1.33476,2.4 >
    ;
polyline 11
	.xyz < 1.43903,0.0,2.48269 >
	.xyz < 1.42049,-.236115,2.48269 >
	.xyz < 1.36673,-.459107,2.48269 >
	.xyz < 1.2805,-.666211,2.48269 >
	.xyz < 1.16457,-.854666,2.48269 >
	.xyz < 1.02171,-1.02171,2.48269 >
	.xyz < .854666,-1.16457,2.48269 >
	.xyz < .666211,-1.2805,2.48269 >
	.xyz < .459106,-1.36673,2.48269 >
	.xyz < .236115,-1.42049,2.48269 >
	.xyz < 0.0,-1.43903,2.48269 >
    ;
polyline 11
	.xyz < .446656,-1.32966,2.4 >
	.xyz < .442165,-1.3163,2.43544 >
	.xyz < .440403,-1.31105,2.463 >
	.xyz < .440985,-1.31278,2.48269 >
	.xyz < .443529,-1.32036,2.4945 >
	.xyz < .447653,-1.33263,2.49844 >
	.xyz < .452973,-1.34847,2.4945 >
	.xyz < .459106,-1.36673,2.48269 >
	.xyz < .465671,-1.38627,2.463 >
	.xyz < .472283,-1.40595,2.43544 >
	.xyz < .47856,-1.42464,2.4 >
    ;
polyline 11
	.xyz < 1.4596,0,2.463 >
	.xyz < 1.4408,-.239491,2.463 >
	.xyz < 1.38627,-.465671,2.463 >
	.xyz < 1.29881,-.675736,2.463 >
	.xyz < 1.18123,-.866886,2.463 >
	.xyz < 1.03632,-1.03632,2.463 >
	.xyz < .866886,-1.18123,2.463 >
	.xyz < .675736,-1.29881,2.463 >
	.xyz < .465671,-1.38627,2.463 >
	.xyz < .239491,-1.4408,2.463 >
	.xyz < 0.0,-1.4596,2.463 >
    ;
polyline 11
	.xyz < .229712,-1.38197,2.4 >
	.xyz < .227402,-1.36807,2.43544 >
	.xyz < .226496,-1.36262,2.463 >
	.xyz < .226795,-1.36442,2.48269 >
	.xyz < .228104,-1.37229,2.4945 >
	.xyz < .230225,-1.38505,2.49844 >
	.xyz < .232961,-1.40151,2.4945 >
	.xyz < .236115,-1.42049,2.48269 >
	.xyz < .239491,-1.4408,2.463 >
	.xyz < .242892,-1.46126,2.43544 >
	.xyz < .24612,-1.48068,2.4 >
    ;
polyline 11
	.xyz < 1.48032,0,2.43544 >
	.xyz < 1.46126,-.242892,2.43544 >
	.xyz < 1.40595,-.472283,2.43544 >
	.xyz < 1.31725,-.685331,2.43544 >
	.xyz < 1.198,-.879195,2.43544 >
	.xyz < 1.05103,-1.05103,2.43544 >
	.xyz < .879195,-1.198,2.43544 >
	.xyz < .685331,-1.31725,2.43544 >
	.xyz < .472283,-1.40595,2.43544 >
	.xyz < .242892,-1.46126,2.43544 >
	.xyz < 0.0,-1.48032,2.43544 >
    ;
polyline 11
	.xyz < 0.0,-1.4,2.4 >
	.xyz < 0.0,-1.38592,2.43544 >
	.xyz < 0.0,-1.3804,2.463 >
	.xyz < 0.0,-1.38222,2.48269 >
	.xyz < 0.0,-1.3902,2.4945 >
	.xyz < 0.0,-1.40313,2.49844 >
	.xyz < 0.0,-1.4198,2.4945 >
	.xyz < 0.0,-1.43903,2.48269 >
	.xyz < 0.0,-1.4596,2.463 >
	.xyz < 0.0,-1.48032,2.43544 >
	.xyz < 0.0,-1.5,2.4 >
    ;
polyline 11
	.xyz < 1.5,0,2.4 >
	.xyz < 1.48068,-.24612,2.4 >
	.xyz < 1.42464,-.47856,2.4 >
	.xyz < 1.33476,-.69444,2.4 >
	.xyz < 1.21392,-.89088,2.4 >
	.xyz < 1.065,-1.065,2.4 >
	.xyz < .89088,-1.21392,2.4 >
	.xyz < .69444,-1.33476,2.4 >
	.xyz < .47856,-1.42464,2.4 >
	.xyz < .24612,-1.48068,2.4 >
	.xyz < 0.0,-1.5,2.4 >
    ;
polyline 11
	.xyz < 0,-1.4,2.4 >
	.xyz < 0,-1.38592,2.43544 >
	.xyz < 0,-1.3804,2.463 >
	.xyz < 0,-1.38222,2.48269 >
	.xyz < 0,-1.3902,2.4945 >
	.xyz < 0,-1.40313,2.49844 >
	.xyz < 0,-1.4198,2.4945 >
	.xyz < 0,-1.43903,2.48269 >
	.xyz < 0,-1.4596,2.463 >
	.xyz < 0,-1.48032,2.43544 >
	.xyz < 0,-1.5,2.4 >
    ;
polyline 11
	.xyz < 0,-1.4,2.4 >
	.xyz < -.229712,-1.38197,2.4 >
	.xyz < -.446656,-1.32966,2.4 >
	.xyz < -.648144,-1.24578,2.4 >
	.xyz < -.831488,-1.13299,2.4 >
	.xyz < -.994,-.994,2.4 >
	.xyz < -1.13299,-.831488,2.4 >
	.xyz < -1.24578,-.648144,2.4 >
	.xyz < -1.32966,-.446656,2.4 >
	.xyz < -1.38197,-.229712,2.4 >
	.xyz < -1.4,2.8038e-07,2.4 >
    ;
polyline 11
	.xyz < -.229712,-1.38197,2.4 >
	.xyz < -.227403,-1.36807,2.43544 >
	.xyz < -.226496,-1.36262,2.463 >
	.xyz < -.226795,-1.36442,2.48269 >
	.xyz < -.228104,-1.37229,2.4945 >
	.xyz < -.230225,-1.38505,2.49844 >
	.xyz < -.232961,-1.40151,2.4945 >
	.xyz < -.236115,-1.42049,2.48269 >
	.xyz < -.239491,-1.4408,2.463 >
	.xyz < -.242892,-1.46126,2.43544 >
	.xyz < -.24612,-1.48068,2.4 >
    ;
polyline 11
	.xyz < 0,-1.38592,2.43544 >
	.xyz < -.227403,-1.36807,2.43544 >
	.xyz < -.442165,-1.3163,2.43544 >
	.xyz < -.641628,-1.23325,2.43544 >
	.xyz < -.823129,-1.1216,2.43544 >
	.xyz < -.984007,-.984007,2.43544 >
	.xyz < -1.1216,-.823128,2.43544 >
	.xyz < -1.23325,-.641628,2.43544 >
	.xyz < -1.3163,-.442165,2.43544 >
	.xyz < -1.36807,-.227402,2.43544 >
	.xyz < -1.38592,2.77561e-07,2.43544 >
    ;
polyline 11
	.xyz < -.446656,-1.32966,2.4 >
	.xyz < -.442165,-1.3163,2.43544 >
	.xyz < -.440403,-1.31105,2.463 >
	.xyz < -.440985,-1.31278,2.48269 >
	.xyz < -.443529,-1.32036,2.4945 >
	.xyz < -.447653,-1.33263,2.49844 >
	.xyz < -.452973,-1.34847,2.4945 >
	.xyz < -.459107,-1.36673,2.48269 >
	.xyz < -.465671,-1.38627,2.463 >
	.xyz < -.472283,-1.40595,2.43544 >
	.xyz < -.47856,-1.42464,2.4 >
    ;
polyline 11
	.xyz < 0,-1.3804,2.463 >
	.xyz < -.226496,-1.36262,2.463 >
	.xyz < -.440403,-1.31105,2.463 >
	.xyz < -.63907,-1.22834,2.463 >
	.xyz < -.819847,-1.11713,2.463 >
	.xyz < -.980084,-.980084,2.463 >
	.xyz < -1.11713,-.819847,2.463 >
	.xyz < -1.22834,-.63907,2.463 >
	.xyz < -1.31105,-.440403,2.463 >
	.xyz < -1.36262,-.226496,2.463 >
	.xyz < -1.3804,2.76455e-07,2.463 >
    ;
polyline 11
	.xyz < -.648144,-1.24578,2.4 >
	.xyz < -.641628,-1.23325,2.43544 >
	.xyz < -.63907,-1.22834,2.463 >
	.xyz < -.639915,-1.22996,2.48269 >
	.xyz < -.643607,-1.23706,2.4945 >
	.xyz < -.649591,-1.24856,2.49844 >
	.xyz < -.657311,-1.26339,2.4945 >
	.xyz < -.666211,-1.2805,2.48269 >
	.xyz < -.675736,-1.29881,2.463 >
	.xyz < -.685331,-1.31725,2.43544 >
	.xyz < -.69444,-1.33476,2.4 >
    ;
polyline 11
	.xyz < 0,-1.38222,2.48269 >
	.xyz < -.226795,-1.36442,2.48269 >
	.xyz < -.440985,-1.31278,2.48269 >
	.xyz < -.639915,-1.22996,2.48269 >
	.xyz < -.820931,-1.11861,2.48269 >
	.xyz < -.98138,-.98138,2.48269 >
	.xyz < -1.11861,-.820931,2.48269 >
	.xyz < -1.22996,-.639915,2.48269 >
	.xyz < -1.31278,-.440985,2.48269 >
	.xyz < -1.36442,-.226795,2.48269 >
	.xyz < -1.38222,2.7682e-07,2.48269 >
    ;
polyline 11
	.xyz < -.831488,-1.13299,2.4 >
	.xyz < -.823129,-1.1216,2.43544 >
	.xyz < -.819847,-1.11713,2.463 >
	.xyz < -.820931,-1.11861,2.48269 >
	.xyz < -.825668,-1.12506,2.4945 >
	.xyz < -.833344,-1.13552,2.49844 >
	.xyz < -.843248,-1.14902,2.4945 >
	.xyz < -.854666,-1.16457,2.48269 >
	.xyz < -.866886,-1.18123,2.463 >
	.xyz < -.879195,-1.198,2.43544 >
	.xyz < -.89088,-1.21392,2.4 >
    ;
polyline 11
	.xyz < 0,-1.3902,2.4945 >