TK :: Image :: Berechnung TK :: Image :: Die Berechnung ist eine Perl-Erweiterung für grafische Berechnungen.
Jetzt downloaden

TK :: Image :: Berechnung Ranking & Zusammenfassung

TK :: Image :: Berechnung Stichworte

Bild Perl-Modul tk Perl-Erweiterung. Bildberechnung.

TK :: Image :: Berechnung Beschreibung

TK :: Image :: Die Berechnung ist eine Perl-Erweiterung für grafische Berechnungen. TK :: Image :: Die Berechnung ist eine Perl-Erweiterung für Grafikberechnungen.Synopsis # --------------------------------------- ----------------- Verwenden Sie TK :: Image :: Berechnung; meine @points_oval = (10, 10, 30, 50); mein @points_circle = (20, 20, 60, 60); My @points_polygon = (136, 23, 231, 55, 463, 390, 338, 448, 182, 401, 148, 503, 15, 496, 9, 87); # Polygon = (x1, y1, x2, y2, x3, y3, x4, y4, ... und so auf) # ----------------------------------------- ----------------------------- My $ cal = tk :: Image :: Berechnung-> Neu (); mein $ ref_array = $ cal-> getpointsinoval (@point_oval); # My $ ref_array = $ cal-> getpointsOutoval (@point_oval); # My $ ref_array = $ cal-> GetpointsCircle (@points_circle); # mein $ ref_array = $ cal-> getpointsOutcircle (@points_circle); # My $ ref_array = $ cal-> getpointsinpolygon (@points_polygon); # My $ ref_array = $ cal-> getpointsOutpolygon (@points_polygon); für (@ {$ ref_array}) {drucken ("x: $ _-> y: $ _-> n"); } My $ ref_array1 = $ cal-> getlineinvoval (@point_oval); # My $ ref_array1 = $ cal-> getlinoval (@point_oval); # My $ ref_array1 = $ cal-> getliningcoircel (@points_circle); # My $ ref_array1 = $ cal-> getlinoutcircle (@point_circle); # My $ ref_array1 = $ cal-> getlineinpolygon (@points_polygon); # My $ ref_array1 = $ cal-> getlinesOutpolygon (@points_polygon); für (@ {$ ref_array1}) {drucken ("x1: $ _-> y1: $ _-> x2: $ _-> y2: $ _-> n" ); } # ---------------------------------------------------------------------------------------------------------------------------------- - mein $ cal1 = tk :: Image :: Berechnung-> Neu (-Punkte => @points_circle, -form => "Kreis", # oder "oval" oder "Polygon"); Für meine $ -E-Teilmenge ("point_inside", "point_outside") {drucken ("N $ Subset Kreis: n"); für (@ {$ cal1 -> {$ Subset}}) {drucken ("x: $ _-> y: $ _-> n"); }} für meine $ -Enset ("linien_inside", "linien_outside") {drucken ("N $ Subset Kreis: n"); für (@ {$ cal1 -> {$ Subset}}) {drucken ("x1: $ _-> y1: $ _-> x2: $ _-> y2: $ _- > n "); }} # ------------------------------------------------------------------------------------------------------ - mein $ cal2 = tk :: Image :: Berechnung-> NEU (-Points => @points_polygon, # benötigen drei Punkte zumindest -Form => "Polygon", -setset => "Lines_outside", # Standardeinstellungen " alle" ); Verwenden Sie tk; mein $ mw = MainWindow-> Neu (); my $ Leinwand = $ MW-> Leinwand (-breite => 800, -Höhe => 600,) -> pack (); für (@ {$ cal2 -> {lines_outside}}) {$ Leinwand-> createLine (@ {$ _}); } Hauptschleife(); # ------------------------------------------------- verwenden Tk; verwenden Tk :: JPEG; mein $ mw = MainWindow-> Neu (); my $ image = $ MW-> Foto (-file => "test.jpg"); my $ CAL3 = Tk :: Bild :: Calculation-> new (); my $ ref_points = $ cal3-> GetPointsOutCircle (50, 50, 150, 150); $ Image-> put ( "# FFFFFF", -bis => $ _-> , $ _-> ) für (@ {$ ref_points}); $ Image-> write ( "new.jpg", -von => 50, 50, 150, 150); # ------------------------------------------------- Dieses Modul berechnet Punkte und Linien innerhalb oder außerhalb von einfachen grafischen Objekten. Zu diesem Zeitpunkt möglich, Objekte: oval, Kreis, Polygon Voraussetzungen: · Perl.

TK :: Image :: Berechnung Zugehörige Software