home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff267.lzh / Diglib / diglib.zoo / diglib / GSSTRK.FOR < prev    next >
Text File  |  1989-06-20  |  641b  |  35 lines
  1.     SUBROUTINE GSSTRK(IICHAR)
  2. C
  3. C    THIS SUBROUTINE STROKES OUT A CHARACTER.
  4. C
  5.     LOGICAL*1 LMOVE
  6.     INCLUDE GCCIDX.PRM
  7. C
  8. C    SPACE FILL ALL NON-PRINTING
  9. C
  10.     IF (IICHAR .LE. 32 .OR. IICHAR .GE. 128) GO TO 200
  11. C
  12. C    STROKE THIS CHARACTER
  13. C
  14.     INDX = INDEXC(IICHAR-32)
  15.     IDONE = INDEXC(IICHAR-31)
  16. C
  17. C    GET THE SCALED AND ROTATED NEXT NODE ON THE CHARACTER
  18. C
  19. 100    CALL GSCGET(INDX,DX,DY,LMOVE)
  20.     IF (LMOVE) GO TO 140
  21.     CALL GSDRAW(DX,DY)
  22.     GO TO 160
  23. 140    CALL GSMOVE(DX,DY)
  24. C
  25. C    SEE IF ALL DONE
  26. C
  27. 160    IF (INDX .LT. IDONE) GO TO 100
  28. C
  29. C    ALL DONE WITH THE CHARACTER, MOVE TO NEXT CHARACTER POSITION
  30. C
  31. 200    CALL GSCCLC(GSCWID(),0.0,DX,DY)
  32.     CALL GSMOVE(DX,DY)
  33.     RETURN
  34.     END
  35.