'===========================================================================
' Subject: 3D CONSTRUCTION                   Date: 07-25-99 (11:59)       
' Author:  Marc Santa                        Code: QB, QBasic, PDS        
' Origin:  santa@tir.com                   Packet: GRAPHICS.ABC
'===========================================================================
SCREEN 13
H# = 84
DIM x(1 TO H#)
DIM y(1 TO H#)
DIM Z(1 TO H#)
DIM C(1 TO H#)
DIM U(1 TO H#)
DIM V(1 TO H#)
CLS
FOR I = 1 TO H#
READ x(I), y(I), Z(I)
READ C(I), U(I), V(I)
NEXT
DO

' ROUTINE 1
f# = 1
FOR S = 1 TO 220
FOR I = 1 TO H#
LINE ((x(I) + S) / Z(I), y(I) / Z(I))-((C(I) + S) / V(I), U(I) / V(I)), 10

IF f# = 1 THEN
FOR H = 1 TO 100000
NEXT
END IF
NEXT
f# = 2
FOR I = 1 TO 5000
NEXT
CLS
NEXT

'ROUTINE 2
FOR S = 220 TO 1 STEP -1
FOR I = 1 TO H#
LINE ((x(I) + S) / Z(I), y(I) / Z(I))-((C(I) + S) / V(I), U(I) / V(I)), 10
NEXT
FOR I = 1 TO 5000
NEXT
CLS
NEXT

'ROUTINE 3
FOR S = 1 TO 20
FOR I = 1 TO H#
LINE (x(I) / Z(I), (y(I) + S) / Z(I))-(C(I) / V(I), (U(I) + S) / V(I)), 10
NEXT
FOR I = 1 TO 5000
NEXT
CLS
NEXT

'ROUTINE 4
FOR S = 20 TO -200 STEP -1
FOR I = 1 TO H#
LINE (x(I) / Z(I), (y(I) + S) / Z(I))-(C(I) / V(I), (U(I) + S) / V(I)), 10
NEXT
FOR I = 1 TO 5000
NEXT
CLS
NEXT
END
LOOP


' BOX 1
DATA 100, 100, 1
DATA 50, 100, 1
DATA 50, 100, 1
DATA 50, 150, 1
DATA 50, 150, 1
DATA 100, 150, 1
DATA 100, 150, 1
DATA 100, 100, 1

DATA 100, 100, 1.2
DATA 50, 100, 1.2
DATA 50, 100, 1.2
DATA 50, 150, 1.2
DATA 50, 150, 1.2
DATA 100, 150, 1.2
DATA 100, 150, 1.2
DATA 100, 100, 1.2

' CONNECTIONS 1
DATA 100, 100, 1
DATA 100, 100, 1.2
DATA 50, 100, 1
DATA 50, 100, 1.2
DATA 50, 150, 1
DATA 50, 150, 1.2
DATA 100, 150, 1
DATA 100, 150,1.2

'BOX 2
DATA 100, 100, 1.5
DATA 50, 100, 1.5
DATA 50, 100, 1.5
DATA 50, 150, 1.5
DATA 50, 150, 1.5
DATA 100, 150, 1.5
DATA 100, 150, 1.5
DATA 100, 100, 1.5

'CONNECTIONS 2
DATA 100, 100, 1.2
DATA 100, 100, 1.5
DATA 50, 100, 1.2
DATA 50, 100, 1.5
DATA 50, 150, 1.2
DATA 50, 150, 1.5
DATA 100, 150, 1.2
DATA 100, 150, 1.5

'BOX 3
DATA 100, 50, 1
DATA 50, 50, 1
DATA 50, 50, 1
DATA 50, 100, 1
DATA 50, 100, 1
DATA 100, 100, 1
DATA 100, 100, 1
DATA 100, 50, 1

DATA 100, 50, 1.2
DATA 50, 50, 1.2
DATA 50, 50, 1.2
DATA 50, 100, 1.2
DATA 50, 100, 1.2
DATA 100, 100, 1.2
DATA 100, 100, 1.2
DATA 100, 50, 1.2

'CONNECTIONS 3
DATA 100, 50, 1
DATA 100, 50, 1.2
DATA 50, 50, 1
DATA 50, 50, 1.2
DATA 50, 100, 1
DATA 50, 100, 1.2
DATA 100, 100, 1
DATA 100, 100, 1.2

'BOX 4
DATA 100, 150, 1
DATA 50, 150, 1
DATA 50, 150, 1
DATA 50, 200, 1
DATA 50, 200, 1
DATA 100, 200, 1
DATA 100, 200, 1
DATA 100, 150, 1

' THE M!
'DATA 200, 100, 1.5
'DATA 220, 80, 1.5
'DATA 220, 80, 1.8
'DATA 240, 100, 1.8
'DATA 240, 100, 2
'DATA 260, 80, 2
'DATA 260, 80, 1.8
'DATA 280, 100, 1.5

DATA 100, 150, 1.2
DATA 50, 150, 1.2
DATA 50, 150, 1.2
DATA 50, 200, 1.2
DATA 50, 200, 1.2
DATA 100, 200, 1.2
DATA 100, 200, 1.2
DATA 100, 150, 1.2

' CONNECTIONS 4
DATA 100, 150, 1
DATA 100, 150, 1.2
DATA 50, 150, 1
DATA 50, 150, 1.2
DATA 50, 200, 1
DATA 50, 200, 1.2
DATA 100, 200, 1
DATA 100, 200,1.2

'BOX 5
DATA 100, 100, 1.8
DATA 50, 100, 1.8
DATA 50, 100, 1.8
DATA 50, 150, 1.8
DATA 50, 150, 1.8
DATA 100, 150, 1.8
DATA 100, 150, 1.8
DATA 100, 100, 1.8

'CONNECTIONS 5
DATA 100, 100, 1.8
DATA 100, 100, 1.5
DATA 50, 100, 1.8
DATA 50, 100, 1.5
DATA 50, 150, 1.8
DATA 50, 150, 1.5
DATA 100, 150, 1.8
DATA 100, 150, 1.5

'BOX 6
DATA 100, 150, 1.5
DATA 50, 150, 1.5
DATA 50, 150, 1.5
DATA 50, 200, 1.5
DATA 50, 200, 1.5
DATA 100, 200, 1.5
DATA 100, 200, 1.5
DATA 100, 150, 1.5

DATA 100, 150, 1.8
DATA 50, 150, 1.8
DATA 50, 150, 1.8
DATA 50, 200, 1.8
DATA 50, 200, 1.8
DATA 100, 200, 1.8
DATA 100, 200, 1.8
DATA 100, 150, 1.8

' CONNECTIONS 6
DATA 100, 150, 1.5
DATA 100, 150, 1.8
DATA 50, 150, 1.5
DATA 50, 150, 1.8
DATA 50, 200, 1.5
DATA 50, 200, 1.8
DATA 100, 200, 1.5
DATA 100, 200,1.8

'BOX 7
DATA 100, 50, 1.5
DATA 50, 50, 1.5
DATA 50, 50, 1.5
DATA 50, 100, 1.5
DATA 50, 100, 1.5
DATA 100, 100, 1.5
DATA 100, 100, 1.5
DATA 100, 50, 1.5

DATA 100, 50, 1.8
DATA 50, 50, 1.8
DATA 50, 50, 1.8
DATA 50, 100, 1.8
DATA 50, 100, 1.8
DATA 100, 100, 1.8
DATA 100, 100, 1.8
DATA 100, 50, 1.8

'CONNECTIONS 7
DATA 100, 50, 1.5
DATA 100, 50, 1.8
DATA 50, 50, 1.5
DATA 50, 50, 1.8
DATA 50, 100, 1.5
DATA 50, 100, 1.8
DATA 100, 100, 1.5
DATA 100, 100, 1.8

'BOX 8
DATA 100, 100, 2
DATA 50, 100, 2
DATA 50, 100, 2
DATA 50, 150, 2
DATA 50, 150, 2
DATA 100, 150, 2
DATA 100, 150, 2
DATA 100, 100, 2

'CONNECTIONS 8
DATA 100, 100, 2
DATA 100, 100, 1.8
DATA 50, 100, 2
DATA 50, 100, 1.8
DATA 50, 150, 2
DATA 50, 150, 1.8
DATA 100, 150, 2
DATA 100, 150, 1.8