Ostatnio dzióbię znowu w Hollywood i tak sobie pomyślałem, że może coś dorzucę początkującym takim jak ja – w końcu wszyscy od siebie się uczymy, jak to w hobby.
Dzisiejszy kawałek kodu oswaja z funkcjami dla myszy.
Kod programu
@DISPLAY {Title = "Program do bazgrania", Width = 800, Height = 600}
; Współrzędne poprzedniej pozycji kursora myszy
Local poprzednieX, poprzednieY
; Grubość linii
Local gruboscLinii = 5
; Rozmiar gumki
Local gumka = 15
; Obsługa zdarzeń z myszą
InstallEventHandler({
; Przypisanie aktualnych współrzędnych myszy do zmiennych 'poprzednieX' i 'poprzednieY' przy naciśnięciu przycisku myszy
OnMouseDown = Function() poprzednieX, poprzednieY = MouseX(), MouseY() EndFunction,
; Funkcja wywoływana przy ruchu myszy
OnMouseMove = Function()
; Deklarowanie i przypisanie aktualnych współrzędnych myszy do zmiennych 'obecneX' i 'obecneY'
Local obecneX, obecneY = MouseX(), MouseY()
If IsLeftMouse()
; Rysowanie białej linii od poprzednich do obecnych współrzędnych o grubości 'gruboscLinii'
Line(poprzednieX, poprzednieY, obecneX, obecneY, #WHITE, {Thickness = gruboscLinii})
ElseIf IsRightMouse()
; Rysowanie czarnej linii (gumki) od poprzednich do obecnych współrzędnych o grubości 'gumka'
Line(poprzednieX, poprzednieY, obecneX, obecneY, #BLACK, {Thickness = gumka})
EndIf
; Aktualizacja poprzednich współrzędnych na bieżące współrzędne
poprzednieX, poprzednieY = obecneX, obecneY
EndFunction
})
; Pętla oczekująca na zdarzenia (ruch myszy, kliknięcie)
Repeat WaitEvent Forever
Przykładowy rysunek poniżej.
To co się dzieje w kodzie jest okomentowane. Teraz rozwlekle wytłumaczę: co, po co i dlaczego tak.
Podstawy działania programu
Programik będzie reagował na wciśnięcia myszy. Przy wciśnięciu przycisku i przesuwaniu wskaźnika będzie rysował białą linię na czarnym tle. Biała linia jest pogrubiona. Kolor tła nie został zadeklarowany, więc domyślnie w Hollywood jest czarny. Gumka do mazania jest także linią, tylko trzy razy grubszą od linii rysowania; doświadczalnie ustaliłem, że tak będzie najlepiej. Gumka ma kolor czarny, bo takie jest tło. Mazanie nie jest usuwaniem linii tylko zamalowywaniem bieli czernią. W przypadku innego koloru tła kolor gumki musi być oczywiście zmieniony. Próbowałem użyć jako gumki kształtu podstawowego z wypełnieniem (kwadrat, koło), ale nie dawało to równomiernego pokrycia (postawały cieniutkie prążki), więc zrezygnowałem.
Na początku kodu (po podaniu parametrów okna programu) są Local – zmienne lokalne. Zmienne powinno umieszczać się na górze kodu – ułatwia to jego czytanie i zarządzanie zmiennymi. Zmienne przechowują wartości funkcji. Jeśli byłyby to zmienne globalne – wręcz musiałyby być na samej górze.
Widoczne litery X i Y oznaczają współrzędne. Nazwy zmiennych dałem polskie dla lepszego zrozumienia, ale nie wolno dawać znaków diakrytycznych („ogonków”). Jeżeli są nazwy angielskie to znaczy, że pochodzą z Hollywood i nie mogłem ich zmienić. Nazwy funkcji lub poleceń wbudowanych w język programowania są niezmienne. Program monitoruje wskaźnik myszy i gdy lewy przycisk myszy jest wciśnięty to rysuje na biało, a jak prawy przycisk to na czarno (czyli wymazuje).
If to spełnienie warunku, takie polskie „jeśli”. Cała konstrukcja If-ElseIf-EndIf to tak jakby po polsku napisać „jeśli-chyba, że- koniec jeśli”.
Line zajmuje się rysowaniem linii. Widoczne Thickness (czyli grubość linii) jest przypisane zarówno do rysowania jak i mazania.
Handlery
Używany jest InstallEventHandler. To jest worek na obsługę różnych zdarzeń związanych z poczynaniami użytkownika. Obszerny opis na prawie 18 stron jest w dokumentacji Hollywood. Słowo handler (które nieraz jest używane na forach amigowych) określa kawałek kodu, który obsługuje jakieś zdarzenie. Tak więc użycie w kodzie InstallEventHandler zapowiada właściwych „pomocników” (opisanych w dokumentacji). OnMouseDown to „przy naciśnięciu myszy” a OnMouseMove to „przy ruchu myszy”. Jak widać nazwy są wzięte z prostego angielskiego i to bardzo pomaga. W tym miejscu muszę zaznaczyć, że wymyślanie nazw opisujących co „to coś” robi jest dobrym nawykiem.
Nawiasy
Jest tu konstrukcja z nawiasami po słowie. Przykładowo IsLeftMouse() – po polsku by to było „jest lewy przycisk myszy” – to warunek, po którym określa się co ma sie dziać jak lewy przycisk myszy będzie wciśnięty. Nawiasy () na pierwszy rzut oka pozwalają odróżnić zmienną od funkcji, to funkcje mają nawiasy. W nawiasach umieszcza się argumenty funkcji. Argument funkcji to dane wejściowe do funkcji; można napisać, że po przyjęciu jakichś danych funkcja przybiera jakąś wartość. Jeśli nawias jest pusty to oznacza, że funkcja nie potrzebuje argumentów. Na przykład MouseX() i MouseY() pobiera dane o pozycji kursora z systemu operacyjnego i nie potrzebuje do tego żadnych dodatkowych informacji. Funkcja może też zwracać wartość, która jest wynikiem jej działania. Nie można pominąć nawiasów w funkcjach, bo wtedy interpreter (czyli program wykonujący kod) nie wiedziałby co to jest i byłby błąd składni, nie zadziałało by to.
Możliwości rozwijania programu
Pierwsze co przyszło mi do głowy:
- można dodać czyszczenie ekranu, żeby zacząć od nowa rysowanie bez konieczności wychodzenia z programu i powtórnego jego uruchomiania
- można dodać zapis obrazka do pliku graficznego
- można dodać więcej kolorów, ale to byłby przełom wymagający dołożenia dużo do kodu – żeby wybierać kolory trzeba wpierw stworzyć menu wyboru, czyli interfejs dla użytkownika; zaczęlibyśmy robić program graficzny do rysowania
- można przebudować kod tak, żeby był bardziej dojrzały i przyszłościowy, wprowadzając funkcje
Funkcje wprowadzają istotny smak w programowaniu – modułowość kodu. Taki kod jest lepiej zorganizowany i łatwiej wykorzystać powtórnie poszczególne elementy.
Teoretycznie jest możliwość – na superwolnym komputerze i przy bardzo szybkim rysowaniu – że linia wyjdzie przerywana. Wtedy można sobie poradzić opracowując algorytm, który interpoluje brakujące pozycje kursora. Interpolacja to kolejne obce słowo – najprościej to wstawienie przewidywanych wartości albo słów do kontekstu. Interpolacja w tym programie pozwalałaby na „domyślenie się” brakujących pozycji kursora.
No ale, miało być prosto dla początkujących i na tym poprzestańmy na dzisiaj. Jeżeli będzie zainteresowanie, na oślą łączkę będziemy wychodzić częściej.
