TK :: Image :: حساب TK :: حساب :: حساب هو امتداد بيرل لحسابات الرسوم.
التحميل الان

TK :: Image :: حساب الترتيب والملخص

TK :: Image :: حساب العلامات

صورة الوحدة النمطية بيرل معتقدات امتداد بيرل حساب الصورة

TK :: Image :: حساب وصف

TK :: Image :: حساب هو امتداد بيرل لحسابات الرسوم البيانية. TK :: Image :: حساب هو امتداد بيرل لحسابات الرسوم. #synopsis # --------------------------------- ---------------- استخدم TK :: Image :: حساب؛ بلدي coints_oval = (10، 10، 30، 50)؛ بلدي coints_circle = (20، 20، 60، 60)؛ بلدي coints_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، ... وهلم جرا) # ---------------------- --------------------------- بلدي $ كال = TK :: Image :: حساب-> جديد ()؛ بلدي $ ref_array = $ cal-> getpointsSinoval (points_oval)؛ # بلدي $ ref_array = $ cal-> getpointsoutoutoval (coints_oval)؛ # بلدي $ ref_array = $ cal-> getpointsincircle (phones_circle)؛ # بلدي $ ref_array = $ cal-> getpointsoutcircle (points_circle)؛ # بلدي $ ref_array = $ cal-> getpointsinpolygon (coints_polygon)؛ # بلدي $ ref_array = $ cal-> getpointsoutpolygon (points_polygon)؛ ل (@ {$ ref_array}) {print ("x: $ _-> Y: $ _-> n")؛ } بلدي $ ref_array1 = $ cal-> getlineinal (coints_oval)؛ # لي $ ref_array1 = $ cal-> getlobaloutoval (points_oval)؛ # بلدي $ ref_array1 = $ cal-> getlineCircle (phones_circle)؛ # بلدي $ ref_array1 = $ cal-> getloboutcircle (phones_circle)؛ # بلدي $ ref_array1 = $ cal-> getlineinpolygon (phones_polygon)؛ # بلدي $ ref_array1 = $ cal-> getlineoutoutpolygon (points_polygon)؛ ل (@ {$ ref_array1}) {print ("x1: $ _-> y1: $ _-> x2: $ _> y2: $ _-> n" ) } # ------------------------------------------------ - بلدي $ cal1 = tk :: image :: حساب-> جديد (-نقاط = >Points_Circle، -form => "Circle"، # أو "Oval" أو "المضلع")؛ لبلدي مجموعة فرعية $ ("النقاط_Inside"، "Point_Outside") {print ("N $ مجموعة فرعية المجموعة الفرعية: N")؛ ل (@ {$ Cal1 -> {$ subset}}) {print ("x: $ _-> Y: $ _-> n")؛ }} للحصول على مجموعة فرعية $ ("Lines_Inside"، "Lines_Outside") {print ("N $ Subset Circle: N")؛ ل (@ {$ cal1 -> {$ subset}}) {print ("x1: $ _-> y1: $ _-> x2: $ _-> y2: $ _- > ن ")؛ }}} # ----------------------------------------------- - بلدي $ cal2 = tk :: image :: حساب-> جديد (-Points => coints_polygon، # تحتاج إلى ثلاث نقاط على الأقل --FormForm => "المضلع"، -Subset => "lines_outside"، # افتراضيات إلى " الكل" )؛ استخدام المعارف التقليدية بلدي $ MW = Mainwindow-> جديد ()؛ بلدي $ Canvas = $ MW-> قماش (-Width => 800، -Height => 600،) -> حزمة ()؛ ل (@ {$ cal2 -> {lines_outside}}) {$ canvas-> createline (@ {$ _})؛ } Mainloop ()؛ # ------------------------------------------------- استخدام المعارف التقليدية استخدام TK :: JPEG؛ بلدي $ MW = Mainwindow-> جديد ()؛ بلدي صورة $ = $ mw-> photo (-file => "test.jpg")؛ بلدي $ cal3 = tk :: image :: حساب-> جديد ()؛ بلدي $ ref_points = $ cal3-> getpointsoutcircle (50، 50، 150، 150)؛ $ Image-> وضع ("# FFFFF"، إلى => $ _-> ، $ _-> ) ل (@ {$ ref_points})؛ $ Image-> اكتب ("new.jpg"، من from => 50 و 50 و 150 و 150)؛ # ------------------------------------------------- تحسب هذه الوحدة النقاط والخطوط داخل أو خارج كائنات جرافيك بسيطة. في هذا الوقت كائنات محتملة: "البيضاوي"، "دائرة"، متطلبات "المضلع": perl.

TK :: Image :: حساب برامج ذات صلة