! IMP dummies for the Fortran routines in the Versaplot Colour Random Library external routine AUTHOR (integer name ITEXT, NC) ! %integer I ! %byte %name B ! B == Byte (Addr (Itext)) ! Print string ("AUTHOR: ") ! Print symbol (B) %and B == B[1] %for I = 1, 1, NC ! Newline end external routine CIRCLE (real name X, Y, RADIUS, integer name IWIDTH) ! Print string ("CIRCLE: ") ! %if RADIUS = 0 %start ! Print string ("Radius = 0 => Ignored") ! Newline ! %return ! %finish ! %if RADIUS > 0 %start ! Print string ("(solid)") ! %else ! Print string ("(outline)") ! %finish ! Print string (" X=") ! Print (x,0,3) ! Print string (" Y=") ! Print (y,0,3) ! Print string (" Rad=") ! Print (|radius|,0,3) ! Print string (" Iwidth=") ! Write (Iwidth,0) ! Newline end external routine CONVEX (real name X, Y, integer name NPT) ! Print string ("CONVEX polygon of ".Itos(Npt,0)." sides") ! Newline end external routine DASHLN (real name X, Y, integer name NPTS, real name ONLTH, OFFLTH) ! Print string ("DASHLN") ! Newline end external routine DEFCLR (integer name ICLRX, ICPAT, NPWRD) ! Print string ("DEFCLR") ! Newline end external routine DEFPAT (integer name IP, JPAT, NTP) ! Print string ("DEFPAT".ItoS(IP,0)." (".ItoS(NTP,0).")") ! Newline end external routine DEFPEN (integer name IPEN, JWIDTH, NBON1, NBOFF1, NBON2, NBOFF2) ! Print string ("DEFPEN".Itos(Ipen,1).Itos(Jwidth,1).Itos(NBon1,1).- ! Itos(NBOff1,1).Itos(NBon2,1).Itos(NBOff2,1)) ! Newline end external routine FACTOR (real name FACT) ! Print string ("FACTOR: ".RtoS(Fact,0,3)) ! Newline end external routine GRID (real name X, Y, integer name NX, real name XD, integer name NY, real name YD, integer name LMASK) ! Print string ("GRID") ! Newline end external routine NEWPEN (integer name INP) ! Print string ("NEWPEN: ".ItoS(INP,0)) ! Newline end external routine PAPER (real name PXMIN, PYMIN, PXMAX, PYMAX) ! Print string ("PAPER") ! Newline end external routine PENCLR (integer name ICPEN, NUMCLR) ! Print string ("PENCLR") ! Newline end external routine PLOT (real name X, Y, integer name IPEN) ! Print string ("PLOT: ".Rtos(x,0,3).Rtos(y,1,3).Itos(ipen,1)) ! Newline end external routine PLOTS (integer name ISF, INDEX, LDEV) ! Print string ("PLOTS: ".Itos(ISF,0).ItoS(Index,1).ItoS(Ldev,1)) ! Newline end external routine RECT (real name X1, X2, Y1, Y2, integer name IFLG) ! Print string ("RECT: ".Rtos(x1,0,3).Rtos(y1,1,3).RtoS(x2,4,3).RtoS(y2,1,3)) ! %if Iflg = 0 %start ! print string (" No outline") ! %else ! print string (" with outline") ! %finish ! Newline end external routine SETPAT (integer name IARG) ! Print string ("SETPAT: ".ItoS(IARG,0)) ! Newline end external routine TONCLR (integer name NCOLOR) ! Print string ("TONCLR: ".ItoS(NCOLOR,0)) ! Newline end external routine TONE (real name X, Y, integer name NE, NA) ! Print string ("TONE") ! Newline end external routine TONFLG (integer name IPTFLG) ! Print string ("TONFLG: ".ItoS(IPTFLG,0)) ! Newline end external routine VPOPT (integer name ICODE, IARG, real name RARG, integer name IERROR) if Icode = -1 start RArg = 200 * 2.54 else if Icode = -2 Real (addr(Rarg)+4) = 45.0 Real (addr(Rarg)+12) = 45.0 else finish ! IArg = -1 ! Print string ("VPOPT ") ! %if Icode < 0 %start ! print string ("Getting option ".Itos(-Icode,0)) ! %else ! print string ("Setting option ".Itos(Icode,0)) ! %finish ! Newline end external routine VPORT (real name VXMIN, VYMIN, VXMAX, VYMAX) ! Print string ("VPORT") ! Print (VXmin, 1, 3); print symbol (','); Print (VYmin, 0, 3) ! Print (VXmax, 1, 3); print symbol (','); Print (VYmax, 0, 3) ! Newline end external routine VTEC (integer name IDEN, IBYTES) ! Print string ("VTEC") ! Newline end external routine WINDOW (real name WXMIN, WYMIN, WXMAX, WYMAX) ! Print string ("WINDOW") ! Print (WXmin, 1, 3); print symbol (','); Print (WYmin, 0, 3) ! Print (WXmax, 1, 3); print symbol (','); Print (WYmax, 0, 3) ! Newline end end of file