|
<< Click to Display Table of Contents >> Navigation: 3. Script Language > Image/Pixel-Color Operations > ! Sample Script: Picture to 3D Logo |
Sample Image-Processing Script:
->

' Turning a b/w picture into a 3D-Logo
$$PAB=?exeloc\Pics\P3.jpg
$$BOR=4
CAL.$$BOB=$$BOR/2
IEF.$$PAB
ANA.Load|1|$$PAB
'ANA.Show|1!
ELS.
MBX.File does not exist:$crlf$$$PAT
EIF.
ANA.GetRes|1|$$XPO|$$YPO
CAL.$$XPA=$$XPO+$$BOR
CAL.$$YPA=$$YPO+$$BOR
' Make a Resized Version of P3
ANA.New|2|$$XPA|$$YPA|1
ANA.New|3|$$XPA|$$YPA
' Now mix Shiftzed and Resized Version
ANA.bsh|2|1|$$BOB|$$BOB|1
ANA.Invert|1
'ANA.bw|1|100
ANA.bw|2|600
ANA.Show|1!
ANA.Show|2!
ANA.Logic|3|1|2|A XOR B|RGB
ANA.Show|3!
'ANA.MixTar|1|2|2
ANA.Invert|3
ANA.Show|3!
ENR.
' Changing the first two lines like this, will produce the second picture:
$$BOR=2
CAL.$$BOB=$$BOR