tk :: 이미지 :: 계산 TK :: Image :: 계산은 그래픽 계산을위한 Perl 확장입니다.
지금 다운로드

tk :: 이미지 :: 계산 순위 및 요약

tk :: 이미지 :: 계산 태그

영상 Perl 모듈 TK. Perl 확장자 이미지 계산

tk :: 이미지 :: 계산 설명

TK :: Image :: 계산은 그래픽 계산을위한 Perl 확장입니다. TK :: Image :: 계산은 그래픽 계산을위한 Perl 확장자입니다. 식 노프 # ----------------------------------) ---------------- tk :: 이미지 :: 계산; My @points_oval = (10, 10, 30, 50); 내 @points_circle = (20, 20, 60, 60); @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, ... 등등) # ----------------------- --------------------------- 내 $ cal = tk :: 이미지 :: 계산 -> new (); 내 $ ref_array = $ cal-> getPointSinoval (@points_oval); # 내 $ ref_array = $ cal-> getPointSoutoval (@points_oval); # 내 $ ref_array = $ cal-> getPointSecircirle (@points_circle); # 내 $ ref_array = $ cal-> getPointSoutCircle (@points_circle); # 내 $ ref_array = $ cal-> getPointSinPolygon (@points_polygon); # 내 $ ref_array = $ cal-> getPointSoutPolygon (@points_polygon); (@ {$ ref_array}) {인쇄 ( "x : $ _-> y : $ _-> n"); } 내 $ ref_array1 = $ cal-> getLinesinoval (@points_oval); # 내 $ ref_array1 = $ cal-> getLinesOutoval (@points_oval); # $ ref_array1 = $ cal-> getLinesIRCircle (@points_circle); # 내 $ ref_array1 = $ cal-> getLinesOutcircle (@points_circle); # 내 $ ref_array1 = $ cal-> getLinesinpolygon (@points_polygon); # 내 $ ref_array1 = $ cal-> getLinesOutpolygon (@points_polygon); (@ {$ ref_array1}) {print ( "x1 : $ _> y1 : $ _-> x2 : $ _-> Y2 : $ _-> n" ); } # --------------------------------------------------------------------------------------- - my $ cal1 = tk :: 이미지 :: 계산 -> new (-points => @points_circle, -form => "원", # 또는 "타원"또는 "다각형"); $ Subset ( "points_inside", "points_outside") {print ( "n $ 하위 집합 원 : n"); (@ {$ CAL1 -> {$ SUBSET}}) {인쇄 ( "X : $ _-> Y : $ _-> N"); }} My $ Subset ( "lines_inside", "linion_outsidids") {인쇄 ( "n $ 하위 집합 원 : n"); (@ {$ cal1 -> {$ subset}}) {print ( "x1 : $ _> y1 : $ _-> x2 : $ _-> Y2 : $ _- > n "); }} # ----------------------------------------------------------------------- - my $ cal2 = tk :: 이미지 :: 계산 -> new (-points => @points_polygon, # 적어도 3 점 필요 - 적어도 - polygon ", -subset =>"lines_outside ", # defaults to" 모두" ); TK를 사용하십시오; MY $ MW = MADWINDOW-> NEW (); MY $ CANVAS = $ MW-> 캔버스 (-width => 800, -height => 600,) -> pack (); (@ {$ cal2 -> {line_outside}}) {$ canvas-> createLine (@ {$ _}); } mainloop (); # ---------------------------------------------------- TK를 사용하십시오; tk :: jpeg; MY $ MW = MADWINDOW-> NEW (); MY $ image = $ mw-> 사진 (-file => "test.jpg"); MY $ CAL3 = TK :: 이미지 :: 계산 -> new (); 내 $ ref_points = $ cal3-> getPointSoutCircle (50, 50, 150, 150); $ image-> put ( "# ffffff", -to => $ _-> , $ _-> ) for (@ {$ ref_points}); $ image-> write ( "new.jpg", -from => 50, 50, 150, 150); # ---------------------------------------------------- 이 모듈은 간단한 그래픽 객체에서 내부 또는 외부의 포인트와 선을 계산합니다. 이 시간에 가능한 객체 : "타원", "원", "다각형"요구 사항 : · Perl.

tk :: 이미지 :: 계산 관련 소프트웨어