! 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) integer I Print string ("DEFPAT".ItoS(IP,1)." (".ItoS(NTP,0).")") Write (Integer(Addr(Jpat)+I), 1) for I = 0, 4, 15*4 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,2).Rtos(y,1,2).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,4,2).Rtos(y1,1,2).RtoS(x2,4,2).RtoS(y2,1,2)) 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") 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) 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