REM Created in CorelPhotoPaint Version 9.337
REM Created On Saturday, October, 09, 1999 by linkaxdx

' This small script produces a lively blue monochrome effect on the
' current RGB file.  Combine all objects to base and remove
' any mask before running the script.  The color effect may be changed with a 
' simple edit in indicated line below.  Default setting is in parenthesis.
' Try a CTRL-Z or click UNDO once when script has run.

WITHOBJECT "CorelPhotoPaint.Automation.9"
	stat% = .GetMaskPresent()
	name$ = .GetDocumentName()
	IF stat% = 1 THEN .MaskRemove
	.EditClear 5, 255, 255, 255, 0
	.EditClear 5, 255, 255, 255, 0
	.MaskLoad name$, 0, 0, 0, 0, 0
	.MaskInvert 
	.FillTool 0, 0
		.ToleranceSettings 0, 100, 10, 10, 10
		.FillSolid 5, 103, 47, 19, 0	' (103, 47, 19, 0) edit color here
		.Fill 20, 20, TRUE
	.MaskRemove 
	.ImageBCI 0, 15, 3
		.EndColorEffect 
	.ImageHSL -168, 0, 0
		.ImageHSLChannel 1, 0, 0, 0
		.ImageHSLChannel 2, 0, 0, 0
		.ImageHSLChannel 3, 0, 0, 0
		.ImageHSLChannel 4, 0, 0, 0
		.ImageHSLChannel 5, 0, 0, 0
		.ImageHSLChannel 6, 0, 0, 0
		.ImageHSLChannel 7, 0, 0, 0
		.EndColorEffect 
END WITHOBJECT