C   A SEQUENCE ON THREE DIMENSIONAL DRAWING    J.K.COOK
C
	COMMON/OIL/IVECT(200)
	COMMON/BULK/I3STRT,I3END,OBJ(6,50)
	COMMON/PAINT/I2STRT,I2END,PIC(4,50)
	COMMON/EYCEP/E(3),C(3),U(3)
	COMMON/LIMITS/XMIN,XMAX,YMIN,YMAX
	COMMON/SAVE/PTS(6,50)
	CALL CLEAR(.TRUE.)
	READ(5,500)((OBJ(I,J),I=1,6),J=1,49)
500	FORMAT(6F5.1)
	DO 1 J=1,49
	DO 1 I=1,6
1	PTS(I,J)=OBJ(I,J)
	XMIN=-10.
	XMAX=10.
	YMIN=-10.
	YMAX=10.
	E(1)=0.
	E(2)=0.
	E(3)=9999.
	C(1)=0.
	C(2)=0.
	C(3)=0.
	U(1)=0.
	U(2)=10.
	U(3)=0.
	DIST=9999.
C   PUT IN AXES 
	IM=0
	DO 4 ITAG=100,200,100
	ITG=ITAG
	DO 2 I=1,9
	TIM=1.
	IF(I.GT.5)TIM=.1
	IF(I.EQ.1)TIM=2.
	ILIN=IM+I
	ITG=ITG+1
	CALL DRASLO(ILIN,TIM,ITG,DIST)
	DO 3 J=1,12
3	CALL PULSE(IDO,IF)
2	CONTINUE
	DO 5 I=1,24
5	CALL PULSE(IDO,IF)
4	IM=9
7	DO 6 I=1,36
6	CALL PULSE(IDO,IF)
C
C  AMALGAMATE TO TAG 1
C
	I3STRT=1
	I3END=18
	I2STRT=1
	I2END=18
	CALL MAPPER(DIST)
	CALL VECTOR(1,PIC,I2STRT,I2END,IVECT,1,LAST,7,0,-1)
	CALL DISPLY(6,1,IVECT,1,LAST)
	DO 777 I=100,200,100
	DO 777 J=1,9
	IT=I+J
777	CALL DISPLY(3,IT)
C
C  NOW DRAW RECTANGLE
C
	DO 8 I=42,45
	TIM=2.
	IT=100+I
	CALL DRASLO(I,TIM,IT,DIST)
	DO 9 J=1,12
9	CALL PULSE(IDO,IF)
8	CONTINUE
	I3STRT=42
	I3END=45
	I2STRT=42
	I2END=45
	CALL MAPPER(DIST)
	CALL VECTOR(1,PIC,I2STRT,I2END,IVECT,1,LAST,7,0,-1)
	CALL DISPLY(6,50,IVECT,1,LAST)
	DO 10 I=142,145
10	CALL DISPLY(3,I)
C
C  PAUSE
C
	DO 11 I=1,72
11	CALL PULSE(IDO,IF)
C
C  PUT IN FRAME
C
	I3STRT=46
	I3END=49
	I2STRT=46
	I2END=49
	CALL MAPPER(DIST)
	CALL VECTOR(1,PIC,I2STRT,I2END,IVECT,1,LAST,7,0,-1)
	CALL DISPLY(6,51,IVECT,1,LAST)
	DO 12 I=1,72
12	CALL PULSE(IDO,IF)
	PAUSE
	STOP
	END
