TK :: Image :: Calcolo TK :: Image :: Il calcolo è un'estensione perl per i calcoli grafici.
Scarica ora

TK :: Image :: Calcolo Classifica e riepilogo

TK :: Image :: Calcolo Tag

Immagine modulo Perl tk un'estensione Perl calcolo dell'immagine

TK :: Image :: Calcolo Descrizione

TK :: Image :: Il calcolo è un'estensione Perl per calcoli grafici. TK :: Image :: Il calcolo è un'estensione perl per calcoli grafici.synopsis # ------------------------------------------------------------------ ---------------- Usa tk :: Image :: Calcolo; my @points_oval = (10, 10, 30, 50); my @points_circle = (20, 20, 60, 60); my @points_polygon = (136, 29, 331, 55, 463, 390, 338, 448, 182, 401, 148, 503, 15, 496, 9, 87); # poligono = (x1, y1, x2, y2, x3, y3, x4, y4, ... e così via) # ------------------------ --------------------------- My $ cal = TK :: Image :: Calcolo-> Nuovo (); My $ REF_ARRAY = $ CAL-> GetPointsOval (@Points_oval); # My $ REF_ARRAY = $ CAL-> GetPointOutoval (@Points_oval); # My $ REF_ARRAY = $ CAL-> GetPointsincircle (@Points_Circle); # My $ REF_ARRAY = $ CAL-> GetPointOutCircle (@Points_Circle); # My $ REF_ARRAY = $ CAL-> GETPOINTSINPOLYGON (@POINTS_POLYGON); # My $ REF_ARRAY = $ CAL-> GETPOINTINTOUTPOLYGON (@POINTS_POLYGON); per (@ {$ refer_array}) {stampa ("x: $ _-> y: $ _-> n"); } My $ ref_array1 = $ cal-> getlinesinoval (@Points_oval); # My $ REF_ARRAY1 = $ CAL-> GETLINESOUTAL (@Points_Oval); # mio $ ref_array1 = $ cal-> getlinesincircle (@points_circle); # My $ REF_ARRAY1 = $ CAL-> GETLINESOUTCircle (@Points_Circle); # mio $ ref_array1 = $ cal-> getlinesinpolygon (@Points_polygon); # My $ REF_ARRAY1 = $ CAL-> GETLINESOUTPOLYGON (@POINTS_POLYGON); per (@ {$ ref_array1}) {stampa ("x1: $ _-> Y1: $ _-> x2: $ _-> Y2: $ _-> n" ); } # -------------------------------------------------- - My $ CAL1 = TK :: Image :: Calcolo-> Nuovo (-Point => @Points_Circle, -Form => "cerchio", # o "ovale" o "poligono"); per il mio sottoinsieme $ ("Points_inside", "Points_outside") {stampa ("N. $ Sottost Circle: n"); per (@ {$ cal1 -> {$ sottoinsieme}}) {stampa ("x: $ _-> y: $ _-> n"); }} per il mio sottoinsieme $ ("Lines_inside", "Lines_outside") {stampa ("N $ Sobset Circle: n"); per (@ {$ CAL1 -> {$ SUBSET}}) {stampa ("X1: $ _-> Y1: $ _-> x2: $ _-> Y2: $ _- > n "); }} # ----------------------------------------------- - My $ CAL2 = TK :: Image :: Calcolo-> Nuovo (-Point => @Points_polygon, # Hai bisogno di tre punti almeno -Form => "Polygon", -Subset => "linee_outside", # predefiniti su " tutto" ); usa TK; My $ MW = MainWindow-> Nuovo (); My $ Canvas = $ MW-> Canvas (-width => 800, -Height => 600,) -> Pack (); per (@ {$ cal2 -> {lines_outside}}) {$ Canvas-> Createeline (@ {$ _}); } Mainloop (); # ------------------------------------------------- usa TK; Usa TK :: JPEG; My $ MW = MainWindow-> Nuovo (); My $ IMMAGINI = $ MW-> Foto (-File => "test.jpg"); My $ CAL3 = TK :: Image :: Calcolo-> Nuovo (); My $ REF_POINTS = $ CAL3-> GetPointOutCircle (50, 50, 150, 150); $ image-> Metti ("# ffffff", -to => $ _-> , $ _-> ) per (@ {$ ref_point}); $ image-> scrivi ("new.jpg", -da => 50, 50, 150, 150); # ------------------------------------------------- Questo modulo calcola punti e linee all'interno o all'esterno da semplici oggetti grafici. In questo momento Oggetti possibili: "Oval", "Circle", "Polygon" Requisiti: · Perl.

TK :: Image :: Calcolo Software correlato