Previous: sym00 Up: ../plot79_s.html Next: symcg3
SUBROUTINE SYMCG (XYGRID) C$ (Hershey Character Generator) C$ Generate a Hershey character at the current point. The C$ argument is: C$ C$ XYGRID(*)...Height range, width range, and pairs of (X,Y) C$ coordinates. Height range = C$ (XYGRID(1),XYGRID(2), XYGRID(3)). Width range C$ = (XYGRID(4),XYGRID(5)). (X,Y) = C$ (XYGRID(K),XYGRID(K+1)) (K=6,8,...). C$ C$ A coordinate pair (-64,0) requests a pen raise, and a pair C$ (-64,-64) terminates the coordinate list. It is assumed C$ that movement to the first coordinate position will be done C$ with the pen raised - no raise command is explicitly C$ included to do this. C$ (01-APR-82)