home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / gfx / edit / MPMorph.lha / tutorial / Tutorial.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1997-02-23  |  4.4 KB  |  122 lines
  1. /* $VER: Tutorial.rexx 4.4 (23.2.97) */
  2. /* Tutorial */
  3.  
  4. parse upper arg arg1
  5.  
  6. if (arg1="A1") | (arg1="ALL") then do
  7.     address command 'run execute MPRender-prefs'
  8.     address command "waitforport MPRENDERPREFS"
  9. end
  10. if (arg1="ALL") then do
  11.     address command "wait 4"
  12. end
  13. if (arg1="A2") | (arg1="ALL") then do
  14.     address mprenderprefs 'defaults'
  15.     address mprenderprefs 'setattr "P_re Script" "Rexx/PreAll.MPM"'
  16. end
  17. if (arg1="A3") | (arg1="ALL") then do
  18.     address mprenderprefs 'setattr "Save _Format" "BW16"'
  19. end
  20. if (arg1="A4") | (arg1="ALL") then do
  21.     address mprenderprefs 'save'
  22. end
  23. if (arg1="B1") | (arg1="ALL") then do
  24.     address command 'run MPMorph'
  25.     address command "waitforport MPMORPH"
  26. end
  27. if (arg1="ALL") then do
  28.     address command "wait 4"
  29. end
  30. if (arg1="B2") | (arg1="ALL") then do
  31.     address mpmorph 'setattr file1 Tutorial/cat.pic'
  32. end
  33. if (arg1="B3") | (arg1="ALL") then do
  34.     address mpmorph 'setattr file2 Tutorial/girl.pic'
  35. end
  36. if (arg1="B4") | (arg1="ALL") then do
  37.     address mpmorph 'setattr frames 3'
  38. end
  39. if (arg1="B6") | (arg1="ALL") then do
  40.     address mpmorph 'setattr output ram:pic.%03ld'
  41. end
  42. if (arg1="ALL") then do
  43.     address command "wait 4"
  44. end
  45. if (arg1="B7") | (arg1="ALL") then do
  46.     address mpmorph 'editpoints'
  47. end
  48. if (arg1="ALL") then do
  49.     address command "wait 4"
  50. end
  51. if (arg1="B8") | (arg1="ALL") then do
  52.     address mpmorph 'addpoint x1=62 y1=101 x2=60 y2=105'
  53.     address mpmorph 'addpoint x1=96 y1=104 x2=119 y2=117'
  54.     address mpmorph 'addpoint x1=170 y1=112 x2=164 y2=114'
  55.     address mpmorph 'addpoint x1=198 y1=98 x2=190 y2=109'
  56.     address mpmorph 'addpoint x1=187 y1=119 x2=188 y2=125'
  57.     address mpmorph 'addpoint x1=182 y1=91 x2=178 y2=105'
  58.     address mpmorph 'addpoint x1=82 y1=91 x2=89 y2=100'
  59.     address mpmorph 'addpoint x1=78 y1=125 x2=85 y2=126'
  60.     address mpmorph 'addpoint x1=0 y1=0 x2=0 y2=0'
  61.     address mpmorph 'addpoint x1=0 y1=255 x2=0 y2=255'
  62.     address mpmorph 'addpoint x1=255 y1=0 x2=255 y2=0'
  63.     address mpmorph 'addpoint x1=255 y1=255 x2=255 y2=255'
  64.     address mpmorph 'addpoint x1=81 y1=111 x2=91 y2=118'
  65.     address mpmorph 'addpoint x1=185 y1=110 x2=178 y2=119'
  66.     address mpmorph 'addpoint x1=181 y1=100 x2=177 y2=113'
  67.     address mpmorph 'addpoint x1=81 y1=100 x2=88 y2=109'
  68.     address mpmorph 'addpoint x1=67 y1=114 x2=73 y2=119'
  69.     address mpmorph 'addpoint x1=91 y1=118 x2=102 y2=124'
  70.     address mpmorph 'addpoint x1=91 y1=95 x2=101 y2=102'
  71.     address mpmorph 'addpoint x1=69 y1=91 x2=76 y2=102'
  72.     address mpmorph 'addpoint x1=172 y1=100 x2=170 y2=107'
  73.     address mpmorph 'addpoint x1=191 y1=93 x2=185 y2=106'
  74.     address mpmorph 'addpoint x1=195 y1=112 x2=196 y2=116'
  75.     address mpmorph 'addpoint x1=175 y1=121 x2=173 y2=123'
  76.     address mpmorph 'addpoint x1=132 y1=118 x2=140 y2=118'
  77.     address mpmorph 'addpoint x1=116 y1=149 x2=126 y2=142'
  78.     address mpmorph 'addpoint x1=148 y1=151 x2=158 y2=145'
  79.     address mpmorph 'addpoint x1=147 y1=183 x2=160 y2=168'
  80.     address mpmorph 'addpoint x1=119 y1=184 x2=117 y2=171'
  81.     address mpmorph 'addpoint x1=134 y1=194 x2=140 y2=182'
  82.     address mpmorph 'addpoint x1=101 y1=223 x2=100 y2=196'
  83.     address mpmorph 'addpoint x1=164 y1=225 x2=159 y2=195'
  84.     address mpmorph 'addpoint x1=129 y1=229 x2=136 y2=215'
  85.     address mpmorph 'addpoint x1=129 y1=217 x2=134 y2=192'
  86.     address mpmorph 'addpoint x1=125 y1=255 x2=125 y2=255'
  87.     address mpmorph 'addpoint x1=255 y1=103 x2=255 y2=103'
  88.     address mpmorph 'addpoint x1=0 y1=102 x2=0 y2=102'
  89.     address mpmorph 'addpoint x1=128 y1=0 x2=128 y2=0'
  90.     address mpmorph 'addpoint x1=80 y1=230 x2=83 y2=228'
  91.     address mpmorph 'addpoint x1=55 y1=188 x2=55 y2=188'
  92.     address mpmorph 'addpoint x1=40 y1=111 x2=40 y2=111'
  93.     address mpmorph 'addpoint x1=221 y1=104 x2=207 y2=114'
  94.     address mpmorph 'addpoint x1=206 y1=188 x2=186 y2=173'
  95.     address mpmorph 'addpoint x1=88 y1=42 x2=88 y2=42'
  96.     address mpmorph 'addpoint x1=177 y1=46 x2=177 y2=46'
  97.     address mpmorph 'addpoint x1=117 y1=230 x2=117 y2=210'
  98.     address mpmorph 'addpoint x1=146 y1=230 x2=151 y2=208'
  99.     address mpmorph 'addpoint x1=172 y1=234 x2=166 y2=206'
  100.     address mpmorph 'addpoint x1=128 y1=242 x2=127 y2=240'
  101.     address mpmorph 'addpoint x1=188 y1=255 x2=188 y2=255'
  102.     address mpmorph 'addpoint x1=214 y1=70 x2=214 y2=70'
  103. end
  104. if (arg1="ALL") then do
  105.     address command "wait 4"
  106. end
  107. if (arg1="B8") | (arg1="ALL") then do
  108.     address mpmorph 'triangulate force'
  109. end
  110. if (arg1="ALL") then do
  111.     address command "wait 4"
  112. end
  113. if (arg1="B9") | (arg1="ALL") then do
  114.     address mpmorph 'saveas filename=ram:test.points'
  115. end
  116. if (arg1="B10") | (arg1="ALL") then do
  117.     address mpmorph 'quit'
  118. end
  119. if (arg1="C1") | (arg1="ALL") then do
  120.     address command 'mprender files=ram:test.points'
  121. end
  122.