;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;                                             ;;;;;;;;
;;;;;;;; Example Shape #0 - More than one SHAPE file ;;;;;;;;
;;;;;;;; is used to describe a single 3D object. The ;;;;;;;;
;;;;;;;; SHAPEs change depending on distance.        ;;;;;;;;
;;;;;;;;                                             ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;This SHAPE only uses TWO of a possible FOUR list definitions


	DOT 18000,60		;the SHAPE turns into a DOT at 18000 UNITs

	QUAD 16000,60		;the SHAPE turns into a QUAD at 16000 UNITs

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	SHAPE 16000

;;;;;;;;;vertex list;;;;;;;;;;;;;;;;;;;;;;

	VERTEX 01,-110,-100,90	
	VERTEX 02,-110,-160,0	
	VERTEX 03,-110,-100,-90	
	VERTEX 04,-110,-50,-90	
	VERTEX 05,-110,0,-90	
	VERTEX 06,-110,0,90	
	VERTEX 07,-110,-50,90
	VERTEX 101,110,-100,90	
	VERTEX 102,110,-160,0	
	VERTEX 103,110,-100,-90	
	VERTEX 104,110,-50,-90	
	VERTEX 105,110,0,-90	
	VERTEX 106,110,0,90	
	VERTEX 107,110,-50,90

	IFVIS 5,3,1 GOTO nolwall
	VERTEX 11,-110,-130,0
	VERTEX 12,-110,-80,41
	VERTEX 13,-110,-80,-41
	DRWPOLY 022,1,2,3			;l_wall
	DRWPOLY 022,1,3,4,7
	DRWPOLY 58,4,5,6,7
	IFDIST>6400 GOTO skip1
	DRWQUAD 45,11
	DRWQUAD 45,12
	DRWQUAD 45,13
skip1:
	DRWDOT 59,11
	DRWDOT 59,12
	DRWDOT 219,13
nolwall:
	IFVIS 101,103,105 GOTO norwall
	DRWPOLY 022,103,102,101		;r_wall
	DRWPOLY 022,104,103,101,107
	DRWPOLY 58,106,105,104,107
	VERTEX 111,110,-130,0
	VERTEX 112,110,-80,41
	VERTEX 113,110,-80,-41
	IFDIST>6400 GOTO skip2
	DRWQUAD 45,111
	DRWQUAD 45,112
	DRWQUAD 45,113
skip2:
	DRWDOT 219,111
	DRWDOT 59,112
	DRWDOT 219,113
norwall:
	IFVIS 103,3,5 GOTO nofwall
	DRWPOLY 20,3,103,104,4		;front
	DRWPOLY 169-80-32,4,104,105,5
	VERTEX 14,-70,-80,-90
	VERTEX 15,-70,-30,-90
	VERTEX 16,0,-80,-90
	VERTEX 17,0,-30,-90
	VERTEX 18,70,-80,-90
	VERTEX 19,70,-30,-90
	IFDIST>6400 GOTO skip3
	DRWQUAD 45,14
	DRWQUAD 45,15
	DRWQUAD 45,16
	DRWQUAD 45,17
	DRWQUAD 45,18
	DRWQUAD 45,19
skip3:
	DRWDOT 219,14
	DRWDOT 59,15
	DRWDOT 59,16
	DRWDOT 219,17
	DRWDOT 59,18
	DRWDOT 219,19
nofwall:
	DRWPOLY 28,1,7,107,101		;back
	DRWPOLY 59,7,6,106,107
	DRWPOLY 168,3,2,102,103		;roof
	DRWPOLY 169,2,1,101,102

	RETURN
	END			;This is the end of the furthest SHAPE
				;definition. When the SHAPE is within
				;3000 UNITs the SHAPE below is rendered.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	SHAPE 3000

;;;;;;;;;vertex list;;;;;;;;;;;;;;;;;;;;;;

	VERTEX 01,-110,-100,90	
	VERTEX 02,-110,-160,0	
	VERTEX 03,-110,-100,-90	
	VERTEX 04,-110,-50,-90	
	VERTEX 05,-110,0,-90	
	VERTEX 06,-110,0,90	
	VERTEX 07,-110,-50,90
	VERTEX 08,-120,-94,99	
	VERTEX 09,-120,-160,0	
	VERTEX 10,-120,-94,-99	
	VERTEX 101,110,-100,90	
	VERTEX 102,110,-160,0	
	VERTEX 103,110,-100,-90	
	VERTEX 104,110,-50,-90	
	VERTEX 105,110,0,-90	
	VERTEX 106,110,0,90	
	VERTEX 107,110,-50,90
	VERTEX 108,120,-94,99	
	VERTEX 109,120,-160,0	
	VERTEX 110,120,-94,-99	

	DRWPOLY 29,09,02,01,08			;inner bits
	DRWPOLY 30,02,09,10,03
	DRWPOLY 30,108,8,1,101
	DRWPOLY 29,101,102,109,108
	DRWPOLY 30,110,109,102,103
	DRWPOLY 31,10,110,103,3
	DRWPOLY 28,1,7,107,101
	DRWPOLY 59,7,6,106,107

	IFVIS 3,1,6 GOTO nolwall
	VERTEX 11,-110,-140,10
	VERTEX 12,-110,-140,-10
	VERTEX 13,-110,-120,-10
	VERTEX 14,-110,-120,10
	VERTEX 15,-110,-90,52
	VERTEX 16,-110,-90,30
	VERTEX 17,-110,-65,30
	VERTEX 18,-110,-65,52
	VERTEX 19,-110,-90,-30
	VERTEX 20,-110,-90,-52
	VERTEX 21,-110,-65,-52
	VERTEX 22,-110,-65,-30
	DRWPOLY 022,1,2,3			;l_wall
	DRWPOLY 022,1,3,4,7
	DRWPOLY 58,4,5,6,7
	DRWPOLY b57,4,5,6,7
	DRWPOLY 58,11,12,13,14
	DRWPOLY 58,15,16,17,18
	DRWPOLY 219,19,20,21,22
	DRWLINE 47,11,12
	DRWLINE 47,12,13
	DRWLINE 47,13,14
	DRWLINE 47,14,11
	DRWLINE 47,15,16
	DRWLINE 47,16,17
	DRWLINE 47,17,18
	DRWLINE 47,18,15
	DRWLINE 47,19,20
	DRWLINE 47,20,21
	DRWLINE 47,21,22
	DRWLINE 47,22,19
nolwall:
	IFVIS 106,101,103 GOTO norwall
	VERTEX 111,110,-140,10
	VERTEX 112,110,-140,-10
	VERTEX 113,110,-120,-10
	VERTEX 114,110,-120,10
	VERTEX 115,110,-90,52
	VERTEX 116,110,-90,30
	VERTEX 117,110,-65,30
	VERTEX 118,110,-65,52
	VERTEX 119,110,-90,-30
	VERTEX 120,110,-90,-52
	VERTEX 121,110,-65,-52
	VERTEX 122,110,-65,-30
	DRWPOLY 022,103,102,101		;r_wall
	DRWPOLY 022,104,103,101,107
	DRWPOLY 58,106,105,104,107
	DRWPOLY b57,106,105,104,107
	DRWPOLY 219,113,112,111,114
	DRWPOLY 59,117,116,115,118
	DRWPOLY 59,121,120,119,122
	DRWLINE 47,111,112
	DRWLINE 47,112,113
	DRWLINE 47,113,114
	DRWLINE 47,114,111
	DRWLINE 47,115,116
	DRWLINE 47,116,117
	DRWLINE 47,117,118
	DRWLINE 47,118,115
	DRWLINE 47,119,120
	DRWLINE 47,120,121
	DRWLINE 47,121,122
	DRWLINE 47,122,119
norwall:
	IFVIS 103,3,5 GOTO nofront
	VERTEX 23,-84,-90,-90
	VERTEX 24,-50,-90,-90
	VERTEX 25,-50,-65,-90
	VERTEX 26,-84,-65,-90
	VERTEX 27,-84,-40,-90
	VERTEX 28,-50,-40,-90
	VERTEX 29,-50,-15,-90
	VERTEX 30,-84,-15,-90
	VERTEX 31,-12,-90,-90
	VERTEX 32,-12,-65,-90
	VERTEX 33,-12,-40,-90
	VERTEX 34,-12,-15,-90
	VERTEX 123,84,-90,-90
	VERTEX 124,50,-90,-90
	VERTEX 125,50,-65,-90
	VERTEX 126,84,-65,-90
	VERTEX 127,84,-40,-90
	VERTEX 128,50,-40,-90
	VERTEX 129,50,-15,-90
	VERTEX 130,84,-15,-90
	VERTEX 131,12,-90,-90
	VERTEX 132,12,-65,-90
	VERTEX 133,12,-40,-90
	VERTEX 134,12,-15,-90
	DRWPOLY 20,3,103,104,4		;front
	DRWPOLY 57,4,104,105,5
	DRWPOLY b56,4,104,105,5
	DRWPOLY 59,23,24,25,26
	DRWPOLY 219,27,28,29,30
	DRWPOLY 219,31,131,132,32
	DRWPOLY 59,33,133,134,34
	DRWPOLY 219,125,124,123,126
	DRWPOLY 59,129,128,127,130
	DRWLINE 47,23,24
	DRWLINE 47,24,25
	DRWLINE 47,25,26
	DRWLINE 47,26,23
	DRWLINE 47,27,28
	DRWLINE 47,28,29
	DRWLINE 47,29,30
	DRWLINE 47,30,27
	DRWLINE 47,31,32
	DRWLINE 47,32,132
	DRWLINE 47,31,131
	DRWLINE 47,131,132
	DRWLINE 47,123,124
	DRWLINE 47,124,125
	DRWLINE 47,125,126
	DRWLINE 47,126,123
	DRWLINE 47,127,128
	DRWLINE 47,128,129
	DRWLINE 47,129,130
	DRWLINE 47,130,127
	DRWLINE 47,33,34
	DRWLINE 47,133,33
	DRWLINE 47,133,134
	DRWLINE 47,134,34
nofront:
	DRWPOLY 168,10,9,109,110		;roof
	DRWPOLY b167,10,9,109,110
	DRWPOLY 169,9,8,108,109
	DRWPOLY b168,9,8,108,109

	RETURN
	END
