home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSCGET.FOR < prev    next >
Encoding:
Text File  |  1989-06-20  |  365 b   |  19 lines
  1.     SUBROUTINE GSCGET(IPTR,DX,DY,LMOVE)
  2. C
  3. C    THIS SUBROUTINE GETS THE NEXT NODE (POINT) ON THE CHARACTER
  4. C    BASED UPON "IPTR".   IT THEN SCALES AND ROTATES IT.
  5. C
  6.     LOGICAL*1 LMOVE
  7.     INCLUDE GCCTBL.PRM
  8. C
  9.     LMOVE = .FALSE.
  10. 50    IF (BX(IPTR) .NE. -64) GO TO 100
  11.     LMOVE = .TRUE.
  12.     IPTR = IPTR + 1
  13.     GO TO 50
  14. 100    X=BX(IPTR)
  15.     Y=BY(IPTR)
  16.     CALL GSCCLC(X,Y,DX,DY)
  17.     IPTR = IPTR + 1
  18.     END
  19.