! Sample Script: Picture to 3D Logo

<< Click to Display Table of Contents >>

Navigation:  3. Script Language > Image/Pixel-Color Operations >

! Sample Script: Picture to 3D Logo

 

 

Sample Image-Processing Script:

 

P3   -> clip0150 clip0151

 

 

' 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