# Appendix B: Examples

This appendix presents some examples of the DISLIN manual in GCL coding. The examples can be found in the DISLIN subdirectory gcl and can be executed with the command:\medskip gcl \ example \medskip where example is one of the examples.

## B.1 Demonstration of CURVE

    %GCL
    // Demonstration of CURVE

    N=101
    PI    = 3.1415926

    XRAY  = FALLOC (N)
    XRAY  = (XRAY - 1.) * 3.6
    YRAY1 = SIN (XRAY * PI / 180.)
    YRAY2 = COS (XRAY * PI / 180.)

    METAFL ('CONS')
    DISINI ()
    COMPLX ()
    PAGERA ()

    NAME   ('X-axis', 'X')
    NAME   ('Y-axis', 'Y')
    TITLIN ('Demostration of CURVE', 2)
    TICKS  (10, 'X')
    LABDIG (-1, 'X')

    GRAF   (0.,360.,0.,90.,-1.,1.,-1.,0.5)
    TITLE  ()

    CURVE  (xray, yray1, n)
    CURVE  (xray, yray2, n)

    DASH   ()
    XAXGIT ()
    DISFIN ()

Figure B.1: Demonstration of CURVE

Next | Previous | Contents