I am trying to create a Vectorscript Palette with a number of scripts that, when run, will set the defaults for pen size and pen color. This script, when run, does what I want:
PenBack(0,0,0); {make pen background black}
PenFore(8); {make pen foreground darkish gray}
PenSize(1); {1 mil pen size}
However, it is taking advantage of an undocumented and possibly deprecated feature, in which PenFore, when provided only one argument, will treat it as a color index.
When I try to write a proper script, it doesn't work. Here's the attempt:
PROCEDURE SetLightest;
VAR
r : INTEGER;
g : INTEGER;
b : INTEGER;
BEGIN
PenBack(0,0,0); {make pen background black}
ColorIndexToRGB(8,r,g,b); {get rgb values for color index 8}
PenFore(r,g,b); {make pen foreground darkish gray}
PenSize(1);
END;
Run(SetLightest);
Running this script by double-clicking on it in a script palette has no effect on the pen color or size. Is this some sort of variable scoping issue?
Thanks,
-Karen