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