REM Created in CorelPhotoPaint Version 9.439
REM Created On Sunday, January, 30, 2000 by Alex Link
' 	liquid.csc	an effects toolbox of masks
' Complete the effect using the masks.  Effects vary
' depending on shape size.  The "shift" value can be
' changed to vary effect also. 5 is about the smallest
' effective size. 
' Optimum circle size for a spherical effect is
' about 7.5 times the shift size.  Medium flat is around
' 13 times the shift size and larger shapes will have 
' flatter dimension.
' The script requires no objects, no channel masks and an active mask

WITHOBJECT "CorelPhotoPaint.Automation.9"
	w& = .GetDocumentWidth()
	h& = .GetDocumentHeight()
	
	' ------------------------------------------------
	ts& = 10		' shift (10)	<<<<<<<<< edit only this lines value
	hlb& = .4*ts&	' highlight blur (4)
	ib& = .4*ts&	' dismap blur (4)
	' tone range 121-128, G=0.66 for equalizer
	'------------------------------------------------
	.MaskChannelAdd "shape"			' 0 = shape
	.MaskTranslate -ts&, -ts&			' main shift = 10
	.MaskChannelAdd "lup"			' 1 = lup
	.MaskChannelToMask 0, 0
	.MaskTranslate ts&, ts&
	.MaskChannelAdd "rdown"			' 2 = rdown
	.MaskChannelToMask 0, 0
	.MaskChannelToMask 1, 2		
	.MaskChannelAdd "glow"			' 3 = glow
	.MaskChannelToMask 0, 0
	.MaskChannelToMask 2, 2
	.MaskChannelAdd "shadow"			' 4 = shadow
	.MaskPaint 1
	.EffectGaussianBlur hlb&			' highlight blur = 4
	.EffectGaussianBlur hlb&
	.EffectGaussianBlur hlb&
	.ImageEqualize 0, 5, 5, FALSE
		.ImageEqualizeChannel 0, 121, 128, 0, 255, 66	' tone range 121-128, G=0.66
		.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 
	.MaskPaint 2
	.MaskFeather 1, 3, 0
	.MaskChannelAdd "highlight"		' 5 = highlight
	.MaskChannelToMask 0, 0
	.MaskPaint 1
	.EditFill 0, 0, 100, 0, 0, 0, h&-1, 0, h&-1, 0, h&-1
		.FillSolid 5, 127, 127, 127, 0
		.EndEditFill 
	.MaskChannelToMask 5, 0
	.EditFill 0, 0, 100, 0, 0, 0, h&-1, 0, h&-1, 0, h&-1
		.FillSolid 5, 0, 0, 0, 0
		.EndEditFill 
	.MaskChannelToMask 4, 0
	.EditFill 0, 0, 100, 0, 0, 0, h&-1, 0, h&-1, 0, h&-1
		.FillSolid 5, 255, 255, 255, 0
		.EndEditFill 
	.MaskRemove 
	.EffectGaussianBlur 8			' shape blur = 8
	.EffectGaussianBlur 8
	.MaskChannelToMask 1, 0
	.MaskInvert 
	.EditFill 0, 0, 100, 0, 0, 0, h&-1, 0, h&-1, 0, h&-1
		.FillSolid 5, 0, 0, 0, 0		' fill background with black
		.EndEditFill 
	.MaskRemove 
	.EffectGaussianBlur 3			' litemask edge blur at 3
	.MaskChannelToMask 1, 0
	.MaskInvert 
	.EditFill 0, 0, 100, 0, 0, 0, h&-1, 0, h&-1, 0, h&-1
		.FillSolid 5, 0, 0, 0, 0
		.EndEditFill 
	.MaskChannelToMask 6, 0
	.EditFill 0, 0, 100, 0, 0, 0, h&-1, 0, h&-1, 0, h&-1
		.FillSolid 5, 255, 255, 255, 0
		.EndEditFill 
	.MaskPaint 2
	.MaskChannelAdd "litemask"
	.MaskPaint 1
	.EditFill 0, 0, 100, 0, 0, 0, h&-1, 0, h&-1, 0, h&-1
		.FillSolid 5, 0, 0, 0, 0
		.EndEditFill 
	.MaskChannelToMask 1, 0
	.EditFill 0, 0, 100, 0, 0, 0, h&-1, 0, h&-1, 0, h&-1
		.FillSolid 5, 127, 127, 127, 0
		.EndEditFill 
	.MaskRemove 
	.EffectGaussianBlur ib&				' dismap blur
	.EffectGaussianBlur ib&
	.MaskChannelToMask 1, 0
	.MaskInvert 
	.EditFill 0, 0, 100, 0, 0, 0, h&-1, 0, h&-1, 0, h&-1
		.FillSolid 5, 127, 127, 127, 0
		.EndEditFill 
	.MaskRemove 
	.MaskPaint 2
	.MaskChannelAdd "dismap"
	.MaskRemove 
	.ImageSetChannel 4
	.MaskChannelDelete 1		' remove lup
	.MaskChannelDelete 1		' remove rdown
	.MaskChannelDelete 1		' remove glow
	.MaskChannelDelete 1		' remove shadow
	.ImageSetChannel -1
	.MaskChannelToMask 2, 0
	.MaskPaint 1
	.ImageInvert 
		.EndColorEffect 		' insert 80% contrast here
	.ImageBCI 0, 80, 0
		.EndColorEffect
	.MaskChannelToMask 1, 0
	.MaskInvert 
	.EditFill 0, 0, 100, 0, 0, 0, h&-1, 0, h&-1, 0, h&-1
		.FillSolid 5, 0, 0, 0, 0
		.EndEditFill 
	.MaskRemove 
	.MaskPaint 2
	.MaskChannelAdd "darkmask"
	.MaskChannelToMask 0, 0
	.MaskReduce 1
	.MaskChannelToMask 0, 3
	.MaskChannelAdd "line"
	.MaskChannelToMask 0, 0
	.MaskRemove
END WITHOBJECT