التصوير :: صور

التحميل الان

التصوير :: صور الترتيب والملخص

الإعلانات

  • Rating:
  • رخصة:
  • Perl Artistic License
  • السعر:
  • FREE
  • اسم الناشر:
  • Tony Cook, Arnar M. Hrafnkelsson
  • موقع ويب الناشر:
  • http://search.cpan.org/~tonyc/Imager-0.61/lib/Imager/ImageTypes.pod

التصوير :: صور العلامات


التصوير :: صور وصف

Imager :: ImageTypes هو وحدة بيرل التي تحتوي على نماذج الصور للتصوير. Imager :: ImagEetypes هو وحدة بيرل التي تحتوي على نماذج للصور للمخيل. $ img = التصوير-> جديد ()؛ # صورة فارغة (الحجم هي 0) $ img-> فتح (file => 'lena.png'، اكتب => 'png')؛ # قراءة الصورة من ملف $ img = التصوير-> جديد (xsize => 400، ysize => 300)؛ # بيانات RGB $ img = التصوير-> جديد (xsize => 400، ysize => 300، # قنوات تدرج الرمادي => 1)؛ # $ img = التصوير-> جديد (xsize => 400، ysize => 300، # RGB مع قنوات ألفا => 4)؛ # $ img = التصوير-> جديد (xsize => 200، ysize => 200، type => 'pletted')؛ # عرضت الصورة $ img = التصوير-> جديد (xsize => 200، ysize => 200، bits => 16)؛ # 16 بت / قناة RGB $ img = التصوير-> جديد (xsize => 200، ysize => 200، bits => 'double')؛ # "مزدوجة" نقطة عائمة # لكل قناة $ img-> img_set (xsize => 500، ysize => 500، # إعادة تعيين قنوات كائن الصورة => 4)؛ # مثال الحصول على معلومات حول طباعة كائن التصوير "معلومات الصورة: N"؛ طباعة "العرض:"، $ img-> getwidth ()، "n"؛ طباعة "الارتفاع:"، $ img-> getheight ()، "n"؛ طباعة "القنوات:"، $ img-> getchannels ()، "n"؛ طباعة "البتات / القناة:"، $ img-> بت ()، "ن"؛ طباعة "الظاهري:"، $ img-> الظاهري ()؟ "نعم": "لا"، "ن"؛ بلدي $ colorcount = $ img-> getcolorcount (maxcolors => 512)؛ طباعة "العدد الفعلي للألوان في الصورة:"؛ طباعة محددة ($ colorcount)؟ $ colorcount: "> 512"، "ن"؛ طباعة "النوع:"، $ img-> النوع ()، "N"؛ إذا ($ img-> type () eq "مباشرة") {print "قنوات قابلة للتعديل:"؛ طباعة الانضمام ""، الخريطة {($ img-> getmaskask () و 1colorcount؛ olors = $ img-> getcolors ()؛ طباعة "لوحة الحجم: $ countn"؛ بلدي $ mx = @ olors> 4؟ 4: 0 + @ الألوان؛ طباعة "أول دول $ MX: N"؛ ل (olors ) {my res = $ _-> rgba ()؛ طباعة "("، "، res )،") n "؛}} بلدي reags = $ img-> العلامات ()؛ إذا (@ تجميل) {print" العلامات: N "؛ for (@ ags) {print shift @ $ _،": ":"، انضم "، @ $ _،" n "؛}} {print" لا توجد علامات في الصور "؛} متطلبات: perl متطلبات: perl.


التصوير :: صور برامج ذات صلة