home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / SYMBOL.FOR < prev    next >
Text File  |  1989-06-20  |  1KB  |  33 lines
  1.         SUBROUTINE SYMBOL(ISYMNO,SYMSIZ)
  2. C
  3. C       THIS SUBROUTINE PLACES THE DESIRED SYMBOL ("ISYMNO") AT THE
  4. C       CURRENT LOCATION WITH A SIZE OF "SYMSIZ".
  5. C
  6.         INCLUDE GCVPOS.PRM
  7.         DIMENSION SYMMOV(38), ISYMST(5)
  8.         DATA SYMMOV /
  9.      1   0.0,0.666667,  -0.5,-0.333333,  0.5,-0.333333,  0.0,0.666667,
  10.      2   -0.5,0.5,  -0.5,-0.5,  0.5,-0.5,  0.5,0.5,  -0.5,0.5,
  11.      3   0.0,0.5,  -0.4,0.0,  0.0,-0.5,  0.4,0.0,  0.0,0.5,
  12.      4   -0.4,0.5,  0.4,0.5,  -0.4,-0.5,  0.4,-0.5,  -0.4,0.5/
  13.         DATA ISYMST /1,9,19,29,39/
  14.         DATA NSYM /4/
  15. C
  16. C       SAVE CURRENT LOCATION
  17. C
  18.         X0 = XVPOS
  19.         Y0 = YVPOS
  20. C
  21. C       DRAW SYMBOL IN PROPER SIZE
  22. C
  23.         IF (ISYMNO .LE. 0 .OR. ISYMNO .GT. NSYM) RETURN
  24.         IPTR = ISYMST(ISYMNO)
  25.         CALL GSMOVE(X0+SYMSIZ*SYMMOV(IPTR),Y0+SYMSIZ*SYMMOV(IPTR+1))
  26. 100     IPTR = IPTR + 2
  27.         IF (IPTR .EQ. ISYMST(ISYMNO+1)) GO TO 200
  28.         CALL GSDRAW(X0+SYMSIZ*SYMMOV(IPTR),Y0+SYMSIZ*SYMMOV(IPTR+1))
  29.         GO TO 100
  30. 200     CALL GSMOVE(X0,Y0)
  31.         RETURN
  32.         END
  33.