! IMP specs for the Fortran routines in the Versaplot Colour Random Library

%external %routine %spec AUTHOR %alias "author_" (%integer %name ITEXT, NC)
%external %routine %spec AXIS   %alias "axis_"   (%real %name XPAGE, YPAGE, LABEL, NCHAR,
                                                 AXLEN, ANGLE, FVAL, DV)
%external %routine %spec CARC   %alias "carc_"   (%real %name X, Y, RADIUS, START, END)
%external %routine %spec CIRCLE %alias "circle_" (%real %name X, Y, RADIUS,
                                                 %integer %name IWIDTH)
%external %routine %spec CONVEX %alias "convex_" (%real %name X, Y,
                                                 %integer %name NPT)
%external %routine %spec COPIES %alias "copies_" (%integer %name NCOPY)
%external %routine %spec CUT    %alias "cut_"    (%integer %name ICUT)
%external %routine %spec CURVE  %alias "curve_"  (%real %name X, Y,
                                                 %integer %name NE,
                                                 %real %name DELTA)
%external %routine %spec DASHLN %alias "dashln_" (%real %name X, Y,
                                                 %integer %name NPTS,
                                                 %real %name ONLTH, OFFLTH)
%external %routine %spec DEFCLR %alias "defclr_" (%integer %name ICLRX, ICPAT, NPWRD)
%external %routine %spec DEFPAT %alias "defpat_" (%integer %name IP, JPAT, NTP)
%external %routine %spec DEFPEN %alias "defpen_" (%integer %name IPEN, JWIDTH, NBON1, NBOFF1,
                                                 NBON2, NBOFF2)
%external %routine %spec ELLIPS %alias "ellips_" (%real %name X, Y, ANGLE, SMAJOR, SMINOR)
%external %routine %spec FACTOR %alias "factor_" (%real %name FACT)
%external %routine %spec GRID   %alias "grid_"   (%real %name X, Y,
                                                 %integer %name NX,
                                                 %real %name XD,
                                                 %integer %name NY,
                                                 %real %name YD,
                                                 %integer %name LMASK)
%external %routine %spec LINE   %alias "line_"   (%real %name XARRAY, YARRAY,
                                                 %integer %name NPTS, INC, LYNTYP, INTEQ)
%external %routine %spec NEWPEN %alias "newpen_" (%integer %name INP)
%external %routine %spec NUMBER %alias "number_" (%real %name XPAGE, YPAGE, HEIGHT, FPN,
                                                 ANGLE, %integer %name NDEC)
%external %routine %spec OFFSET %alias "offset_" (%real %name XOF, XFA, YOF, YFA)
%external %routine %spec PAPER  %alias "paper_"  (%real %name PXMIN, PYMIN, PXMAX, PYMAX)
%external %routine %spec PENCLR %alias "penclr_" (%integer %name ICPEN, NUMCLR)
%external %routine %spec PLOT   %alias "plot_"   (%real %name X, Y,
                                                 %integer %name IPEN)
%external %routine %spec PLOTS  %alias "plots_"  (%integer %name ISF, INDEX, LDEV)
%external %routine %spec RECT   %alias "rect_"   (%real %name X1, X2, Y1, Y2,
                                                 %integer %name IFLG)
%external %routine %spec ROTATE %alias "rotate_" (%integer %name IARG)
%external %routine %spec SCALE  %alias "scale_"  (%real %name ARRAY, AXLEN,
                                                 %integer %name NPTS, INC)
%external %routine %spec SETFNT %alias "setfnt_" (%integer %name IFPAT)
%external %routine %spec SETPAT %alias "setpat_" (%integer %name IARG)
%external %routine %spec SYMBOL %alias "symbol_" (%real %name X, Y, HGT,
                                                 %integer %name ITEXT,
                                                 %real %name ANGLE,
                                                 %integer %name NCHAR)
%external %routine %spec TONCLR %alias "tonclr_" (%integer %name NCOLOR)
%external %routine %spec TONE   %alias "tone_"   (%real %name X, Y,
                                                 %integer %name NE, NA)
%external %routine %spec TONFLG %alias "tonflg_" (%integer %name IPTFLG)
%external %routine %spec VPOPT  %alias "vpopt_"  (%integer %name ICODE, IARG,
                                                 %real %name RARG,
                                                 %integer %name IER)
%external %routine %spec VPORT  %alias "vport_"  (%real %name VXMIN, VYMIN, VXMAX, VYMAX)
%external %routine %spec VTEC   %alias "vtec_"   (%integer %name IDEN, IBYTES)
%external %routine %spec WHERE  %alias "where_"  (%real %name RXPAGE, RYPAGE, RFACT)
%external %routine %spec WINDOW %alias "window_" (%real %name WXMIN, WYMIN, WXMAX, WYMAX)

%external %routine %spec forini %alias "forini_"    { For SUN only }

%own %real Zero = 0.0
%own %integer Izero = 0
%own %integer IOne  = 1
%own %integer ITwo  = 2
%own %integer IWidth = 1
%own %integer End Plot and Job = 999
%own %integer End Plot         =  23
%own %integer With Offset      =  10
%own %integer Move to          =   3
%own %integer Draw to          =   2
%own %integer Reset Origin     =  -1   { Multiplication factor }

%end %of %file