REM Created in CorelPhotoPaint Version 9.397
REM Created On Saturday, October, 30, 1999 by linkaxdx
REM This drag-and-drop script, makes a cameo-like bas-relief
REM effect on the current 24-bit RGB image. 
REM
REM Try these darker fill colors:  {R,G,B}: red {200,0,0};
REM green {0,102,51}; deep gold {212,155,58} and blue {0,51,153}
REM with a simple edit below.

WITHOBJECT "CorelPhotoPaint.Automation.9"
	w& = .GetDocumentWidth()
	h& = .GetDocumentHeight()
	tfold$ = GETTEMPFOLDER()
	.ImageDesaturate 
		.EndColorEffect 
	.ImageBCI 0, 20, 20	' Enliven tones a little
		.EndColorEffect 
	.FileSave tfold & "bw.cpt", 1799, 0
	.EditFill 0, 0, 100, 0, 0, h-1, 0, h-1, 0, h-1
		.FillSolid 5, 223, 213, 184, 0	' tan fill for the lights
		.EndEditFill					' default = 5, 223, 213, 184, 0
	.EffectBumpMap tfold & "bw.cpt", 0, 0, 0, 0, 255, 6, 0, FALSE, TRUE, 46, 5, 255, 255, 255, 0, 75, 5, 255, 255, 255, 0, 315, 45
	.MaskLoad tfold & "bw.cpt", 0, 0, 0, 0, 0
REM 	WAIT FOR 2	' (may help mask load more reliably in batch processing)
	.MaskInvert 
	.EditFill 0, 40, 100, 1, 0, h-1, 0, h-1, 0, h-1	' (40% transparent), edit to taste
		.FillSolid 5, 0, 51, 153, 0	' <== Edit darker fill color here
		.EndEditFill				' default = 5, 0, 51, 153, 0
	.MaskRemove 
	KILL tfold & "bw.cpt"	' Clean up
END WITHOBJECT