C  A SUBROUTINE TO TAKE A START AND END POINT OF A LINE AND
C  TO DRAW THE LINE IN A SPECIFIED TIME FOR FILMING.   J.K.COOK
C
	SUBROUTINE DRASLO(ILIN,TIM,ITAG,DIST)
	DIMENSION D(3),S(3)
	COMMON/BULK/I3STRT,I3END,OBJ(6,30)
	COMMON/PAINT/I2STRT,I2END,PIC(4,30)
	COMMON/OIL/IVECT(200)
	STEP=24.*TIM
	DO 5 I=1,3
5	D(I)=(OBJ(I+3,ILIN)-OBJ(I,ILIN))/STEP
	DO 6 I=1,3
6	S(I)=OBJ(I+3,ILIN)
	CALL DISPLY(1,ITAG,IVECT,1,1)
	DO 1 I=4,6
1	OBJ(I,ILIN)=OBJ(I-3,ILIN)
	CALL ROTER
	I3STRT=ILIN
	I3END=ILIN
	I2STRT=ILIN
	I2END=ILIN
	ISTEP=STEP
	IF(ISTEP.LT.1)ISTEP=1
	DO 2 I=1,ISTEP
	IF(I.EQ.ISTEP)GO TO 10
	DO 3 J=4,6
3	OBJ(J,ILIN)=OBJ(J,ILIN)+D(J-3)
	GO TO 11
10	DO 12 J=4,6
12	OBJ(J,ILIN)=S(J-3)
11	CALL MAPPER(DIST)
	CALL VECTOR(1,PIC,I2STRT,I2END,IVECT,1,LAST,7,0,-1)
	CALL DISPLY(3,ITAG)
	CALL DISPLY(6,ITAG,IVECT,1,LAST)
2	CALL PULSE(IDO,IF)
	RETURN
	END
