REM Created in CorelPhotoPaint Version 9.397
REM Created On Sunday, November, 07, 1999 by linkaxdx
REM 		paint.csc - drag-and-drop type script
' This script requires "strokes.cpt" be installed in
' the bumpmap directory on your computer.  This tile file
' can be relocated if desired, with "stfile$ =..." line edited. 
' This script produces a wet oil paint effect replete
' with simulated brush strokes on the darker tones.
' See below for interesting adjustments.  As a bonus note that
' CTRL-V will paste on a "water color" version after script runs

WITHOBJECT "CorelPhotoPaint.Automation.9"
	w& = .GetDocumentWidth()
	h& = .GetDocumentHeight()
	tfold$ = GETTEMPFOLDER()
	stat% = .GetMaskPresent()
	IF stat% = 1 THEN .MaskRemove
	cnt& = .GetObjectCount()
	IF cnt& > 0 THEN
		.ObjectSelectAll
		.ObjectMerge TRUE
	ENDIF
	' Identify the paint strokes tile file in next line
	' Please edit this to fit your computers setup.
	stfile$ = "c:\program files\corel\graphics9\custom\bumpmap\strokes.cpt"
	.EffectMedian 4, 100	' Alter the 4 for more or less abstract
	.MaskSelectAll 
	.ObjectCreate TRUE
		.EndObject 
	.EffectFindEdges 60, 0
	.ImageDesaturate 
		.EndColorEffect 
	.ObjectMergeMode 20		' Try if you dare: 3, 10, 19, (20)
		.ObjectSelectNone 
		.ObjectSelect 1, TRUE
		.EndObject 
	.ObjectMerge TRUE
		.EndObject 
	.EditCopy		' For recall below
	' Watercolor effect to this point
	.ImageDesaturate
		.EndColorEffect 
	.ImageBCI 0, 20, 20	' Adjust brightness/contrast of mask here
		.EndColorEffect 							
	.FileSave tfold & "pmask.cpt", 1808, 0	' 3D paint strokes bump map mask
	.EditPasteObject 0, h&-1, ""
	.ObjectMerge TRUE
		.EndObject
	.MaskLoad tfold & "pmask.cpt", 0, 0, 0, 0, 0
	.MaskInvert 
	' Load on the paint strokes bump map
	.EffectBumpMap stfile$, 1, w&, h&, 0, 255, 10, 36, FALSE, FALSE, 46, 5, 255, 255, 255, 0, 75, 5, 255, 255, 255, 0, 315, 45
	.MaskInvert 
	' Load on the highlight paint extrusion bump map
	.EffectBumpMap "", 0, w&, h&, 0, 180, 6, 36, FALSE, TRUE, 46, 5, 255, 255, 255, 0, 75, 5, 255, 255, 255, 0, 315, 45
	.MaskRemove 
	' Clean up and display result
	KILL tfold & "pmask.cpt"
END WITHOBJECT