Meta :: Widget :: GTK :: Sprite META :: Widget :: GTK :: Sprite, C64 tarzı sprite yapmak için bir Perl modülüdür.
Şimdi İndirin

Meta :: Widget :: GTK :: Sprite Sıralama ve Özet

Meta :: Widget :: GTK :: Sprite Etiketler

Araç Perl modülü Meta Gtk sprite

Meta :: Widget :: GTK :: Sprite Açıklama

Meta :: Widget :: GTK :: Sprite, C64 tarzı sprite yapmak için bir Perl modülüdür. META :: Widget :: GTK :: Sprite, C64 tarzı sprites yapmak için bir perl modülüdür.Synopsis GTK kullanın; GNOME kullanın; init gnome "test.pl"; Kullanın Meta :: Widget :: GTK :: Sprite; $ MW = Yeni GTK :: Pencere ("Toplevel"); benim ($ tuval) = GNOME :: Canvas-> Yeni (); $ MW-> Ekle ($ tuval); $ Tuval-> Göster; $ croot = $ tuval-> kök; $ Sprites = New Meta :: Widget :: GTK :: Sprite ($ croot); $ P1 = $ Sprite-> Oluştur ("./ Player1.xpm", 100, 0); $ sprite-> slide_to_time ($ p1,5000, 100, 100); $ p2 = $ sprite-> ("./ Player2.xpm", 0, 0); $ sprite-> slide_to_speed ($ p2,10, 100, 100); $ Sprite-> set_colliS_Handler (BANG); $ MW-> gösteri; Gtk-> ana; Alt Bang {"BANG! N"; çıkış; } Sprite, C64'ün basit grafik programlamasını geri getirmek için bir modüldür (umarım görünümsüz bileşen olmadan). Resimleri tuval üzerinde 'sprite' olarak ilan edebilir ve sonra onları hareket ettirebilir ve bunları birbirlerine çarpabilir ve bunları birbirlerine çarpabilirsiniz. Tuval GNOME :: Tuval nesnesidir. Sprite.Methodsnew Meta :: Widget :: GTK :: Sprite ($ Canvas_root) başlamadan önce bir GTK :: Tuval nesnesine sahip olmalısınız; Yeni yöntem bir argüman alır, tuval için tuval için tuval root nesnesi. Tuval kökünden tuvalinizden bu şekilde alabilirsiniz: $ croot = $ tuval-> kök; $ sprite_number = $ sprite-> Create ("/ yol / / dosya adı", 10, 20); oluşturma bir görüntü yükleyecektir Diskten (şu anda sadece XPM formatında) dosya (sadece xpm formatı). İki sayı, tuval üzerindeki x ve y pozisyonudur. $ Sprite-> Show ($ sprite_number); Sprite'in Canvas $ Sprite-> Gizle ($ sprite_number) üzerinde görünmesini sağlar; Sprite Resmin tuvalden kaybolmasını sağlayın. Diğer sprite ile hala çarpışabileceğini unutmayın. Bir şeye çarpmasını istemiyorsanız, onu dışarı çıkarın ya da kendi çarpışma işleyicinizde görmezden gelin. $ Sprite-> yok ($ sprite_number); Tamamen bir Sprite'yı yok eder. $ Sprite-> Move_to ($ Sprite_Number, 10, 20); SPRITE_Number olarak adlandırılan sprite hemen verilen konuma bağlar. Kontrast slide_to_xxx fonksiyonları. $ Sprite-> slide_to_time ($ sprite_number, $ Saat, 10, 20); Tuval genelinde 10, 20 konumuna kadar sprite $ sprite_number 'slayt' yapacak. Yavaş hızlar sarsıntılı görünecektir. $ Sprite-> slide_to_speed ($ sprite_number, $ hız, 10, 20); Sprite $ sprite_number'i 10, 20 konumuna kaydıracak. . $ sprite-> pos ($ sprite_number); $ sprite_number $ sprite-> hızı ($ sprite_number, 5, 6) 'nın X ve Y koordinatlarını döndürür; $ Sprite_Number'in hızını ayarlar. Sayılar x ve y hızlarıdır. Negatif sayılar, Sprite'in geriye doğru gitmesini sağlayacaktır. $ Sprite-> Set_Collision_Handler (Collision_Handler); İki sprite çarpışırken çağrılacak bir işlevi adlandırın. Çarpışma algılama sisteminin şu anda son derece berbat olduğunu unutmayın. Çarpışmaları verimli bir şekilde tespit etmenin çok zor olduğu ortaya çıkıyor. Fonksiyonunuzun böyle denir: Collision_Handler ($ sprite_number, $ sprite_number); iki sprite sayısının çarpışan iki sprite olduğu yer. Birden fazla sprite çarpışması birçok çarpışma işleyicisi geri çağrısına neden olur. Bunu optimize etmedim, bu yüzden daha fazla sprite eklediğiniz gibi büyük bir yavaşlama göreceksiniz. Çarpışmaları kontrol etmek için, işleyiciyi UNDEF: $ Sprite-> set_colliS_Handler (UNDEF) olarak ayarlamak için; Gereksinimler: · Perl

Meta :: Widget :: GTK :: Sprite İlgili Yazılım