MODULE; IMPORT Color, PaintOp; PROCEDURE ColorTools FromHSV (h, s, v: REAL; mode := PaintOp.Mode.Normal; gray := -1.0; bw := PaintOp.BW.UseIntensity): PaintOp.T = BEGIN WITH hsv = Color.HSV{h, s, v}, rgb = Color.FromHSV(hsv) DO RETURN PaintOp.FromRGB(rgb.r, rgb.g, rgb.b, mode, gray, bw) END END FromHSV; BEGIN END ColorTools.