home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #7 / amigamamagazinepolishissue1998.iso / magazyn_amiga / 1196 / 018_deluxe_paint < prev    next >
Encoding:
Text File  |  1998-03-26  |  14.7 KB  |  365 lines
  1.  
  2.  
  3. Deluxe Paint w praktyce (odc. 42.)
  4. ----------------------------------
  5.  
  6. MACRO W DELUXE PAINT CZYLI KREW POT I ÎZY
  7.  
  8. <lead>Deluxe Paint V ma wreszcie moûliwoôê korzystania z
  9. makrodefinicji ARexxa. Jednak kiedy zaczâîem zajmowaê sië tym
  10. zagadnieniem, postanowiîem nadaê wîaônie taki tytuî odcinkowi o
  11. ARexxie w Deluxe Paint.
  12.  
  13. <a>Stanisîaw Wësîawski
  14.  
  15. <txt>Zacznë wyjâtkowo od wybrzydzania. Co prawda w odcinku, w
  16. którym po raz pierwszy wspomniaîem o makrodefinicjach Deluxa,
  17. byîem peîen zachwytu. Teraz jestem, powiedzmy, tylko zadowolony.
  18. Ale dlaczego, u licha, nie moûna w rozkazach Deluxowego ARexxa
  19. znaleúê ani jednej instrukcji rozpoznajâcej kolor piksela na
  20. którym stoi kursor? Gdyby ta drobna instrukcja istniaîa,
  21. tworzenie filtrów podobnych do tych z PersonalPainta, byîoby
  22. drobiazgiem. Zaczâîem wiëc eksperymentowaê z ARexxem Deluxe
  23. Painta takim, jaki jest.
  24.  
  25. Makrodefinicje w Deluxe Paint tworzy sië w niemal identyczny
  26. sposób jak w CED-zie. Jest to (CED) jeden z dwóch chyba
  27. najlepszych programów stworzonych dla Amigi, drugi to Opus 4.x
  28. ("piâtki" nie lubië). Naciskamy wiëc klawisze [Prawa Amiga][M],
  29. wykonujemy pewne czynnoôci programem i naciskamy ponownie [Prawa
  30. Amiga][M]. Makrodefinicja zostaîa zapamiëtana. W odróûnieniu
  31. jednak od CED-a Deluxe Paint pozwala jâ "zobaczyê" (jest w RAM:T)
  32. i edytowaê dowolnym edytorem tekstu. Poza tym powstaje
  33. automatycznie lub moûe zostaê przez nas napisana w ARexxie. W
  34. CED-zie po pierwszej sekwencji klawiszy trzeba podaê klawisz,
  35. który w przyszîoôci uruchomi "nagrywane" wîaônie makro, w DP
  36. klawisz (jeden z funkcyjnych [F1]...[F0]) podaje sië na koïcu.
  37. Reszta identycznie.
  38.  
  39. Spëdziîem wiele godzin nad tâ zabawâ i ûeby skoïczyê z uûalaniem
  40. sië nad sobâ, podam od razu, z czym sâ najwiëksze problemy.
  41. Naleûy bezwzglëdnie sprawdzaê skrypt makrodefinicji w wersji "pod
  42. CED-a". Rozkazy rysowania zastëpujemy poleceniem "TEXT n" i
  43. poprzedzamy (tylko raz na poczâtku skryptu) rozkazem MENU 0 3.
  44. Program wypisze na osobnym oknie CED-a obliczone wartoôci.
  45. Dlaczego takie komplikacje? Otóû w wypadku np. postawienia
  46. dwukropka zamiast ôrednika CED wywiesza odpowiedni komunikat
  47. ARexxa typu "bîâd taki to a taki w linii nr". Sprawdzamy linië,
  48. poprawiamy bîâd i jesteômy w domu. W Deluxe Paint, program
  49. pokazuje w takim wypadku GURU albo bez sîowa zawiesza sië i
  50. pozostaje nam tylko reset systemu. Osoby bardziej wtajemniczone w
  51. ARexx niû ja pewnie potrafiâ jakoô sobie z tym poradziê, ja
  52. jednak znam tylko tyle ARexxa, ile muszë.
  53.  
  54. Pomimo zastosowania tych mâdrych uwag oglâdaîem GURU wiele razy
  55. przy poprawnie napisanych skryptach. Wielodniowe ôledztwo
  56. skierowaîo podejrzenia na skâdinâd ôwietny program MCP, CED,
  57. ARexx oraz sam Deluxe. Zrobië tu kilka maîych dygresji. Otóû przy
  58. pracy z DP5 i animacjami zauwaûyîem gwaîtowne drûenie obrazu
  59. monitora. W porë nagrana animacja (póki jeszcze litery w menu i
  60. requesterach byîy widoczne) i reset ratowaîy pracë. W tym wypadku
  61. najbardziej prawdopodobnym winowajcâ byî wygaszacz ekranu z MCP,
  62. który usiîowaî sië wîâczyê. Úle to ôwiadczy nie tyle o MCP, ile o
  63. DP5. Pytaî mnie teû kiedyô Czytelnik z Opola o problem z A600,
  64. monitorem od PC i Deluxem4. Nie potrafiîem na to pytanie
  65. sensownie odpowiedzieê. Swojâ drogâ, namawiaîbym Czynniki
  66. Decyzyjne w Redakcji o zbieranie takich informacji i próby
  67. odpowiedzi na nie na îamach Magazynu. Amiga powoli, ale jednak
  68. obrasta w software oraz hardware i konflikty w tym gronie sâ
  69. czësto trudne do wyjaônienia.
  70.  
  71. Wracajâc do ôledztwa, to na liôcie podejrzanych ostaî sië CED z
  72. uruchomionym ARexxem. Sprawa byîa poszlakowa, ale sprawdzonym
  73. sposobem na unikniëcie kîopotów jest reset komputera po
  74. napisaniu, sprawdzeniu i zapisaniu skryptu.
  75.  
  76. Pierwszy skrypt, który postanowiîem napisaê, byî programem do
  77. rysowania sinusoidy na ekranie Deluxe Painta. Dlaczego? Wydawaîo
  78. mi sië, ûe jak to sië uda zrobiê, to reszta bëdzie juû
  79. drobnostkâ. Algorytm rysowania sinusoidy znalazîem w ksiâûce*,
  80. reszta jest moja. A wiëc na poczâtek piszemy:
  81.  
  82. <l>
  83. /* */
  84.  
  85. ADDRESS "DPAINT.1"
  86.  
  87. CALL ADDLIB 'rexxmathlib.library',0,-30
  88.  
  89. LOCKGUI;PANEL OFF;TITLE OFF
  90.  
  91.  
  92. <txt>Pierwsze dwie linie sâ oczywiste, trzecia odwoîuje sië do
  93. koniecznej w tym wypadku biblioteki matematycznej -- bëdzie
  94. uûywana funkcja SIN(). Ostatnia linia to juû typowe dla
  95. Deluxowego ARexxa komendy powodujâce odsîoniëcie i przygotowanie
  96. ekranu do pracy. Ôredniki pozwalajâ w kaûdym ARexxie poîâczyê
  97. kilka rozkazów w jednej linii (odwrotnie dziaîa przecinek).
  98.  
  99. <l>
  100. YM=500;M=YM/2  /* maksymalna wartoôê w pionie */
  101.  
  102. H=100;W=0.4*0.0314159;D=0 /* H=amplituda, W=czëstotliwoôê, D=przesuniëcie */
  103.  
  104. XL=0;XR=500;Ye1=H*SIN(W*XL+D) /* XL=minimum, XR=maksimum */
  105.  
  106. IF Ye1>=0 THEN Ye1=M-Ye1;IF Ye1<0 THEN Ye2=M+ABS(Ye1)
  107.  
  108. Xe1=XL
  109.  
  110.  
  111. <txt>Kolejne linie warto uzupeîniê o komentarz dotyczâcy zmiennej
  112. H -- powinna byê równa lub mniejsza zmiennej M. Czëstotliwoôê (W)
  113. jest dobrana przeze mnie eksperymentalnie, a Ye1 zawiera wîaôciwâ
  114. definicjë sinusoidy. Nazwy zmiennych teû majâ pewien haczyk. Otóû
  115. rozkazy makr DP zawierajâ opcje nazywane czasami X, X1 itd. Na
  116. przykîad rozkaz MOVETO 50 50, polecajâcy przesunâê kursor do
  117. pozycji okreôlonej podanymi wspóîrzëdnymi, moûna napisaê równieû
  118. jako MOVETO X 50 Y 50. Lepiej dla wîasnego dobra unikaê tworzenia
  119. zmiennych o takich wîaônie nazwach.
  120.  
  121. <l>
  122. MOVETO XL M;MBUTTONS SELECTUP /* lewy klawisz myszy zwolniony */
  123.  
  124. DO Xe2=XL TO XR;Ye2=H*SIN(W*Xe2+D)
  125.  
  126. IF Ye2>=0 THEN Ye2=M-Ye2;IF Ye2<0 THEN Ye2=M+ABS(Ye2)
  127.  
  128.  
  129. <txt>Powyûsze linie naleûâ do algorytmu, ale dalej jest juû coô
  130. mojego...
  131.  
  132. <l>
  133. N=Xe1;CALL KONWERSJA;Xe1=N;N=Ye1;CALL KONWERSJA;Ye1=N
  134.  
  135. N=Xe2;CALL KONWERSJA;Xe2=N;N=Ye2;CALL KONWERSJA;Ye2=N
  136.  
  137.  
  138. <txt>Trochë rysowania ...
  139.  
  140. <l>
  141. MOVETO Xe1 Ye1;MBUTTONS SELECTDOWN /* przesuï kursor, naciônij lewy klawisz */
  142.  
  143. MOVETO Xe2 Ye2;MBUTTONS SELECTUP /* przesuï kursor, zwolnij klawisz */
  144.  
  145. Xe1=Xe2;Ye1=Ye2;END /* koniec pëtli */
  146.  
  147. UNLOCKGUI;PANEL ON;EXIT /* przywróê normalny ekran, zakoïcz program */
  148.  
  149. <txt>Teraz pora na wyjaônienie "mojego". Parë îadnych GURU
  150. minëîo, nim zorientowaîem sië, ûe ARexx Deluxa przyjmuje tylko i
  151. wyîâcznie caîkowite liczby dodatnie. Przynajmniej w rozkazach
  152. dotyczâcych malowania na ekranie. Potëûny ARexx.guide (dostëpny w
  153. Aminecie) proponowaî w tym wypadku jakieô dziwne rozwiâzanie. Po
  154. pewnym czasie ulepiîem swoje:
  155.  
  156. <l>
  157. KONWERSJA:
  158.  
  159. IF VERIFY(N, '.', 'm')=0 THEN RETURN /* jeûeli N=0 to moûe tak pozostaê */
  160.  
  161. N=(LEFT(N,VERIFY(n, '.', 'm')-1));RETURN /* jeûeli ma dziesiëtne
  162. to wyrzuê je razem z kropkâ */
  163.  
  164.  
  165. <txt>Podprogram Konwersja nie bierze w tym wypadku pod uwagë
  166. liczb ujemnych, zajmuje sië tylko liczbami zmiennoprzecinkowymi.
  167. Litera "m" nie ma w tym miejscu nic wspólnego ze zmiennâ "M"
  168. programu. Jest to tylko opcja rozkazu ARexxa, który liczy miejsce
  169. wystâpienia kropki dziesiëtnej i wyrzuca jâ razem z resztâ
  170. liczby, która jak na ARexx przystaîo jest "stringiem".
  171.  
  172. No i co z tego? Wiele programów rysuje sinusoidë i to o wiele
  173. szybciej. Jednak jest to furtka, przez którâ moûna wejôê do
  174. skryptów rysujâcych najróûniejsze funkcje matematyczne. Zostawiam
  175. to osobom bardziej zaprzyjaúnionym z matematykâ i programowaniem.
  176. Mój skrypt dziaîa pod warunkiem, ûe uruchomimy go na ekranie 640
  177. x 512, uaktywnimy w TOOLBOX jakieô narzëdzie do rysowania "od
  178. rëki" i damy mu jakiô brush. Moûe to byê brush systemowy lub
  179. cokolwiek, co przyczepimy do kursora. Sam skrypt moûemy ostroûnie
  180. rozbudowaê, np. zmieniajâc w pëtli niektóre parametry sinusoidy.
  181. Ale proszë pamiëtaê o ostrzeûeniach na poczâtku tekstu.
  182.  
  183. Pierwsza ilustracja pokazuje kilka rysunków sinusoidy stworzonych
  184. opisanym wyûej makrem. Zmieniajâc wartoôci "W" i "H" moûna
  185. narysowaê róûne wykresy. Na drugiej ilustracji mamy sinusoidë
  186. rysowanâ nie okrâgîâ plamkâ, ale îukowatym brushem wyciëtym z
  187. pocieniowanej kuli. Druga sinusoida -- "druciana" -- narysowana
  188. zostaîa cienkim îukiem, skryptem sinusoidy z maîâ modyfikacjâ --
  189. do instrukcji pëtli dodano polecenie rysowania w osi X co piâtego
  190. punktu -- "DO ... BY 5".
  191.  
  192. Myôlâc intensywnie nad stworzeniem jakiegoô przydatnego skryptu,
  193. przypomniaîem sobie odcinki dotyczâce tworzenia tekstur. Skrypt
  194. taki nie musi juû korzystaê z biblioteki matematycznej, ale za to
  195. uûyje funkcji losowej. Pierwsze linie skryptu pomijam i
  196. przechodzë do sedna sprawy:
  197.  
  198. <l>
  199. DO I=1 TO 10 /* wykonaj dziesiëê razy */
  200.  
  201. SETFGCOLOR 1 /* rysuj kolorem nr 1 z palety */
  202.  
  203. N=I/2;CALL KONWERSJA /* zmieï liczbë na caîkowitâ */
  204.  
  205. IF N*2=I THEN SETFGCOLOR 0 /* jeûeli N parzyste rysuj kolorem tîa */
  206.  
  207. XE=100;YE=300;DO NY=100 TO 300 /* rysuj od Y=100 do Y=300 */
  208.  
  209. CALL LOS;MOVETO R NY /* wylosuj liczbë, postaw jâ na osi X */
  210.  
  211. MBUTTONS SELECTDOWN;MBUTTONS SELECTUP /* naciônij i zwolnij klawisz */
  212.  
  213. END;END;SETFGCOLOR 1;UNLOCKGUI;PANEL ON;EXIT /* zakoïczenia pëtli i programu */
  214.  
  215.  
  216. <txt>Skrypt pokrywa kwadratowy obszar losowo ustawianym brushem.
  217. Nastëpnie powtarza te czynnoôci kolorem tîa, co spowoduje
  218. wymazanie niektórych miejsc. Rysowanie i mazanie wykonuje w sumie
  219. dziesiëê razy. Podprogram Konwersja jest taki sam jak poprzednio,
  220. najwaûniejszy jest jednak podprogram losowania:
  221.  
  222. <l>
  223. LOS:
  224.  
  225. R=RANDOM(XE, YE, TIME(S));RETURN
  226.  
  227.  
  228. <txt>ARexx losuje wyjâtkowo podle. Funkcja Random dziaîa tylko na
  229. liczbach caîkowitych od XE do YE. Ale w takim wypadku
  230. przypadkowoôê jest wîaôciwie ûadna. Niezbëdnym ziarnem generatora
  231. jest tu funkcja TIME(s), która pobiera czas z Systemu, w tym
  232. wypadku w sekundach (s). I tak zobaczymy na ekranie "gëstsze"
  233. upakowanie brushy w ôrodku zakresu niû na jego koïcach, ale
  234. zawsze lepsze to niû nic. Skrypt produkuje surowiec do
  235. "tekstury". Rozmiar pola dziaîania moûna oczywiôcie dowolnie
  236. zmieniê. Jeûeli jednak chcemy pójôê krok dalej, moûemy przed
  237. "UNLOCKGUI" dodaê parë nowych linii:
  238.  
  239. <l>
  240. BRUSH 100 100 200 200 CUT /* wycinanie namalowanego obrazka */
  241.  
  242. OUTLINEBRUSH;TRIMBRUSH /* "obwódka i strzyûenie" */
  243.  
  244. CLEAR;MOVETO 150 150 /* wyczyôê ekran i postaw kursor w poprzednim miejscu */
  245.  
  246. MBUTTONS SELECTDOWN;MBUTTONS SELECTUP /* "stempluj" brush */
  247.  
  248.  
  249. <txt>I tak dalej... Pole do dziaîania otwarte. Skrypt ten dziaîa
  250. na ekranie 640 x 512 pod warunkiem, ûe tak jak poprzednio ma
  251. jakiô brush, narzëdzie do "kropkowania" i wîâczonâ opcjë COLOR.
  252. Czemu COLOR? Ano, jak damy MATTE, to dziesiëê razy wykonamy
  253. rozrzucanie takich samych brushy. Przy COLOR co drugi raz je
  254. lekko zepsujemy, poniewaû zadziaîajâ rozkazy zmiany koloru z 1 na
  255. 0 i odwrotnie. A o to wîaônie chodzi przy tworzeniu tekstur.
  256.  
  257. Trzecia ilustracja pokazuje kilka takich tekstur przygotowanych z
  258. pomocâ opisanego skryptu. Moûna (i naleûy) zmieniê obszar
  259. rysowania. Natomiast udoskonalanie skryptu przez dodawanie
  260. kolejnych rozkazów jest juû doôê dyskusyjne. Opisane wyûej makro
  261. pozwala wybraê dowolny brush i po skoïczeniu pracy pozostawia nas
  262. z "surowcem" do tworzenia tekstury. Jak widaê, rodzaje takich
  263. tekstur mogâ byê bardzo zróûnicowane. Im bardziej rozbudowany
  264. bëdzie skrypt, tym mniejsza bëdzie moûliwoôê modyfikacji
  265. koïcowego efektu z poziomu Deluxa. Nie pokazaîem tego, ale byê
  266. moûe celowe byîoby uzupeînienie skryptu o opcjë rozmazywania.
  267. Moûna to osiâgnâê przez dodanie polecenia wyciëcia fragmentu
  268. stworzonego obrazu (paska) i przeciâgniëcie go opcjâ SMEAR przez
  269. rysunek. Najbardziej jednak sensownâ modyfikacjâ (rozmazywanie
  270. moûna wykonaê "rëcznie") jest staranne dobranie parametrów
  271. losowania oraz ksztaîtu samego brusha do malowania. Poniewaû, jak
  272. wspomniaîem, losowanie nie jest doskonaîe, pole obrazu jest
  273. zagëszczone w ôrodkowej czëôci i nieco wydîuûone w pionie.
  274. Odpowiednie dobranie brusha -- okrâgîa plamka, kwadracik, pasek
  275. lub skrëcona nitka -- decyduje o koïcowym efekcie.
  276.  
  277. Jednym z pierwszych skryptów, który wykonaîem "z koniecznoôci",
  278. byî skrypt do wycinania brushy z ekranu. Powód byî taki:
  279. przygotowywaîem zestaw ikon (do menu) komercyjnego programu. Tego
  280. typu praca jest na ogóî wielokrotnie wykonywana. Ikony trzeba
  281. ciâgle poprawiaê, zmieniajâ sië ich nazwy, kolejnoôê, kolory i
  282. tak dalej. Najlepiej w takim wypadku wykonaê serië obrazków na
  283. ekranie programu malarskiego. Obrazki sâ jednakowej wielkoôci,
  284. uîoûone zwykle w prostokât liniami i kolumnami. W ten sposób
  285. moûna îatwo wyciâê z obrazu odpowiednie brushe ikon. Îatwo teû
  286. sprawdzaê ich czytelnoôê róûnymi paletami. Wyciëte brushe
  287. zamieniamy na IFF bez kompresji, np. programikiem IFFtoILBM.
  288. Koder zamieni to z kolei na jëzyk C lub asembler. Problem leûy
  289. jednak w nazwach ikon. Majâc takich obrazków do wykonania
  290. dwadzieôcia lub piëêdziesiât nie wiemy, jak który sië nazywa.
  291. Pisanie nazw przy rysunku nie pozwala na uîoûenie ich w zwarty
  292. blok gotowy do pociëcia na fragmenty.
  293.  
  294. Przygotowujemy na rysunku blok ikon (brushy do wyciëcia), a do
  295. skryptu poza wymiarami obszaru do wyciëcia umieszczamy kolejno
  296. potrzebne nazwy. Moûemy teraz dowolnie poprawiaê wyglâd ikon na
  297. wspólnym obrazku, a program i tak wytnie automatycznie
  298. odpowiednie brushe, nada im ustalone wczeôniej nazwy i zapisze je
  299. w odpowiednim miejscu. W przeciwnym wypadku zmuszeni jesteômy do
  300. wykonywania "rëcznej" roboty wycinania i ciâgîego sprawdzania,
  301. czy brush zapisujemy pod ustalonâ uprzednio nazwâ. Przy
  302. kilkudziesiëciu ikonach jest to powaûny problem.
  303.  
  304. Skrypt zaczynamy tradycyjnym nagîówkiem z dodatkami, po czym
  305. wpisujemy odpowiednie nazwy dla kolejnych brushy, ze ôcieûkâ do
  306. miejsca zapisania:
  307.  
  308. <l>
  309. a$.1="dh1:temp/Zaîaduj_plik.iff" /* 1 komórka tablicy z pierwszâ
  310. nazwâ brusha i ôcieûkâ */
  311.  
  312. a$.2="dh1:temp/Zapisz_plik.iff" /* 2 komórka tablicy z drugâ
  313. nazwâ brusha i ôcieûkâ */
  314.  
  315. a$.n="dh1:temp/Pomoc.iff" /* n-ta komórka tablicy z n-tâ nazwâ
  316. brusha i ôcieûkâ */
  317.  
  318. WIER=w;KOL=k /* iloôê wierszy =w, kolumn =k */
  319.  
  320. Xn=x;Yn=y /* parametry górnego, lewego naroûnika bloku =x, y */ 
  321.  
  322. BX=x1;BY=y1 /* wielkoôê pojedynczego brusha szer=x1, wysok=y1 */
  323.         
  324. YY=Yn-BY;numer=0
  325.  
  326. DO i=1 TO WIER;XX=Xn-BX;YY=YY+BY /* kolejne wiersze */
  327.  
  328. DO j=1 TO KOL;XX=XX+BX /* kolejne kolumny */
  329.  
  330. BRUSH XX YY BX-1 BY-1 CUT;SOLIDBODY ON /* wytnij brush jako REPLIC */
  331.  
  332. numer=numer+1 /* ustaw numer brusha */
  333.  
  334. SAVEBRUSH a$.numer /* zapisz wyciëty brush w sposób podany w
  335. tablicy a$.numer */
  336.  
  337. END;END /* koniec pëtli */
  338.  
  339. PANEL ON;TITLE ON;FREEBRUSH;UNLOCKGUI;EXIT /* przywróê panel,
  340. uwolnij brush i skoïcz */
  341.  
  342.  
  343. <txt>Oczywiôcie liczba wierszy bloku brushy razy liczba kolumn
  344. powinna odpowiadaê liczbie nazw, pod jakimi zapiszemy brushe.
  345. Jeûeli jednak blok ikon jest nierównomierny, tj. wycinamy wiëcej
  346. maîych brushy niû potrzeba nam ikon, to nie jest to ûaden kîopot.
  347. I tak póúniej przenosimy je z przykîadowo podanego katalogu Temp
  348. do wîaôciwego katalogu, np. "Brushe_do MUI", "Brushe_dwukolorowe"
  349. itd. Rzecz jasna, nazw, czyli komórek tablicy "a$", nie powinno
  350. byê mniej, bo program nie bëdzie wiedziaî, gdzie co zapisaê i
  351. GURU gotowe.
  352.  
  353. Makra do Deluxe Paint nie zastâpiâ nam normalnej pracy, ale mogâ
  354. jâ bardzo uîatwiê. Ciekawe, ûe jakoô nikt sië w to dotychczas nie
  355. bawiî. Nie znalazîem w Aminecie ani jednego skryptu do naszego
  356. programu. Naleûy jednak pamiëtaê, ûe najbardziej naturalnâ
  357. funkcjâ makra w Deluxe Paint jest zapisanie i powtórzenie
  358. ostatnio wykonywanych czynnoôci. Takâ moûliwoôê miaî kiedyô
  359. DigiPaint III. Kto go jeszcze uûywa?
  360.  
  361.  
  362. <przyp>*Donald Hearn, M. Pauline Baker "Grafika
  363. Mikrokomputerowa", str. 90, WNT Warszawa 1988 r.
  364.  
  365.