REM Created in CorelPhotoPaint Version 9.397
REM Created On Saturday, October, 23, 1999 by linkaxdx
' This script will convert the current image into a bas-relief effect.
' bas_relief.csc  - drag and drop version

WITHOBJECT "CorelPhotoPaint.Automation.9"
	
	w& = .GetDocumentWidth()
	h& = .GetDocumentHeight()
	tfold$ = GETTEMPFOLDER()	
	stat% = .GetMaskPresent()
	IF stat% = 1 THEN .MaskRemove	' Remove masks
	.ObjectSelectAll
	.ObjectMerge TRUE	' Combine all objects with background
		.EndObject
	.EditCopy
	' Make the black and white mask base file
	.ImageDesaturate
		.EndColorEffect
	.ImageBCI 0, 20, 20
		.EndColorEffect
	.FileSave tfold + "xxxbw.cpt", 1799, 0
	
	' Make the emboss map file
	.EditPasteObject 0, h-1, ""
	.ObjectMerge TRUE
		.EndObject
	.ImageDesaturate
		.EndColorEffect
	.EffectEmboss 4, 55, 243, 1, 5, 255, 255, 255, 0
	.FileSave tfold + "xxxem.cpt", 1799, 0
	
	' Begin bas relief effect
	.EditClear 5, 255, 255, 255, 0
	.EditFill 0, 0, 100, 0, 0, 0, h-1, 0, h-1, 0, h-1
		.FillSolid 5, 191, 166, 115, 0	' default: 5, 191, 166, 115, 0
		.EndEditFill
	.EffectCanvas tfold +"xxxem.cpt", 100, 100, 0, 0, 0, 0
	.EffectCanvas tfold +"xxxbw.cpt", 100, 44, 0, 0, 0, 0
	.MaskLoad tfold +"xxxbw.cpt", 0, 0, 0, 0, 0
	.MaskInvert 
	.ImageHSL 0, -80, -20
		.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 
	.MaskRemove 
	KILL tfold + "xxxem.cpt"	' Clean up the work files
	KILL tfold + "xxxbw.cpt"
	.EffectUnsharpMask 1, 100, 0
	.MaskSelectAll 
	.EffectTheBoss 45, 6, 70, 61, 95, 2, 14, 50, TRUE
	.MaskRemove 
END WITHOBJECT