TK :: Imagen :: Cálculo TK :: Image :: Cálculo es una extensión Perl para cálculos gráficos.
Descargar ahora

TK :: Imagen :: Cálculo Clasificación y resumen

TK :: Imagen :: Cálculo Etiquetas

imagen Módulo perl tk Extensión perl cálculo de la imagen

TK :: Imagen :: Cálculo Descripción

TK :: Image :: Cálculo es una extensión Perl para cálculos gráficos. TK :: Image :: Cálculo es una extensión Perl para los cálculos gráficos.Synopsis # -------------------------------- ---------------- Usa TK :: Imagen :: Cálculo; My @points_oval = (10, 10, 30, 50); mi @points_circle = (20, 20, 60, 60); Mi @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, ... y así sucesivamente) # ---------------------- --------------------------- MIS $ CAL = TK :: Imagen :: Cálculo-> Nuevo (); My $ ref_array = $ cal-> getpointsinoval (@points_oval); # My $ ref_array = $ cal-> getpointsoutval (@points_oval); # My $ ref_array = $ cal-> getpointsincircle (@points_circle); # My $ ref_array = $ cal-> getpointsoutcircle (@points_circle); # My $ ref_array = $ cal-> getpointsinpolygon (@points_polygon); # My $ ref_array = $ cal-> getpointsoutpolygon (@points_polygon); para (@ {{$ ref_array}) {imprimir ("x: $ _-> y: $ _-> n"); } My $ ref_array1 = $ cal-> getlinesinval (@points_oval); # My $ ref_array1 = $ cal-> getlinesoutoval (@points_oval); # My $ ref_array1 = $ cal-> getlinesincircle (@points_circle); # My $ ref_array1 = $ cal-> getlinesutcircle (@points_circle); # My $ ref_array1 = $ cal-> getlinesinpolygon (@points_polygon); # My $ ref_array1 = $ cal-> getlinesutpolygon (@points_polygon); para (@ {$ ref_array1}) {impresión ("x1: $ _-> y1: $ _-> x2: $ _-> y2: $ _-> n" ) } # ---------------------------------------------------- - MY $ CAL1 = TK :: Imagen :: Cálculo-> Nuevo (-Points => @points_circle, -Form => "Círculo", # o "óvalo" o "polígono"); para mi subconjunto de $ ("PUNTOS_INSIDE", "POTES_OUTSIDE") {Imprimir ("Círculo de subsecable n $: n"); para (@ {{$ cal1 -> {$ subconjunto}}) {impresión ("x: $ _-> y: $ _-> n"); }} para mi subconjunto de $ ("Lines_inside", "Lines_Outside") {Imprimir ("Círculo de subsecable N $: N"); para (@ {{$ cal1 -> {$ subconjunto}}) {impresión ("x1: $ _-> y1: $ _-> x2: $ _-> y2: $ _---- > n "); }} # ------------------------------------------------------------------- - MY $ CAL2 = TK :: Imagen :: Cálculo-> Nuevo (-Points => @points_polygon, # necesita tres puntos al menos -form => "Polygon", -subset => "Lines_outside", # por defecto " todo" ); usa tk; My $ MW = MainWindow-> Nuevo (); My $ Canvas = $ mw-> lienzo (-width => 800, -height => 600,) -> Paquete (); para (@ {$ cal2 -> {lines_outside}}) {$ lienzo-> createline (@ {$ _}); } Bucle principal(); # ------------------------------------------------------ usa tk; Usa TK :: JPEG; My $ MW = MainWindow-> Nuevo (); My $ image = $ mw-> foto (-file => "test.jpg"); MY $ CAL3 = TK :: Imagen :: Cálculo-> Nuevo (); mis $ ref_points = $ cal3-> getpointsoutcircle (50, 50, 150, 150); $ imagen-> PUT ("# FFFFFF", -to => $ _-> , $ _-> ) para (@ {$ ref_points}); $ imagen-> escribe ("new.jpg", -desfrom => 50, 50, 150, 150); # ------------------------------------------------------ Este módulo calcula puntos y líneas dentro o fuera de los objetos gráficos simples. En este momento, objetos posibles: "óvalo", "Círculo", "Polígono" Requisitos: · Perl

TK :: Imagen :: Cálculo Software relacionado