Tk :: afbeelding :: berekening TK :: Afbeelding :: Berekening is een perl-extensie voor grafische berekeningen.
Download nu

Tk :: afbeelding :: berekening Rangschikking & Samenvatting

Tk :: afbeelding :: berekening Tags

afbeelding Perl-module tk Perl-extensie image berekening

Tk :: afbeelding :: berekening Beschrijving

TK :: Afbeelding :: Berekening is een perl-extensie voor grafische berekeningen. TK :: Afbeelding :: Berekening is een perl-extensie voor grafische berekeningen. Synopsis # ----------------------------------- ---------------- Gebruik TK :: Afbeelding :: Berekening; mijn @Points_oval = (10, 10, 30, 50); mijn @points_circle = (20, 20, 60, 60); Mijn @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, ... enzovoort) # ----------------------- ---------------------------- My $ CAL = TK :: Afbeelding :: Berekening-> Nieuw (); mijn $ Ref_array = $ cal-> getpointsinoval (@points_oval); # mijn $ ref_array = $ cal-> getpointsOutoval (@points_oval); # Mijn $ Ref_array = $ Cal-> GetPointincircle (@points_circle); # Mijn $ Ref_array = $ Cal-> GetPointSoutCircle (@points_circle); # mijn $ ref_array = $ cal-> getpointinpolygon (@points_polygon); # mijn $ ref_array = $ cal-> getpointsoutpolygon (@points_polygon); voor (@ {$ Ref_array}) {print ("x: $ _-> y: $ _-> n"); } Mijn $ Ref_array1 = $ Cal-> Getlinesinoval (@points_oval); # Mijn $ Ref_array1 = $ Cal-> GetlinesOutoval (@points_oval); # mijn $ ref_array1 = $ cal-> getlinesincircle (@points_circle); # Mijn $ Ref_array1 = $ Cal-> Getlinesoutcircle (@points_circle); # mijn $ ref_array1 = $ cal-> getlinesinpolygon (@points_polygon); # mijn $ ref_array1 = $ cal-> getlinesoutpolygon (@points_polygon); voor (@ {$ ref_array1}) {print ("x1: $ _-> y1: $ _-> x2: $ _-> Y2: $ _-> n" ); } # ---------------------------------------------------- - Mijn $ CAL1 = TK :: Afbeelding :: Berekening-> Nieuwe (-points => @points_circle, -Form => "cirkel", # of "ovaal" of "polygon"); Voor mijn $ subset ("Points_inside", "Points_outside") {Print ("N $ Subset Circle: N"); voor (@ {$ cal1 -> {$ subset}}) {print ("x: $ _-> y: $ _-> n"); }} Voor mijn $ subset ("Lines_inside", "Lines_outside") {Print ("N $ Subset Circle: N"); voor (@ {$ cal1 -> {$ subset}}) {print ("x1: $ _-> Y1: $ _-> x2: $ _-> Y2: $ _- > n "); }} # ------------------------------------------------ - Mijn $ CAL2 = TK :: Afbeelding :: Berekening-> Nieuwe (-points => @points_polygon, # hebben drie punten nodig op zijn minstformulier => "Polygon", -subset => "lijnen_outside", # Standaardwaarden " allemaal" ); gebruik TK; mijn $ MW = mainwindow-> nieuw (); mijn $ canvas = $ mw-> canvas (-width => 800, -Hoogte => 600,) -> Pack (); voor (@ {$ cal2 -> {lines_outside}}) {$ canvas-> createline (@ {$}); } Hoofdlus(); # --------------------------------------------------- gebruik TK; Gebruik TK :: JPEG; mijn $ MW = mainwindow-> nieuw (); mijn $ image = $ mw-> photo (-file => "test.jpg"); mijn $ cal3 = tk :: afbeelding :: berekenen-> nieuw (); My $ Ref_Points = $ CAL3-> GETPOINTOUNSOPCIRCLE (50, 50, 150, 150); $ image-> put ("# ffffff", -to => $ _-> , $ _-> ) voor (@ {$ ref_points}); $ image-> schrijven ("NIEUW.JPG", -FROM => 50, 50, 150, 150); # --------------------------------------------------- Deze module berekent punten en lijnen binnen of buiten van eenvoudige grafische objecten. Op deze tijd mogelijke objecten: "Ovaal", "Circle", "Polygon" -vereisten: · Perl

Tk :: afbeelding :: berekening Gerelateerde software