Tk :: abstractcanvas. Leinwand mit abstraktem Zentrum, Zoomen und Drehen von Methoden
Jetzt downloaden

Tk :: abstractcanvas. Ranking & Zusammenfassung

Tk :: abstractcanvas. Stichworte

Perl-Modul Perl tk Segeltuch Tk Leinwand Abstrakte Leinwand

Tk :: abstractcanvas. Beschreibung

Leinwand mit abstraktem Zentrum, Zoomen und Drehen von Methoden TK :: AbstractCanvas ist eine TK-Canvas-Klasse mit abstraktem Zentrum, Zoom- und Drehen von Methoden.Synopsis #! / Usr / bin / perl -w verwenden streng; Verwenden Sie tk; Verwenden Sie TK :: AbstractCanvas; mein $ mwin = tk :: Hauptwindow-> Neu (); Meine $ ACNV = $ MWIN-> AbstractCanvas () -> Packung ('-Expand' => 1, 'Fill' => 'beide'); # $ acnv-> inverty (1); # Punktentwicklung für invertierte Y-Achse $ ACNV-> ControlNav (1); # Super Control Navigation $ acnv-> recttopoly (1); # $ acnv-> ovaltopoly (1); mein $ rect = $ acnv-> createrktangle (7, 8, 24, 23, '-Fill' => 'rot'); mein $ oval = $ acnv-> createvoval (23, 24, 32, 27, 'fill' => 'grün'); Meine $ line = $ acnv-> creatingeline (0, 1, 31, 32, '-Fill' => 'Blau', '-parrow' => 'LAST'); mein $ labl = $ mwin-> label ('- text' => 'hallo abstractcanvas! =)'); mein $ wind = $ acnv-> createwindow (15, 16, '-window' => $ labl); $ ACNV-> CANVASBIND ('' => SUB {$ ACNV-> ZOOM (1.04);}); $ ACNV-> CANVASBIND ('' => Sub {$ ACNV-> drehen ($ up, 5); $ ACNV-> Drehen ($ Wind, 5); # sollte nichts tun, weil es nicht $ ist ACNV-> drehen ($ oval, -5); # drehen Sie sich um Center $ acnv-> rotieren ($ line, -5);}); $ ACNV-> CANVASBIND ('' => SUB {$ ACNV-> ZOOM (0,97);}); $ acnv-> ansehenAll (); MainLoop (); AbstractCanvas bietet eine Alternative zu einem TK :: Canvas-Objekt, das die Koordinaten von Objekten abstrakten, die auf die Leinwand gezogen werden. Dadurch können die gesamte Leinwand zoomed oder gedreht werden. Rotationen modifizieren die Koordinaten, dass das ursprüngliche Objekt aufgestellt wurde, aber die gesamte Leinwand zoomen, nicht. :: Rotcanvas von Ala Qumsieh. Anforderungen: · Perl.

Tk :: abstractcanvas. Zugehörige Software