TK :: Image :: Cálculo

TK :: Cálculo é uma extensão Perl para cálculos gráficos.
Baixe Agora

TK :: Image :: Cálculo Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Torsten Knorr
  • Site do editor:
  • http://search.cpan.org/~knorr/

TK :: Image :: Cálculo Tag


TK :: Image :: Cálculo Descrição

TK :: Image :: Cálculo é uma extensão Perl para cálculos gráficos. TK :: Image :: Cálculo é uma extensão Perl para cálculos gráficos.synopsis # ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------- Use TK :: Image :: Cálculo; meu @points_oval = (10, 10, 30, 50); meu @points_circle = (20, 20, 60, 60); Meus @Points_Polygon = (136, 231, 231, 55, 463, 390, 338, 448, 182, 401, 148, 503, 15, 496, 9, 87); # polígono = (x1, y1, x2, y2, x3, y3, x4, y4, ... e assim por diante) # ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -------------------------- My $ CAL = TK :: Image :: Calculation-> Novo (); Meu $ Ref_Array = $ Cal-> GetPointsInoval (@points_oval); # Meu $ Ref_Array = $ Cal-> GetPointsOutoval (@points_oval); # Meu $ Ref_ARRAY = $ CAL-> getPointsincircle (@point_circle); # Meu $ Ref_ARRAY = $ cal-> getpointsoutcircle (@points_circle); # Meu $ Ref_Array = $ Cal-> getPointsinpolygon (@point_polygon); # Meu $ Ref_Array = $ Cal-> getPointsoutPolygon (@point_polygon); para (@ {$ ref_array}) {imprimir ("x: $ _-> y: $ _-> n"); } Meu $ Ref_ARRAY1 = $ CAL-> GETLINESINOVALL (@points_oval); # Meu $ Ref_ARRAY1 = $ Cal-> GetLinesOutoval (@points_oval); # Meu $ Ref_ARRAY1 = $ cal-> getlenesincircle (@points_circle); # Meu $ Ref_ARRAY1 = $ cal-> getlinesoutcircle (@points_circle); # Meu $ Ref_ARRAY1 = $ CAL-> GETLINESINPOLYGON (@point_polygon); # Meu $ Ref_ARRAY1 = $ cal-> getlinesoutPolygon (@point_polygon); para (@ {$ REF_ARRAY1}) {Imprimir ("x1: $ _-> Y1: $ _-> x2: $ _-> Y2: $ _-> n" ); } # ---------------------------------------------- - Meu $ CAL1 = TK :: Image :: Calculation-> Novo (-Points => @points_circle, -Form => "círculo", # ou "oval" ou "polígono"); Para o meu subconjunto $ ("Points_Inside", "Points_Outside") {Imprimir ("n $ círculo de subconjunto: n"); para (@ {$ cal1 -> {$ subset}}) {print ("x: $ _-> y: $ _-> n"); }} para o meu sub-subconjunto ("lines_inside", "lines_outside") {Imprimir ("n $ círculo de subconjunto: n"); para (@ {$ cal1 -> {$ subset}}) {impressão ("x1: $ _-> Y1: $ _-> x2: $ _-> Y2: $ _-- > n "); }} # -------------------------------------------- - Meu $ CAL2 = TK :: Image :: Calculation-> Novo (-Points => @points_polygon, # precisa de três pontos pelo menos -Form => "polígono", -subside => "linhas_outside", # padrões " tudo" ); use tk; Meu $ MW = MainWindow-> Novo (); Minha tela de $ = $ mw-> Canvas (-Width => 800, -Height => 600,) -> Pack (); para (@ {$ cal2 -> {lines_outside}}) {$ canas-> crédula (@ {$ _}); } Mainloop (); # ------------------------------------------------ use tk; Use TK :: JPEG; Meu $ MW = MainWindow-> Novo (); minha $ image = $ mw-> foto (-file => "test.jpg"); Meu $ CAL3 = TK :: Image :: Cálculo-> Novo (); Meu $ Ref_Points = $ CAL3-> GetPointsOutcircle (50, 50, 150, 150); $ image-> Coloque ("# ffffff", -to => $ _-> , $ _-> ) para (@ {$ ref_points}); $ image-> Escrever ("New.jpg", -de => 50, 50, 150, 150); # ------------------------------------------------ Este módulo calcula pontos e linhas dentro ou fora de objetos gráficos simples. Neste momento possíveis objetos: "oval", "círculo", "polígono" requisitos: · Perl.


TK :: Image :: Cálculo Software Relacionado

Sobre nós