Noyzi!!a’s Blog

ตีตรา ด้วย Mathematica (การใส่รูปแสดงความเป็นเจ้าของ)

Posted in Mathematica by Noyzi!!a on the February 8th, 2007

พี่แมนจูขอช่วยมา ให้ใส่ตรา BRT ลงในรูปถ่ายของโครงการความหลากหลายทางชีวภาำพประเทศไทย

(สงสัยคงขี้เกลียดทำมือ คนแก่แล้วก็งี้แหละ)

ตั้ง Directory สำหรับทำงานของเราก่อนครับ ทีเก็บรูปเก็บไฟล์
SetDirectory["J:\\brt\\"]
เรียกใช้ Package Graphics
<< Graphics`
Import รูปที่จะใช้งานเข้ามา
im = Import["002.JPG"]
ban = Import["brt.PNG", "PNG"]
002.JPG

brt.png

รวมรูปเข้าด้วยกันซะ
a = Show[im, ImageSize -> 800]
b = Show[ban, ImageSize -> 100]
test = DisplayTogether[a, b]
test.png

Export รูปเอาไปใช้งาน
Export["test.png", test, "PNG"]

รีบทำยังไม่ค่อยดีเท่าไร ไว้จะเอาตัวที่ดีๆๆ มาอัพเดทให้ดู

พี่เดฟ แนะนำ imagemagick มา

มาลองใช้มันดูดีกว่า
composite -watermark 70% -gravity SouthEast brt.png 002.JPG test.png
แจ๋วแฮะ ทำลายน้ำ กำหนด ทิศได้ด้วย

จิ้มไปดูำภาพที่ทำจากimagemagick
test2.png

ต้องลองเล่น imagemagic หน่อยละ

2 Responses to 'ตีตรา ด้วย Mathematica (การใส่รูปแสดงความเป็นเจ้าของ)'

Subscribe to comments with RSS or TrackBack to 'ตีตรา ด้วย Mathematica (การใส่รูปแสดงความเป็นเจ้าของ)'.

  1. TuLL said,

    on February 8th, 2007 at 10:38 pm

    โอ้ ขอบใจ ไว้จะบอกให้นู๋เถิกทำเอง อิๆ พึ่งรู้ว่าทำด้วย Mathematica ก็ได้

  2. TuLL said,

    on February 12th, 2007 at 5:01 pm

    ถ้าจะเอารูป logo ที่เป็น transparent มาใส่ แล้ว Export เป็น JPEG ทีหลัง ทำไง …ลองแบบผิวเผินแล้ว logo มันทึบ!

Leave a Reply