<< Click to Display Table of Contents >> Navigation: 3. Script Language > Image/Pixel-Color Operations > ANA. - Imageworks > Paint Operations |
Here you find some Basic Paint Operations which can be used to do complete image manipulation.
$$XPA=1600
$$YPA=1200
CAL.$$XPO=$$XPA/2|i
CAL.$$YPO=$$YPA/2|i
$$XSI=100
$$YSI=100
$$XSO=400
$$YSO=300
ANA.New|0|$$XPA|$$YPA
ANA.vgradient|0|&HFF00FF|&H000000
ANA.New|1|$$XPA|$$YPA
ANA.hgradient|1|&H0000FF|&H00FFFF
ANA.Mix|0|1|7
VAN.$$CNT=0
FOR.$$LRA|0|6.28|.0225
CAX.$$SIN=SIN($$LRA)
CAX.$$COS=COS($$LRA)
CAL.$$XPI=$$SIN*$$XSI+$$XPO|i
CAL.$$YPI=$$COS*$$YSI+$$YPO|i
CAL.$$XPJ=$$SIN*$$XSO+$$XPO|i
CAL.$$YPJ=$$COS*$$YSO+$$YPO|i
'ANA.SetPixelColor|1|$$XPI|$$YPI|&HFF0000
ANA.DrawLine|1|$$XPI|$$YPI|$$XPJ|$$YPJ|-1
JIZ.$$XPL|elo
ANA.GetPixelColor|1|$$XPM|$$YPM|$$COA
ANA.GetPixelColor|1|$$XPL|$$YPL|$$COB
ANA.DrawLine|1|$$XPI|$$YPI|$$XPL|$$YPL|$$COA
ANA.DrawLine|1|$$XPJ|$$YPJ|$$XPM|$$YPM|$$COB
ANA.DrawBox|1|$$XPJ|$$YPJ|($$XPJ+15)|($$YPJ+15)|$$COB|1
:elo
VAN.$$XPL=$$XPI
VAN.$$YPL=$$YPI
VAN.$$XPM=$$XPJ
VAN.$$YPM=$$YPJ
IVV.$$CNT>40
ANA.Show|1
$$CNT=0
ELS.
VIC.$$CNT
EIF.
'
NEX.
$$TXT=SPR-Painting-Commands Sample
$$COL=&HFFFFFF
' Backgroundcolor
$$LAA=-2
' Fontname
$$LAC=Segoe UI
$$XP1=320
$$YPI=40
ANA.PrintAt|1|$$TXT|0|$$LAA|($$XP1+2)|($$YP1+2)|39|$$LAC|1
ANA.PrintAt|1|$$TXT|$$COL|$$LAA|$$XP1|$$YP1|39|$$LAC|1
ANA.Show|1!
ENR.