Tk :: תמונה :: חישוב TK :: תמונה :: חישוב הוא הרחבה Perl עבור חישובים גרפיים.
הורד עכשיו

Tk :: תמונה :: חישוב דירוג וסיכום

Tk :: תמונה :: חישוב תגים

תמונה פרל מודול tk הארכת Perl חישוב תמונה

Tk :: תמונה :: חישוב תיאור

TK :: תמונה :: חישוב הוא הרחבה Perl עבור חישובים גרפיים. Tk :: תמונה :: חישוב הוא הרחבה perl עבור חישובים גרפיים. Synopsis # ------------------------------- ---------------- השתמש TK :: תמונה :: חישוב; @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 :: תמונה :: חישוב-> חדש (); שלי $ ref_array = $ cal-> getpointsOval (@points_oval); # $ ref_array = $ CAL-> GetpointsOutoval (@points_oval); # שלי $ ref_array = $ cal-> getpointscircle (@points_circle); # $ ref_array = $ cal-> getpointsoutcircle (@points_circle); # $ ref_array = $ cal-> getpointsinpolygon (@points_polygon); # $ ref_array = $ cal-> getpointsoutpolygon (@points_polygon); עבור (@ {$ ref_array}) {print ("x: $ _-> y: $ _-> n"); } שלי Ref_array1 = $ CAL-> GetLinesInoval (@points_oval); # $ ref_array1 = $ cal-> getlinesocal (@points_oval); # $ ref_array1 = $ cal-> getlinesincle (@points_circle); # $ ref_array1 = $ cal-> getlinescircle (@points_circle); # $ ref_array1 = $ cal-> getlinesinpolygon (@points_polygon); # $ ref_array1 = $ cal-> getlinesoutpolygon (@points_polygon); עבור (@ {$ ref_array1}) {print ("x1: $ _-> y1: $ _-> x2: $ _-> Y2: $ _-> N" ); } # ---------------------------------------------- - Cal1 $ שלי = tk :: תמונה :: חישוב-> חדש (-points => @points_circle,-inform => "מעגל", # או "סגלגל" או "מצולע"); עבור subset $ שלי ("נקודות_inside", "נקודות_Outside") {print ("n $ subset מעגל: n"); עבור (@ {$ CAL1 -> {$ subset}}) {print ("x: $ _-> y: $ _-> n"); }} עבור subset $ שלי ("קווים_אינסיד", "קווים_Outside") {print ("N $ subset מעגל: n"); עבור (@ {$ CAL1 -> {$ subset}}) {print ("x1: $ _-> y1: $ _-> x2: $ _-> Y2: $ _- > n "); }} # --------------------------------------------- - Cal2 $ = tk :: תמונה :: חישוב-> חדש (-points => @points_polygon, # צריך שלוש נקודות לפחות -Form => "מצולע", -Subset => "קווים", # ברירות המחדל " את כל" ); השתמש ב- TK; שלי $ mw = mainwindow-> חדש (); בד שלי $ = $ mw-> בד (-Width => 800, -Hight => 600,) -> Pack (); עבור (@ {$ cal2 -> {שורה_Outside}}) {$ corder-> Createline (@ {$ _}); } Meerloop (); # ----------------------------------------------- השתמש ב- TK; השתמש ב- TK :: JPEG; שלי $ mw = mainwindow-> חדש (); התמונה שלי $ = $ mw-> תמונה (-File => "test.jpg"); Cal3 $ שלי = tk :: תמונה :: חישוב-> חדש (); שלי $ ref_points = $ cal3-> getpointsoutcircle (50, 50, 150, 150); $ image-> שים ("# FFFFFF", -To => $ _-> , $ _-> ) עבור (@ {$ ref_points}); $ image-> כתוב ("New.jpg", מפרום => 50, 50, 150, 150); # ----------------------------------------------- מודול זה מחשב נקודות וקווים בתוך או מחוץ לאובייקטים גרפיים פשוטים. בשלב זה אובייקטים אפשריים: "סגלגל", "מעגל", "מצולע" דרישות: · פרל

Tk :: תמונה :: חישוב תוכנה קשורה