home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / amiga-magazin / visualengineer / ve-full.lha / arexx / LogoTexture.rexx < prev    next >
OS/2 REXX Batch file  |  1999-04-04  |  2KB  |  102 lines
  1. /*
  2.  
  3.    v1.15 Logo Texture
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10.  
  11. address IMAGEENGINEER
  12.  
  13. Options results
  14. signal on error            /* Setup a place for errors to go */
  15.  
  16. if arg()=0 then exit
  17. x=arg(1)
  18. parse var x pic texture
  19.  
  20. GET PRIMARY
  21. logo=result
  22. GET SECONDARY
  23. sec=result
  24.  
  25.  
  26. if texture~=="" then do
  27.  
  28.   texture=strip(strip(texture,B),B,'"')
  29.  
  30.   if exists(texture) == "1" then do
  31.     OPEN texture COLOUR
  32.     sec=result
  33.     pic=logo
  34.   end
  35.  
  36.   else do
  37.     'REQUEST "Texturefile not found!" "Sorry"'
  38.     exit
  39.   end
  40.  
  41. end
  42.  
  43. else do
  44.   if sec=="" then do
  45.     'REQUEST "Choose texture as SECONDARY image" "OK"'
  46.     exit
  47.   end
  48. end
  49.  
  50.  
  51. PROJECT_INFO logo WIDTH
  52. picwidth=result
  53. PROJECT_INFO logo HEIGHT
  54. picheight=result
  55. PROJECT_INFO logo ZOOM
  56. origzoomval=result
  57.  
  58. RESIZE sec picwidth picheight TILE
  59. tiletexture=result
  60.  
  61. CLOSE sec
  62.  
  63. HISTOGRAM_EQUALIZATION logo
  64. hieqlogo=result
  65.  
  66. CONTRAST hieqlogo 100
  67. blacklogo=result
  68.  
  69. CLOSE hieqlogo
  70.  
  71. MARK blacklogo ALPHA
  72. MARK blacklogo PRIMARY
  73. MARK tiletexture SECONDARY
  74. COMPOSITE 0 0 ADD
  75. final=result
  76.  
  77. CLOSE tiletexture
  78. CLOSE blacklogo
  79.  
  80. PROJECT_SET final ZOOM origzoomval
  81.  
  82.  
  83. exit
  84.  
  85. /*******************************************************************/
  86. /* This is where control goes when an error code is returned by IE */
  87. /* It puts up a message saying what happened and on which line     */
  88. /*******************************************************************/
  89. error:
  90. if RC=5 then do            /* Did the user just cancel us? */
  91.     IE_TO_FRONT
  92.     LAST_ERROR
  93.     'REQUEST "'||RESULT||'"'
  94.     exit
  95. end
  96. else do
  97.     IE_TO_FRONT
  98.     LAST_ERROR
  99.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  100.     exit
  101. end
  102.