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 		bumpx.csc - input control version
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}

WITHOBJECT "CorelPhotoPaint.Automation.9"
	w& = .GetDocumentWidth()
	h& = .GetDocumentHeight()
	tfold$ = GETTEMPFOLDER()
	BEGIN DIALOG Dialog1 20, 20, 240, 100, "Key in optional changes, ENTER to accept"
	TEXT 40, 6, 200, 14, "<== R value of dark color  (0-255): [  0]"
	TEXTBOX 6, 6, 30, 14, Rval$
	TEXT 40, 26, 200, 14, "<== G value of dark color (0-255): [ 51]"
	TEXTBOX 6, 26, 30, 14, Gval$
	TEXT 40, 46, 200, 14, "<== B value of dark color (0-255): [153]"
	TEXTBOX 6, 46, 30, 14, Bval$
	TEXT 40, 66, 200, 14, "<== Transparency value of dark color (0-100): [ 40]"
	TEXTBOX 6, 66, 30, 14, Tval$
	END DIALOG
	DIALOG Dialog1	
	IF Rval = "" THEN
		rv& = 0
	ELSE
		rv& = VAL(Rval)
	ENDIF
	IF Gval = "" THEN
		gv& = 51
	ELSE
		gv& = VAL(Gval)
	ENDIF
	IF Bval = "" THEN
		bv& = 153
	ELSE
		bv& = VAL(Bval)
	ENDIF
	IF Tval = "" THEN
		tv& = 40
	ELSE
		tv& = VAL(Tval)
	ENDIF
	
	.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, tv, 100, 1, 0, h-1, 0, h-1, 0, h-1	' (40% transparent), edit to taste
		.FillSolid 5, rv, gv, bv, 0	' <== Edit darker fill color here
		.EndEditFill				' default = 5, 0, 51, 153, 0
	.MaskRemove 
	KILL tfold & "bw.cpt"	' Clean up
END WITHOBJECT