REM Created in CorelPhotoPaint Version 9.439
REM Created On Thursday, January, 13, 2000 by User
REM       charcoal.csc
'  This Drag & Drop script produces a charcoal effect from
' 24-bit RGB color images

WITHOBJECT "CorelPhotoPaint.Automation.9"
	w& = .GetDocumentWidth()
	h& = .GetDocumentHeight()
	.SetDocumentInfo w&, h&		' target image is loaded as base
	.MaskSelectAll 
	.ObjectCreate TRUE			' copy base layer
		.EndObject 
	.ImageDesaturate 
		.EndColorEffect 
	.EffectFindEdges 70, 0		' make into an edges layer
	.MaskSelectAll 
	.ObjectCreate TRUE
		.EndObject 			' copy to second edge layer (top layer)
	.ImageEqualize 0, 5, 5, TRUE	' burn off weak lines and smudges
		.ImageEqualizeChannel 0, 0, 127, 0, 255, 100
		.ImageEqualizeChannel 1, 0, 255, 0, 255, 100
		.ImageEqualizeChannel 2, 0, 255, 0, 255, 100
		.ImageEqualizeChannel 3, 0, 255, 0, 255, 100
		.ImageEqualizeChannel 4, 0, 255, 0, 255, 100
		.EndImageEqualize 
	.ObjectEdit 1, FALSE		' select middle edge layer
	.EffectScatter 10, 10		' scatter pixels to imitate charcoal
		.EndColorEffect 
	.ObjectEdit 0, FALSE		' select base layer and desaturate it
	.ImageDesaturate 
		.EndColorEffect 
	.ImageEqualize 0, 5, 5, TRUE	' compress all tones into 127-255 range (brighten)
		.ImageEqualizeChannel 0, 0, 255, 127, 255, 100
		.ImageEqualizeChannel 1, 0, 255, 0, 255, 100
		.ImageEqualizeChannel 2, 0, 255, 0, 255, 100
		.ImageEqualizeChannel 3, 0, 255, 0, 255, 100
		.ImageEqualizeChannel 4, 0, 255, 0, 255, 100
		.EndImageEqualize 
	.ObjectEdit 1, FALSE		' select scattered layer
	.ObjectOpacity 50			' reduce opacity to 50%
		.ObjectSelectNone 
		.ObjectSelect 1, TRUE
		.EndObject 
	.ObjectMergeMode 4			' multiply merge with base layer
		.ObjectSelectNone 
		.ObjectSelect 1, TRUE
		.EndObject 
	.ObjectEdit 2, FALSE		' select top clean lines layer
	.ObjectMergeMode 4			' multiply merge to base composite
		.ObjectSelectNone 
		.ObjectSelect 2, TRUE
		.EndObject 
	.ObjectMerge TRUE			' collapse all layers to base
		.EndObject 
END WITHOBJECT