TK :: Image ::計算 TK :: Image ::計算は、グラフィック計算のためのPerl拡張です。
今すぐダウンロード

TK :: Image ::計算 ランキングとまとめ

TK :: Image ::計算 タグ

画像 Perlモジュール TK Perlの拡張子 画像計算

TK :: Image ::計算 説明

TK :: Image ::計算は、グラフィック計算のPerl拡張です。 TK :: Image ::計算は、グラフィック計算のPerl拡張です.synopsis＃---------------------------- ---------------- TK :: Image ::計算を使用する。私の@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）。 ＃ポリゴン=（X1、Y1、X2、Y2、X3、Y3、X4、Y4、...など）＃--------------------- ----------------------------私の$ cal = tk :: image :: calculation-> new（）; My $ REF_ARRAY = $ CAL-> GetPointSinoval（@points_oval）; ＃私の$ ref_array = $ cal-> getPointSoutoval（@points_oval）; ＃私の$ ref_array = $ Cal-> GetPointSincircle（@points_circle）; ＃私の$ ref_array = $ cal-> getPointSoutCircle（@points_circle）; ＃私の$ ref_array = $ cal-> getPointSinpolygon（@points_polygon）; ＃私の$ ref_array = $ cal-> getPointSoutpolygon（@points_polygon）; （@ {$ ref_array}）{印刷（ "x：$ _-> $ _-> n"）; My $ REF_ARRAY1 = $ CAL-> getLinesinoval（@points_oval）; ＃私の$ ref_array1 = $ cal-> getlinesoutoval（@points_oval）; ＃私の$ ref_array1 = $ cal-> getLinesincircle（@points_circle）; ＃私の$ ref_array1 = $ cal-> getLinesoutCircle（@points_circle）; ＃私の$ ref_array1 = $ cal-> getLinesinPolygon（@points_polygon）; ＃私の$ ref_array1 = $ cal-> getlinesoutpolygon（@points_polygon）; （@ {$ ref_array1}）{印刷（ "x1：$ _-> $ _-> x 2：$ _-> $ _-> n" ）; }＃------------------------------------------------ - My $ CAL1 = TK :: Image :: Calculation-> New（-points => @points_circle、-form => "circle"、＃または "楕円形"または "Polygon"）; My $ SUBST（ "PONSES_INSIDE"、 "PONSE_OUTSIES"）{印刷（ "n $サブセットサークル：n"）; （@ {$ CAL1 - > {$サブセット}}）の場合{印刷（ "x：$ _-> y：$ _-> n"）; My $ SUBSET（ "lines_inside"、 "lines_outside"）{print（ "n $サブセット円：n"）} （@ {$ CAL1 - > {$サブセット}}）{印刷（ "x1：$ _-> y1：$ _-> x2：$ _-> Y2：$ _- > N "）; }＃-------------------------------------------- - My $ CAL2 = TK :: Image :: Calculation-> New（-points => @polygon、＃は少なくとも-form => "polygon"、-subset => "lines_outside"、＃defaultの3点を必要とします。全て" ）; tkを使う。 My $ MW = MainWindow-> new（）; My $ CANVAS = $ MW->キャンバス（-Width => 800、-Height => 600、） - > pack（）; （@ {$ CAL2 - > {lines_outside}}）{$ CANVAS-> createline（@ {$ _}）; mainloop（）} ＃----------------------------------------------- tkを使う。 TK :: JPEGを使用してください。 My $ MW = MainWindow-> new（）; My $ image = $ MW->写真（-file => "test.jpg"）; My $ CAL3 = TK :: Image :: Calculation-> New（）; My $ REF_POINTS = $ CAL3-> GetPointSoutCircle（50,50,150,150）。 $ image-> put（ "＃ffffff"、-to => => 、$ _-> ）for（@ {$ ref_points}）。 $ image-> write（ "new.jpg"、-from => 50,50,150,150）; ＃-----------------------------------------------このモジュールは、単純なグラフィックオブジェクトからのポイントとラインを計算します。この時点で可能なオブジェクト： "楕円形"、 "円"、 "Polygon"要件： ・Perl

TK :: Image ::計算 関連ソフトウェア