CALL PLOTS(6HTVIDAT)
        THETA=0.0
        CALL PLOT(3.6,3.3,3)
        DELTA=0.025
        DO 1001 I=1,45
        PHI=THETA
        DO 1000 J=1,10
        XSPRIL=3.6+0.25*PHI*SIN(PHI)
        YSPRIL=3.3+0.25*PHI*COS(PHI)
        CALL PLOT(XSPRIL,YSPRIL,2)
 1000   PHI=PHI+DELTA
        PHI=PHI-6.28318
        IF (PHI.LT.0.0) PHI=0.0
        XLAST=3.6+0.25*PHI*SIN(PHI)
        YLAST=3.3+0.25*PHI*COS(PHI)
        CALL PLOT(XLAST,YLAST,3)
        CALL PLOT(XSPRIL,YSPRIL,2)
        THETA=THETA+10.0*DELTA
 1001   DELTA=1.007*DELTA
        CALL PLOT(0.0,0.0,999)
        END