LOGO Archives - KarnLab

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 20 – เคโระปี้

Admin — Mon, 01 Oct 2018 12:48:10 +0000

สวัสดีครับ วันนี้เราจะมาวาดรูปเคโระปี้ (Keroppi) ด้วยภาษาโลโก้กันครับ (เย้ๆๆ) โดยในตอนนี้เราจะดูแบบที่ต้องการวาดก่อน แล้วค่อยๆ วาดรูปไปพร้อมๆ กันครับ รูปนี้อาจจะยากสักหน่อย แต่ถ้าเราอดทนและพยายาม ก็ไม่มีอะไรยากเกินความสามารถของเราหรอกครับ >_<

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10

หลายตอนที่ผ่านมาเราวาดรูปทั่วไปกันมาเยอะแล้ว ตอนนี้ขอวาดตัวการ์ตูนตามใจผู้เขียนบ้างนะครับ

ข้างล่างนี้คือรูปต้นแบบที่เราต้องการวาดครับ (แต่จะวาดได้เหมือนแค่ไหนนั้น ต้องคอยติดตามครับ)

Keroppi

รูปภาพจาก – http://hellokitty.wikia.com/wiki/Keroppi

ก่อนอื่นเราจะเตรียมฟังก์ชันเพื่อให้เราวาดรูปได้ง่ายขึ้นกันก่อนครับ ได้แก่

ฟังก์ชัน setpencolor_default ใช้สำหรับเปลี่ยนสีปากการเป็นสีดำ
ฟังก์ชัน paint ใช้สำหรับระบายสี
ฟังก์ชัน comment ใช้สำหรับอธิบายการทำงานของโค้ด

TO comment :message
END

TO setpencolor_default
setpencolor “#424242
END

TO paint :color
pu rt 45 fd 5 pd
setpencolor :color fill
pu bk 5 lt 45 pd
setpencolor_default
END

เริ่มต้นด้วยกำหนดขนาดของปากกาและสีที่จะใช้ครับ

cs
setpensize 3
setpencolor_default

จากนั้นวาดส่วนหัวเคโระปี้และตา

comment “head_1
repeat 30 [ fd 1 rt 1 ]
repeat 30 [ fd 2 rt 1 ]

comment “eye_1
lt 90
repeat 360 [ fd 0.8 rt 1 ]
pu rt 90 fd 40 lt 90 pd
repeat 360 [ fd 0.4 rt 1 ]
paint “#424242
pu rt 90 bk 40 lt 90 pd
rt 90

LOGO EP20 – Keroppi 1

วาดตาและหัวส่วนที่เหลือ

comment “eye_2
pu
repeat 30 [ fd 3 rt 1 ]
repeat 30 [ fd 3 rt 1 ]
pd
rt 90
repeat 360 [ fd 0.8 rt 1 ]
pu rt 90 fd 40 lt 90 pd
repeat 360 [ fd 0.4 rt 1 ]
paint “#424242
pu rt 90 bk 40 lt 90 pd
lt 90

comment “head_2
repeat 30 [ fd 2 rt 1 ]
repeat 30 [ fd 1 rt 1 ]

repeat 30 [ fd 1 rt 1 ]
repeat 30 [ fd 2 rt 1 ]
repeat 30 [ fd 3 rt 1 ]

LOGO EP20 – Keroppi 2

จากนั้นเรามาวาดใบหน้าของเคโระปี้กันก่อนครับ

comment “face
pu rt 90 fd 20 pd
lt 45
fd 50 bk 50
rt 90
fd 50 bk 50
lt 45
pu bk 20 lt 90 pd

LOGO EP20 – Keroppi 3

วาดส่วนหัวที่เหลือ แล้วระบายสีครับ

comment “head_3
repeat 30 [ fd 3 rt 1 ]
repeat 30 [ fd 2 rt 1 ]
repeat 30 [ fd 1 rt 1 ]
paint “#CFD92B

LOGO EP20 – Keroppi 4

สุดท้าย อย่าลืมแก้มของเคโระปี้ครับ

comment “cheeks
pu rt 90 fd 20 lt 90 pd
repeat 360 [ fd 0.4 rt 1 ]
paint “#E24E5E
pu rt 90 fd 180 lt 90 pd
repeat 360 [ fd 0.4 rt 1 ]
paint “#E24E5E

LOGO EP20 – Keroppi 5

เสร็จแล้วครับ สำหรับรูปเคโระปี้ คิดว่าเหมือนรูปต้นฉบับไหมครับ?

Code ทั้งหมด สามารถเข้าไปดูได้ที่นี่ครับ https://github.com/doctorkarn/logo-lang/blob/master/EP20.txt

สามารถติดตาม “วาดรูปด้วยภาษาโลโก้” ตอนอื่นๆ ได้ที่นี่ครับ https://karnlab.com/tag/ภาษาโลโก้

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 20 – เคโระปี้ appeared first on KarnLab.

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 19 – คิตตี้

Admin — Mon, 01 Oct 2018 12:43:34 +0000

สวัสดีครับ วันนี้เราจะมาวาดรูปคิตตี้ (Kitty) ด้วยภาษาโลโก้กันครับ (เย้ๆๆ) โดยในตอนนี้เราจะดูแบบที่ต้องการวาดก่อน แล้วค่อยๆ วาดรูปไปพร้อมๆ กันครับ รูปนี้อาจจะยากสักหน่อย แต่ถ้าเราอดทนและพยายาม ก็ไม่มีอะไรยากเกินความสามารถของเราหรอกครับ >_<

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10

Hello Kitty

รูปภาพจาก – http://hellokitty.wikia.com/wiki/Hello_Kitty

ฟังก์ชัน setpencolor_default ใช้สำหรับเปลี่ยนสีปากการเป็นสีดำ
ฟังก์ชัน paint ใช้สำหรับระบายสี
ฟังก์ชัน comment ใช้สำหรับอธิบายการทำงานของโค้ด

TO comment :message
END

TO setpencolor_default
setpencolor “#424242
END

TO paint :color
pu rt 90 fd 5 pd
setpencolor :color fill
pu bk 5 lt 90 pd
setpencolor_default
END

เริ่มต้นด้วยกำหนดขนาดของปากกาและสีที่จะใช้ครับ

cs
setpensize 3
setpencolor_default

จากนั้นวาดส่วนหัวและหูแมวของน้องคิดตี้

comment “head_1
repeat 30 [ fd 1 rt 1 ]
repeat 15 [ fd 2 rt 1 ]
lt 45 fd 100 rt 135 fd 90
bk 90 lt 135 bk 100 rt 45
pu
repeat 15 [ fd 2 rt 1 ]
repeat 15 [ fd 3 rt 1 ]
pd
repeat 15 [ fd 3 rt 1 ]

LOGO EP19 – Kitty 1

ส่วนนี้ถ้าเราวาดด้วยมือ มันง่ายมากเลยครับ แต่พอมาเขียนเป็นโปรแกรมแล้ว มันไม่ง่ายเลย T^T

วาดส่วนหัวและหูแมวที่เหลือของน้องคิดตี้กันต่อครับ

comment “head_2
repeat 15 [ fd 3 rt 1 ]
lt 50 fd 100 rt 135 fd 90
bk 90 lt 135 bk 100 rt 50
pu fd 40 lt 70 pd
pu rt 70 bk 40 pd
pu
repeat 15 [ fd 3 rt 1 ]
repeat 15 [ fd 2 rt 1 ]
pd
repeat 15 [ fd 2 rt 1 ]
repeat 30 [ fd 1 rt 1 ]

LOGO EP19 – Kitty 2

แต่น้องคิดตี้มีโบว์สีแดงด้วยนี่หน่า!? งั้นเรามาเพิ่มโบว์ให้น้องคิดตี้กันครับ (เพิ่มฟังก์ชัน bow และแก้ไขโค้ดเมื่อกี้เล็กน้อย)

TO bow
rt 60 fd 75
rt 120 fd 75
rt 120 fd 150
lt 120 fd 75
lt 120 fd 75
lt 60
paint “#EC193A
rt 180 paint “#EC193A
pu rt 90 fd 40 pd paint “#EC193A
pu bk 40 lt 90 rt 180 pd
END

comment “head_2
repeat 15 [ fd 3 rt 1 ]
lt 50 fd 100 rt 135 fd 90
bk 90 lt 135 bk 100 rt 50
pu fd 40 lt 70 pd
bow
pu rt 70 bk 40 pd
pu
repeat 15 [ fd 3 rt 1 ]
repeat 15 [ fd 2 rt 1 ]
pd
repeat 15 [ fd 2 rt 1 ]
repeat 30 [ fd 1 rt 1 ]

LOGO EP19 – Kitty 3

วาดใบหน้าส่วนที่เหลือ

comment “head_3
repeat 30 [ fd 1 rt 1 ]
repeat 30 [ fd 2 rt 1 ]
repeat 30 [ fd 3 rt 1 ]
repeat 30 [ fd 3 rt 1 ]
repeat 30 [ fd 2 rt 1 ]
repeat 30 [ fd 1 rt 1 ]

LOGO EP19 – Kitty 4

เพิ่มหนวดแมวให้น้องคิตตี้

comment “whiskers_1
pu rt 90 fd 150 pd
pu fd 100 pd
fd 50 bk 50
lt 30 fd 50 bk 50
rt 60 fd 50 bk 50
lt 30
pu bk 100 pd
pu bk 150 lt 90 pd

comment “whiskers_2
pu rt 90 fd 20 pd
rt 180
fd 50 bk 50
lt 30 fd 50 bk 50
rt 60 fd 50 bk 50
lt 30
rt 180
pu bk 20 lt 90 pd

LOGO EP19 – Kitty 5

สุดท้ายวาดใบหน้าให้น้องคิตตี้ครับ

comment “face
pu rt 90 fd 125 pd
lt 90
repeat 360 [ fd 0.2 rt 1 ]
paint “#FFD601
pu fd 30 lt 90 fd 45 rt 90 pd
repeat 360 [ fd 0.2 rt 1 ]
paint “#424242
pu rt 90 fd 90 lt 90 pd
repeat 360 [ fd 0.2 rt 1 ]
paint “#424242

LOGO EP19 – Kitty 6

เสร็จแล้วครับ สำหรับรูปคิตตี้ คิดว่าเหมือนรูปต้นฉบับไหมครับ?

Code ทั้งหมด สามารถเข้าไปดูได้ที่นี่ครับ https://github.com/doctorkarn/logo-lang/blob/master/EP19.txt

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 19 – คิตตี้ appeared first on KarnLab.

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 18 – โดราเอมอน

Admin — Mon, 01 Oct 2018 12:38:03 +0000

สวัสดีครับ วันนี้เราจะมาวาดรูปโดราเอมอน (Doraemon) ด้วยภาษาโลโก้กันครับ (เย้ๆๆ) โดยในตอนนี้เราจะดูแบบที่ต้องการวาดก่อน แล้วค่อยๆ วาดรูปไปพร้อมๆ กันครับ รูปนี้อาจจะยากสักหน่อย แต่ถ้าเราอดทนและพยายาม ก็ไม่มีอะไรยากเกินความสามารถของเราหรอกครับ >_<

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10

Doraemon

รูปภาพจาก – http://doraemon.wikia.com

ฟังก์ชัน setpencolor_default ใช้สำหรับเปลี่ยนสีปากการเป็นสีดำ
ฟังก์ชัน paint ใช้สำหรับระบายสี
ฟังก์ชัน comment ใช้สำหรับอธิบายการทำงานของโค้ด

TO comment :message
END

TO setpencolor_default
setpencolor “#424242
END

TO paint :color
pu fd 15 pd
setpencolor :color fill
pu bk 15 pd
setpencolor_default
END

เริ่มต้นด้วยกำหนดขนาดของปากกาและสีที่จะใช้ครับ

cs
setpensize 3
setpencolor_default

จากนั้นวาดส่วนหัวโดราเอมอน

comment “head
arc 360 120
paint “#00A8D8
pu bk 20 pd
arc 360 100
paint “#FFFFFF

LOGO EP18 – Doraemon 1

วาดใบหน้าของโดราเอมอน

comment “face
pu fd 50 pd
arc 360 17
paint “#D20024
pu bk 15 pd
bk 50
rt 120 arc 120 60 lt 120
bk 60

LOGO EP18 – Doraemon 2

วาดหนวดของโดราเอมอน

comment “whiskers_1
pu fd 75 pd
rt 70 pu fd 30 pd fd 60
pu bk 90 pd
rt 20 pu fd 30 pd fd 60
pu bk 90 pd
rt 20 pu fd 30 pd fd 60
pu bk 90 pd

comment “whiskers_2
rt 140 pu fd 30 pd fd 60
pu bk 90 pd
rt 20 pu fd 30 pd fd 60
pu bk 90 pd
rt 20 pu fd 30 pd fd 60
pu bk 90 pd
rt 70

LOGO EP18 – Doraemon 3

ต่อไปเราจะวาดตาของโดราเอมอนครับ ซึ่งส่วนนี้วาดยากพอสมควร (แถมหาตำแหน่งวาดตายากด้วย) จึงต้องเขียนเป็นฟังก์ชันแยกมาต่างหาก

TO eye
lt 90
repeat 2 [
repeat 30 [ fd 0.25 rt 1 ]
repeat 30 [ fd 0.50 rt 1 ]
repeat 30 [ fd 0.75 rt 1 ]
repeat 30 [ fd 0.75 rt 1 ]
repeat 30 [ fd 0.50 rt 1 ]
repeat 30 [ fd 0.25 rt 1 ]
]
rt 90 pu fd 15 pd paint “#FFFFFF
pu lt 90 pd
repeat 2 [
repeat 30 [ fd 0.1 rt 1 ]
repeat 30 [ fd 0.2 rt 1 ]
repeat 30 [ fd 0.3 rt 1 ]
repeat 30 [ fd 0.3 rt 1 ]
repeat 30 [ fd 0.2 rt 1 ]
repeat 30 [ fd 0.1 rt 1 ]
]
rt 90 paint “#424242
pu bk 15 lt 90 pd
rt 90
END

comment “eyes
pu fd 70 lt 90 fd 30 rt 90 pd
eye
pu rt 90 fd 60 lt 90 pd
eye

LOGO EP18 – Doraemon 4

เสร็จแล้วครับ สำหรับรูปโดราเอมอน คิดว่าเหมือนรูปต้นฉบับไหมครับ?

Code ทั้งหมด สามารถเข้าไปดูได้ที่นี่ครับ https://github.com/doctorkarn/logo-lang/blob/master/EP18.txt

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 18 – โดราเอมอน appeared first on KarnLab.

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 17 – จักรยาน

Admin — Mon, 01 Oct 2018 12:03:33 +0000

สวัสดีครับ วันนี้เราจะมาวาดรูปจักรยาน ด้วยภาษาโลโก้กันครับ โดยในตอนนี้เราจะดูแบบที่ต้องการวาดก่อน แล้วค่อยๆ วาดรูปไปพร้อมๆ กันครับ โดยเราจะวาดรูปไปทีละองค์ประกอบ (component) จนสำเร็จเป็นรูปที่เราต้องการครับ

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10

เราจะมาดูรูปต้นแบบที่เราจะวาดกันก่อนครับ ซึ่งก็คือจักรยานสี่น้ำเงินยี่ห้อหนึ่ง จะสังเกตได้ว่าจักรยานมีรายละเอียดเยอะพอสมควร แต่เราจะวาดเฉพาะส่วนที่สำคัญ ที่เมื่อใครๆ มาเห็นรูปของเราก็ต้องดูออกว่าเป็นจักรยานครับ

Bicycle Prototype

รูปภาพจาก – https://www.mec.ca

เรามาเริ่มเขียนโปรแกรมกันเลยครับ โดยตั้งค่าขนาดปากกา และกำหนดสีที่จะใช้กันก่อน

TO comment :message
END

cs
setpensize 5
setpencolor “#303f9f

(ฟังก์ชัน comment ไม่ได้ใช้วาดรูปอะไร แต่เป็น dummy function เพื่อให้เราสามารถเพิ่มคำอธิบายเข้าไปในโค้ดได้ครับ)

วาดโครงจักรยาน (1)

comment “body_1
rt 30 fd 100
rt 60 fd 100
rt 120 fd 100
rt 60 fd 100

LOGO EP17 – Bicycle 1

วาดโครงจักรยาน (2)

comment “body_2
bk 100
rt 60 fd 125
lt 60 fd 25
rt 90 fd 15
rt 90 fd 50
rt 90 fd 15
rt 90 fd 25

LOGO EP17 – Bicycle 2

วาดโครงจักรยาน (3)

comment “body_3
rt 60 bk 125
pu lt 60 bk 100 pd
rt 60 fd 145
arc 360 10

LOGO EP17 – Bicycle 3

วาดล้อ (1)

comment “wheel_1
bk 145
setpencolor “#424242
arc 360 50

LOGO EP17 – Bicycle 4

วาดล้อ (2)

comment “wheel_2
pu lt 60 fd 200 pd
arc 360 50

LOGO EP17 – Bicycle 5

วาดเกียร์

comment “wheel_3
bk 100
arc 360 25

LOGO EP17 – Bicycle 6

เสร็จแล้วครับ รูปจักรยาน ถ้าเราลองลดความซับซ้อนของรูปภาพ แล้ววาดแค่ส่วนสำคัญของภาพ เราก็จะได้รูปภาพที่เราต้องการเร็วขึ้นครับ (render เร็วขึ้น)

Code ทั้งหมด สามารถเข้าไปดูได้ที่นี่ครับ https://github.com/doctorkarn/logo-lang/blob/master/EP17.txt

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 17 – จักรยาน appeared first on KarnLab.

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 16 – รถยนต์

Admin — Mon, 01 Oct 2018 11:56:46 +0000

สวัสดีครับ วันนี้เราจะมาวาดรูปรถยนต์ ด้วยภาษาโลโก้กันครับ โดยในตอนนี้เราจะดูแบบที่ต้องการวาดก่อน แล้วค่อยๆ วาดรูปไปพร้อมๆ กันครับ ระหว่างวาดรูปอาจจะมีข้อผิดพลาดบ้าง แต่เราจะแก้ไขข้อผิดพลาดนั้นได้อย่างไร มาติดตามกันดูได้เลยครับ

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10

เราจะมาดูรูปต้นแบบที่เราจะวาดกันก่อนครับ ซึ่งก็คือ Mini Cooper สีแดง เดี๋ยวเราจะมาลองวาดกันดูเลยครับ

Mini Cooper Red Car

รูปภาพจาก – https://bay2car.com/

ก่อนอื่นเราจะเตรียมฟังก์ชันที่จะทำให้เราวาดรูปได้ง่ายขึ้นกันก่อนครับ

ฟังก์ชัน setpencolor_default ใช้สำหรับเปลี่ยนสีปากการเป็นสีดำ
ฟังก์ชัน paint ใช้สำหรับระบายสี
ฟังก์ชัน comment ใช้สำหรับอธิบายการทำงานของโค้ด

ฟังก์ชัน comment นี้น่าสนใจครับ ต้องอธิบายก่อนว่า ภาษาเขียนโปรแกรมโดยทั่วไปจะมีไวยกรณ์ (syntax) comment เพื่ออธิบายการทำงานของโค้ดเป็นภาษามนุษย์ ทำให้เวลาเรากลับมาอ่านโค้ดในภายหลัง เราก็จะเข้าใจได้ง่ายขึ้นว่าโค้ดส่วนนี้ทำหน้าที่อะไร

แต่เนื่องจากภาษาโลโก้ไม่มี syntax comment ดังนั้น เราก็เลยสร้างฟังก์ชัน comment เพื่อใช้เขียนอธิบายโค้ดครับ โดยในฟังก์ชันนี้ไม่ต้องทำอะไรครับ (ถ้ายังไม่เข้าใจ เดี๋ยวจะเห็นประโยชน์ของฟังก์ชันนี้ในตัวอย่างถัดไปครับ)

TO setpencolor_default
setpencolor “#9E9E9E
END

TO paint :color
pu rt 45 fd 10 pd
setpencolor :color fill
pu bk 10 lt 45 pd
setpencolor_default
END

TO comment :message
END

โอเคครับ เราจะมาเริ่มวาดรถยนต์กันเลยครับ

cs
setpencolor_default
pu setxy -200 -100 pd

comment “body
fd 75
rt 30 fd 100
rt 60 fd 200
rt 60 fd 100
lt 60 fd 50
rt 90 fd 75
rt 90 fd 350
rt 90
paint “#d32f2f

LOGO EP16 – Car 1

* จะสังเกตว่า คำสั่ง comment “body ไม่ได้ทำหน้าที่วาดรูปอะไรเลยครับ แต่มันจะช่วยให้เข้าใจได้ง่ายขึ้นว่า โค้ดดังต่อไปนี้คือการวาดตัวรถยนต์ (body)

จากนั้นเราจะวาดล้อรถยนต์กันครับ

comment “wheel_1
pu rt 90 fd 120 rt 90 pd
repeat 360 [ fd 0.75 rt 1 ]
paint “#212121
rt 90 fd 15 lt 90
repeat 360 [ fd 0.5 rt 1 ]
paint “#9E9E9E
rt 90 bk 15 lt 90

LOGO EP16 – Car 2

comment “wheel_2
pu lt 90 fd 180 rt 90 pd
repeat 360 [ fd 0.75 rt 1 ]
paint “#212121
rt 90 fd 15 lt 90
repeat 360 [ fd 0.5 rt 1 ]
paint “#9E9E9E
rt 90 bk 15 lt 90

LOGO EP16 – Car 3

ต่อไปเราจะมาส่วนของหน้าต่างกันครับ

comment “window_1
pu lt 90 bk 300 lt 90 pd
pu fd 20 rt 90 fd 20 lt 90 pd
pu fd 55 pd
rt 30 fd 80
rt 60 fd 100
rt 90 fd 60
rt 90 fd 120
rt 120
paint “#00bcd4

LOGO EP16 – Car 4

เอ๊ะ! เหมือนว่ารูปภาพที่ได้จะมีปัญหา เนื่องจากสัดส่วนของหน้าต่างไม่พอดี ลองแก้ไขโค้ดส่วนของหน้าต่างกันใหม่ครับ

comment “window_1
pu lt 90 bk 300 lt 90 pd
pu fd 20 rt 90 fd 20 lt 90 pd
pu fd 55 pd
rt 30 fd 80
rt 60 fd 80
rt 90 fd 65
rt 90 fd 120
rt 120
paint “#00bcd4

LOGO EP16 – Car 5

เนื่องจากเราค่อยๆ เขียนโค้ด และทยอย run เพื่อดูรูปภาพไปทีและส่วน ดังนั้น เมื่อเกิดปัญหา เราจึงทราบว่าปัญหาเกิดจากจุดไหน และสามารถแก้ไขได้อย่างรวดเร็วครับ (ฝากถึงน้องๆ เช่นกันว่าเวลาเขียนโปรแกรมใหญ่ๆ ค่อยๆ code ค่อยๆ run นะครับ จะได้หา bug ได้ง่าย อย่าเขียน code ยาวๆ แล้ว run ทีเดียว มันจะหา bug ยาก)

ต่อไปเราจะวาดหน้าต่างที่เหลืออีกหนึ่งบานครับ

comment “window_2
pu rt 60 fd 140 lt 90 pd
fd 65
rt 90 fd 80
rt 60 fd 80
rt 120 fd 120
rt 90
paint “#00bcd4

LOGO EP16 – Car 6

เอ๊ะ! รูปภาพที่ได้มีปัญหาอีกแล้ว แม้ดูเหมือนว่ารูปของเราไม่น่าจะมีอะไรผิดพลาด ถ้าเราสังเกตดีๆ จะพบว่าหน้าต่างที่เพิ่งเพิ่มเข้าไป สี่เหลี่ยมยังปิดไม่สนิท ดังนั้น ถ้าเราแก้ไขตัวเลขอีกนิดก็น่าจะพอดีแล้ว

comment “window_2
pu rt 60 fd 140 lt 90 pd
fd 65
rt 90 fd 80
rt 60 fd 75
rt 120 fd 120
rt 90
paint “#00bcd4

LOGO EP16 – Car 7

เสร็จแล้วครับ สำหรับรูปรถยนต์ที่เราต้องการ Code ทั้งหมด สามารถเข้าไปดูได้ที่นี่ครับ https://github.com/doctorkarn/logo-lang/blob/master/EP16.txt

เป็นอย่างไรกันบ้างครับสำหรับการวาดรูปรถยนต์ จะสังเกตได้ว่าถ้าเราวาดรูปโดยค่อยๆ วาด ค่อยๆ รัน เวลาเกิดปัญหา จะทำให้เราสามารถพบจุดที่มีปัญหา และแก้ไขได้อย่างรวดเร็วครับ

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 16 – รถยนต์ appeared first on KarnLab.

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 15 – รถไฟ

Admin — Mon, 01 Oct 2018 11:46:42 +0000

สวัสดีครับ วันนี้เราจะมาวาดรูปรถไฟ ด้วยภาษาโลโก้กันครับ โดยในตอนนี้ก่อนที่จะวาดรูป เราจะวางแผนก่อนว่ารูปของเรามีองค์ประกอบ (component) อะไรบ้าง จากนั้นก็วาดแต่ละ component ให้เสร็จ แล้วนำทั้งหมดมาประกอบเป็นรูปภาพที่ต้องการครับ

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10

เราจะมาดูแบบที่เราจะวาดกันก่อนครับ เราจะเห็นได้ว่ารถไฟจะมีส่วนประกอบหลัก 2 ส่วน คือ หัวรถไฟ และ ตู้รถไฟ ในที่นี้ขอเรียกง่ายๆ ว่า Head และ Body นะครับ

Train with Cargo

รูปภาพจาก – https://standardmedia.co.ke/

โดยรถไฟที่เราจะวาดกันจะมีองค์ประกอบ (component) คือ หัวรถไฟ อยู่ทางขวามือ และ ตู้รถไฟ อีก 3 ตู้ ดังรูปด้านล่างครับ

LOGO EP15 – Train 1

แนวทางในการวาดรถไฟของเราคือ

เตรียมฟังก์ชันที่จำเป็นก่อน
สร้างฟังก์ชัน Body สำหรับวาด ตู้รถไฟ
สร้างฟังก์ชัน Head สำหรับวาด หัวรถไฟ
นำฟังก์ชัน Head และ Body มาประกอบกันเป็นขบวนรถไฟ

เริ่มต้นเราจะเตรียมฟังก์ชันที่จำเป็นก่อน

เราจะเตรียมฟังก์ชันวาดรูปร่างพื้นฐานกันก่อน ได้แก่ สี่เหลี่ยมผืนผ้า (rectangle) สี่เหลี่ยมจัตุรัส (square) วงกลม (circle)

TO rectangle :y
fd rt 90
fd :y rt 90
fd rt 90
fd :y rt 90
ENDTO square
repeat 4 [ fd rt 90 ]
ENDTO circle
repeat 360 [ fd rt 1 ]
END

นอกจากนี้ เราจะเตรียมฟังก์ชันสำหรับลงสี โดยฟังก์ชัน setpencolor_default ไว้สำหรับเปลี่ยนสีปากกาเป็นสีดำ และ ฟังก์ชัน paint ไว้สำหรับลงสีที่ต้องการครับ

TO setpencolor_default
setpencolor “#9E9E9E
END

TO paint :color
pu rt 45 fd 10 pd
setpencolor :color fill
pu bk 10 lt 45 pd
setpencolor_default
END

สร้างฟังก์ชัน Body สำหรับวาดตู้รถไฟ

เริ่มต้นการสร้างฟังก์ชัน Body ด้วยการวาดรูปสี่เหลี่ยมผืนผ้าก่อนเลย

TO body
rt 90
rectangle 200 100
END

cs body

LOGO EP15 – Train 2

ใส่รายละเอียดตู้สินค้าเข้าไปเล็กน้อย

TO body
rt 90
rectangle 200 100
repeat 9 [ fd 20 rt 90 fd 75 bk 75 lt 90 ]
pu bk 180 pd
END

cs body

LOGO EP15 – Train 3

เพิ่มล้อเข้าไปให้กับตู้บรรทุกสินค้า

TO body
rt 90
rectangle 200 100
repeat 9 [ fd 20 rt 90 fd 75 bk 75 lt 90 ]
pu bk 180 pd
rt 90
pu fd 100 lt 90 fd 50 pd
circle 0.1
pu fd 100 pd
circle 0.1
lt 90
END

LOGO EP15 – Train 4

เพื่อความสวยงาม เราจะระบายสีให้กับตู้สินค้ากันหน่อยครับ

TO body
rt 90
rectangle 200 100
paint “#388e3c
repeat 9 [ fd 20 rt 90 fd 75 bk 75 lt 90 ]
pu bk 180 pd
rt 90
pu fd 100 lt 90 fd 50 pd
circle 0.1
pu fd 100 pd
circle 0.1
lt 90
END

LOGO EP15 – Train 5

เสร็จแล้วครับ สำหรับฟังก์ชัน Body ต่อไปเราจะ…

สร้างฟังก์ชัน Head สำหรับวาดหัวรถไฟ

เริ่มต้นการสร้างฟังก์ชัน Head ด้วยการวาดรูปสี่เหลี่ยมผืนผ้าก่อนเลย แต่ที่มุมขวาบนจะมีส่วนโค้งนิดหน่อยครับ

TO head
rt 90
fd 150
repeat 90 [ fd 0.9 rt 1 ]
fd 50 rt 90
fd 200 rt 90
fd 100 rt 90
END

cs head

LOGO EP15 – Train 6

เพิ่มหน้าต่างให้กับหัวรถไฟกันหน่อย

TO head
rt 90
fd 150
repeat 90 [ fd 0.9 rt 1 ]
fd 50 rt 90
fd 200 rt 90
fd 100 rt 90

pu fd 20 rt 90 fd 20 lt 90 pd
square 30
pu fd 60 pd
square 30
pu fd 60 pd
square 30
END

cs head

LOGO EP15 – Train 7

เพิ่มล้อให้กับหัวรถไฟครับ

TO head
rt 90
fd 150
repeat 90 [ fd 0.9 rt 1 ]
fd 50 rt 90
fd 200 rt 90
fd 100 rt 90

pu fd 20 rt 90 fd 20 lt 90 pd
square 30
pu fd 60 pd
square 30
pu fd 60 pd
square 30

pu bk 150 lt 90 fd 20 pd
rt 180
pu fd 100 lt 90 fd 50 pd
circle 0.1
pu fd 100 pd
circle 0.1
lt 90
END

cs head

LOGO EP15 – Train 8

เพิ่มสีสันเพื่อความสวยงามครับ

TO head
rt 90
fd 150
repeat 90 [ fd 0.9 rt 1 ]
fd 50 rt 90
fd 200 rt 90
fd 100 rt 90
paint “#ffa000

pu fd 20 rt 90 fd 20 lt 90 pd
square 30
paint “#00bcd4
pu fd 60 pd
square 30
paint “#00bcd4
pu fd 60 pd
square 30
paint “#00bcd4

pu bk 150 lt 90 fd 20 pd
rt 180
pu fd 100 lt 90 fd 50 pd
circle 0.1
pu fd 100 pd
circle 0.1
lt 90
END

cs head

LOGO EP15 – Train 9

เสร็จแล้วครับ สำหรับฟังก์ชัน Head เมื่อเราได้องค์ประกอบทั้งตู้รถไฟและหัวรถไฟแล้ว เราก็จะนำมา…

ประกอบกันเป็นขบวนรถไฟ

TO train
setpencolor_default
pu setxy -440 0 pd
body
pu setxy -220 0 pd
body
pu setxy 0 0 pd
body
pu setxy 220 0 pd
head
END

cs train

LOGO EP15 – Train

สำหรับ Code ทั้งหมด สามารถเข้าไปดูได้ที่นี่ครับ https://github.com/doctorkarn/logo-lang/blob/master/EP15.txt

เป็นอย่างไรกันบ้างครับสำหรับการวาดรูปรถไฟ จะสังเกตได้ว่าถ้าเราวาดรูปโดยเริ่มจากองค์ประกอบเล็กๆ ก่อน แล้วค่อยนำมารวมกัน เพื่อให้กลายเป็นภาพที่ซับซ้อน ก็จะทำให้เราสามารถวาดรูปยากๆ ได้ง่ายขึ้นครับ

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 15 – รถไฟ appeared first on KarnLab.

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 14 – ลายผ้า

Admin — Sat, 11 Aug 2018 10:02:02 +0000

ในตอนนี้เราจะมาวาดลายผ้าด้วยภาษาโลโก้กันครับ โดยเราแค่วาดเส้นธรรมดาๆ แล้วคะเนระยะห่างให้พอดีกับหน้าจอ เราก็จะได้ลายผ้าสวยๆ ครับ

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10

*** การวาดรูปลายผ้า ขนาดหน้าจอ (Resolution) ของคอมพิวเตอร์ที่น้องๆ ใช้ มีความสำคัญมากนะครับ โดยโปรแกรมในบทนี้ทดสอบกับหน้าจอขนาด 1366 x 768 นะครับ หากน้องๆ ต้องการวาดลวดลายผ้าให้เต็มจอ ต้องปรับขนาดให้เหมาะกับหน้าจอคอมพิวเตอร์ที่ต้องๆ ใช้นะครับ

โปรแกรมที่ 14-1

LOGO EP14 – Textile 1

TO setup
cs ht
setscreencolor “#795548
setpencolor “#FFEB3B
setpensize 3
END

setup
pu setxy -470 -220 pd
repeat 28 [
rt 30 fd 510
pu bk 510
rt 60 fd 34
lt 90 pd
]
pu setxy -470 220 pd
repeat 28 [
rt 150 fd 510
pu bk 510
lt 60 fd 34
lt 90 pd
]

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
คำสั่ง pu setxy -470 -220 pd คือ การย้ายตำแหน่งเต่าโลโก้ ไปที่มุมซ้ายล่างของหน้าจอ
repeat 28 คือ การทำซ้ำ 28 ครั้ง
rt 30 fd 510 คือ การวาดเส้นตรง (เอียงและยาว)
pu bk 510 คือ การยกปากกากลับมาที่เดิม
rt 60 fd 34 lt 90 pd คือ การยกปากกาไปที่ตำแหน่งถัดไป
…..

โปรแกรมที่ 14-2A

LOGO EP14 – Textile 2A

TO setup
cs ht
setscreencolor “#FFF9C4
setpencolor “#4FC3F7
setpensize 3
END

TO h_line
repeat 19 [
fd 1000
pu rt 90 fd 50 lt 90 pd
]
END

TO v_line
repeat 9 [
fd 1200
pu rt 90 fd 50 lt 90 pd
]
END

setup
pu setxy -450 0 pd
h_line
rt 90
pu setxy -450 200 pd
v_line

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
คำสั่ง pu setxy -450 0 pd คือ การย้ายตำแหน่งเต่าโลโก้ไปที่มุมซ้าย
ฟังก์ชัน h_line มีหน้าที่วาดเส้นยาวแนวตั้ง (19 ครั้ง)
- แต่ละครั้งจะวาดเส้นตรง และย้ายเต่าโลโก้ไปที่ตำแหน่งถัดไป
ฟังก์ชัน v_line มีหน้าที่วาดเส้นยาวแนวนอน (9 ครั้ง)
- แต่ละครั้งจะวาดเส้นตรง และย้ายเต่าโลโก้ไปที่ตำแหน่งถัดไป

โปรแกรมที่ 14-2B

LOGO EP14 – Textile 2B

TO setup
cs ht
setscreencolor “#FFF9C4
setpensize 3
END

TO h_line :s
if ( :s < 1 ) [ stop ]
if ( :s % 2 = 0 ) [ setpencolor “#F06292 ]
if ( :s % 2 = 1 ) [ setpencolor “#4FC3F7 ]
fd 1000
pu rt 90 fd 50 lt 90 pd
h_line :s-1
END

TO v_line :s
if ( :s < 1 ) [ stop ]
if ( :s % 2 = 0 ) [ setpencolor “#F06292 ]
if ( :s % 2 = 1 ) [ setpencolor “#4FC3F7 ]
fd 1200
pu rt 90 fd 50 lt 90 pd
v_line :s-1
END

setup
pu setxy -450 0 pd
h_line 19
rt 90
pu setxy -450 200 pd
v_line 9

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
คำสั่ง pu setxy -450 0 pd คือ การย้ายตำแหน่งเต่าโลโก้ไปที่มุมซ้าย
ฟังก์ชัน h_line มีหน้าที่วาดเส้นยาวแนวตั้ง (19 ครั้ง)
- แต่ละครั้งจะวาดเส้นตรง และย้ายเต่าโลโก้ไปที่ตำแหน่งถัดไป
- เพิ่มเติม คือ เราจะวาดเส้นด้วยสีฟ้าและสีชมพูสลับกัน ดังนั้น เราจึงประยุกต์ใช้ Recursive Function มาใช้งานครับ
- โดยตัวแปร :s ทำหน้าที่เป็นตัวนับ
  - ถ้า :s เป็นเลขคู่ ( :s หาร 2 เหลือเศษ 0 ) ตั้งค่าสีชมพู
  - ถ้า :s เป็นเลขคี่ ( :s หาร 2 เหลือเศษ 1 ) ตั้งค่าสีฟ้า
- และถ้าตัวแปร :s มีค่าเป็น 0 (น้อยกว่า 1) หยุดการทำงาน
ฟังก์ชัน v_line มีหน้าที่วาดเส้นยาวแนวนอน (9 ครั้ง)
- แต่ละครั้งจะวาดเส้นตรง โดยใช้สีฟ้าและสีชมพูสลับกัน และย้ายเต่าโลโก้ไปที่ตำแหน่งถัดไป

โปรแกรมที่ 14-3

LOGO EP14 – Textile 3

TO setup
cs ht
setscreencolor “#FFF9C4
setpencolor “#8D6E63
setpensize 3
END

setup
pu setxy -460 0 pd
repeat 10 [
fd 1000
pu rt 90 fd 20 lt 90 pd
fd 1000
pu rt 90 fd 80 lt 90 pd
]

rt 90
pu setxy -450 210 pd
repeat 5 [
fd 1200
pu rt 90 fd 20 lt 90 pd
fd 1200
pu rt 90 fd 80 lt 90 pd
]

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
คำสั่ง pu setxy -460 0 pd คือ การย้ายตำแหน่งเต่าโลโก้ไปที่มุมซ้าย
repeat 10 คือ การทำซ้ำ 10 ครั้ง
fd 1000 pu rt 90 fd 20 lt 90 pd
fd 1000 pu rt 90 fd 80 lt 90 pd
คือ การวาดเส้นตรง 2 เส้น (ที่อยู่ใกล้กัน) จากนั้นย้ายตำแหน่งเต่าโลโก้

…..

และนี่คือเรื่องราวของเทคนิคการวาดรูปจากหมุนที่นำมาฝากกันในวันนี้ครับ สามารถติดตามตอนต่อไปได้ที่นี่ครับ https://karnlab.com/tag/ภาษาโลโก้

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 14 – ลายผ้า appeared first on KarnLab.

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 13 – หมุนหมุน

Admin — Fri, 10 Aug 2018 16:06:21 +0000

ในตอนนี้เราจะมาเรียนรู้เทคนิคการวาดรูปแบบหนึ่ง นั่นคือ การหมุน โดยเราจะวาดรูปเรขาคณิตพื้นฐาน จากนั้นหมุนเต่าโลโก้ แล้ววาดรูปนั้นอีกครั้ง ทำเช่นนี้ไปเรื่อยๆ เราจะได้รูปภาพใหม่ที่น่าสนใจครับ

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10

เริ่มต้นด้วยการหมุนเส้นตรงรูปแบบต่างๆ เราจะได้รูปดอกไม้ไฟที่น่าสนใจครับ

โปรแกรมที่ 13-1

LOGO EP13 – Spinning Line 1

TO setup
cs ht
setscreencolor “#212121
setpencolor “#EF9A9A
setpensize 5
END

TO line_1
fd 200 bk 200
END

setup
repeat 18 [ line_1 rt 20 ]

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
ฟังก์ชัน line_1 ใช้สำหรับวาดเส้นตรง
repeat 18 [ line_1 rt 20 ] คือ การวาดเส้น แล้วหมุนขวา 20 องศา ทำแบบนี้ทั้งหมด 18 ครั้ง

โปรแกรมที่ 13-2

LOGO EP13 – Spinning Line 2

TO setup
cs ht
setscreencolor “#212121
setpencolor “#CE93D8
setpensize 5
END

TO line_2
pu fd 100 pd fd 100
pu bk 200 pd
END

setup
repeat 36 [ line_2 rt 10 ]

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
ฟังก์ชัน line_2 ใช้สำหรับวาดเส้นตรง
repeat 36 [ line_2 rt 10 ] คือ การวาดเส้น แล้วหมุนขวา 10 องศา ทำแบบนี้ทั้งหมด 36 ครั้ง

โปรแกรมที่ 13-3

LOGO EP13 – Spinning Line 3

TO setup
cs ht
setscreencolor “#212121
setpencolor “#9FA8DA
setpensize 5
END

TO line_3
pu fd 50 pd fd 50
pu fd 50 pd fd 50
pu bk 200 pd
END

setup
repeat 72 [ line_3 rt 5 ]

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
ฟังก์ชัน line_3 ใช้สำหรับวาดเส้นตรง
repeat 72 [ line_3 rt 5 ] คือ การวาดเส้น แล้วหมุนขวา 5 องศา ทำแบบนี้ทั้งหมด 72 ครั้ง

ถ้าเราสังเกตคำสั่งดังต่อไปนี้ให้ดี

repeat 18 [ line_1 rt 20 ]
repeat 36 [ line_2 rt 10 ]
repeat 72 [ line_3 rt 5 ]

เราจะพบว่าการหมุนให้ครบ 1 รอบ มีหลักการง่ายๆ คือ จำนวนครั้ง x องศาที่หมุน = 360 องศา

18 x 20 = 360
36 x 10 = 360
72 x 5 = 360

จากนั้นเรามาลองหมุนภาพเรขาคณิต เราจะได้รูปทรงที่น่าสนใจครับ

โปรแกรมที่ 13-5

LOGO EP13 – Spinning Square

TO setup
cs ht
setscreencolor “#F5F5F5
setpencolor “#009688
setpensize 5
END

TO square
repeat 4 [ fd 150 rt 90 ]
END

setup
repeat 18 [ square rt 20 ]

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
ฟังก์ชัน square ใช้สำหรับวาดสี่เหลี่ยมจัตุรัส
repeat 18 [ square rt 20 ] คือ วาดสี่เหลี่ยมจัตุรัส แล้วหมุนขวา 20 องศา ทำแบบนี้ทั้งหมด 18 ครั้ง

โปรแกรมที่ 13-6

LOGO EP13 – Spinning Hexagon

TO setup
cs ht
setscreencolor “#F5F5F5
setpencolor “#8BC34A
setpensize 5
END

TO hexagon
repeat 6 [ fd 100 rt 60 ]
END

setup
repeat 18 [ hexagon rt 20 ]

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
ฟังก์ชัน hexagon ใช้สำหรับวาดหกเหลี่ยม
repeat 18 [ hexagon rt 20 ] คือ วาดหกเหลี่ยม แล้วหมุนขวา 20 องศา ทำแบบนี้ทั้งหมด 18 ครั้ง

โปรแกรมที่ 13-7

LOGO EP13 – Spinning Octagon

TO setup
cs ht
setscreencolor “#F5F5F5
setpencolor “#FFEB3B
setpensize 5
END

TO octagon
repeat 8 [ fd 75 rt 45 ]
END

setup
repeat 18 [ octagon rt 20 ]

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
ฟังก์ชัน octagon ใช้สำหรับวาดแปดเหลี่ยม
repeat 18 [ octagon rt 20 ] คือ วาดแปดเหลี่ยม แล้วหมุนขวา 20 องศา ทำแบบนี้ทั้งหมด 18 ครั้ง

โปรแกรมที่ 13-8

LOGO EP13 – Spinning Polygon

TO setup
cs ht
setscreencolor “#F5F5F5
setpencolor “#FF9800
setpensize 5
END

TO polygon
repeat 12 [ fd 50 rt 30 ]
END

setup
repeat 18 [ polygon rt 20 ]

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
ฟังก์ชัน polygon ใช้สำหรับวาดสิบสองเหลี่ยม
repeat 18 [ polygon rt 20 ] คือ วาดสิบสองเหลี่ยม แล้วหมุนขวา 20 องศา ทำแบบนี้ทั้งหมด 18 ครั้ง

โปรแกรมที่ 13-9

LOGO EP13 – Spinning Circle

TO setup
cs ht
setscreencolor “#F5F5F5
setpencolor “#795548
setpensize 5
END

TO circle
repeat 360 [ fd 1.5 rt 1 ]
END

setup
repeat 18 [ circle rt 20 ]

อธิบายการทำงานของโปรแกรม

ฟังก์ชัน setup ใช้สำหรับกำหนดสีของพื้นหลัง สีของปากกา และขนาดของปากกา
ฟังก์ชัน circle ใช้สำหรับวาดวงกลม
repeat 18 [ circle rt 20 ] คือ วาดวงกลม แล้วหมุนขวา 20 องศา ทำแบบนี้ทั้งหมด 18 ครั้ง

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 13 – หมุนหมุน appeared first on KarnLab.

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 12 – เคลื่อนไหว

Admin — Sat, 21 Jul 2018 08:40:37 +0000

จากตอนที่แล้ว เราวาดรูปกันมาเยอะมาก และแน่นอนว่า เราก็ต้องลบรูปภาพที่เราวาดด้วยคำสั่ง CS หรือ Clean เยอะมาก ถ้าเราวาดรูปแล้วลบ วาดรูปแล้วลบ วาดรูปแล้วลบ ….. จะเกิดอะไรขึ้น?

(เนื้อหาตอนนี้ค่อนข้างยาก ถ้าน้องๆ อ่านแล้วยังไม่เข้าใจ สามารถข้ามไปได้โดยไม่ต้องกังวลครับ เพราะเรื่องนี้ไม่มีผลกับเรื่องอื่นๆ แต่ถ้าน้องๆ อยากทำความเข้าใจ ลองเขียนทบทวนทำความเข้าใจเองก่อน แล้วค่อยกลับมาอ่านใหม่นะครับ)

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10
wait หน่วยเวลา	wait = หยุดการทำงาน	wait 5

ถ้าเราวาดรูปแล้วลบอย่างรวดเร็ว เราจะเห็นเป็นภาพเคลื่อนไหว การสร้างภาพเคลื่อนไหวไม่ใช่ความสามารถโดยตรงของภาษาโลโก้ แต่เราประยุกต์ใช้การวาดรูปและลบรูป เพื่อให้เกิดเป็นภาพแบบใหม่ๆ ขึ้นมา ต่อไปเราจะมาลองสร้างภาพเคลื่อนไหวแบบง่ายๆ กันครับ

โปรแกรมที่ 12-1 วงกลมเคลื่อนที่

LOGO EP12 – Animation 1

TO filled_circle
repeat 360 [ fd 1 rt 1 ]
rt 90 pu fd 10 pd fill
pu bk 10 pd lt 90
END

TO animate_circle
repeat 40 [
pu fd 10 pd
filled_circle
wait 5
clean
]
END

setpencolor “#F0A2AF
rt 90
pu bk 200 pd
animate_circle

อธิบายการทำงานของโปรแกรม

เมื่อโปรแกรมเรียกใช้คำสั่ง animate_circle
- เคลื่อนที่เต่าโลโก้ไปข้างหน้า 10 pixel
- วาดรูปวงกลม (พร้อมระบายสี)
- หยุดรอ 5 หน่วยเวลา
- ลบรูปภาพ
- (ทำซ้ำแบบนี้ 40 ครั้ง)

น้องๆ จะสังเกตได้ว่า คำสั่ง หยุดเวลา และ ลบรูปภาพเดิม (เพื่อวาดรูปใหม่) มีส่วนสำคัญในการวาดภาพเคลื่อนไหวครับ หากเราหยุดเวลามากเกินไป ภาพที่ได้จะกระตุก แต่ถ้าเราหยุดเวลาน้อยเกินไป ภาพจะเคลื่อนที่เร็วมาก (หรือ CPU/GPU จะประมวลผลไม่ทัน)

ต่อไปจะมาวาดรูปดาวที่เคลื่อนที่ด้วยความเร็วไม่คงที่กันครับ (คำสั่งนี้มีการประยุกต์ใช้ Recursive Function จากตอนที่ 11)

โปรแกรมที่ 12-2 ดาวเคลื่อนที่

LOGO EP12 – Animation 2

TO filled_star
repeat 5 [ fd 75 rt 144 fd 75 lt 72 ]
rt 45 pu fd 10 pd fill pu bk 10 pd lt 45
END

TO animate_star :s
if (0.2*:s*:s) > 150 [ stop ]
pu fd 50 – 0.2*:s*:s pd
filled_star
wait 5
clean
animate_star :s+1
END

setpencolor “yellow
rt 90
pu bk 200 pd
animate_star 1

อธิบายการทำงานของโปรแกรม

เมื่อโปรแกรมเรียกใช้คำสั่ง animate_star 1
- ความเร็ว = 2 x 1 x 1 = 0.2 ซึ่งน้อยกว่า 150
- เคลื่อนที่เต่าโลโก้ไปข้างหน้า 50 – 0.2 = 49.8 pixel
- วาดรูปดาว 5 แฉก (พร้อมระบายสี)
- หยุดรอ 5 หน่วยเวลา
- ลบรูปภาพ
- เรียกใช้คำสั่ง animate_star 2
เมื่อโปรแกรมเรียกใช้คำสั่ง animate_star 2
- ความเร็ว = 2 x 2 x 2 = 0.8 ซึ่งน้อยกว่า 150
- เคลื่อนที่เต่าโลโก้ไปข้างหน้า 50 – 0.8 = 49.2 pixel
- วาดรูปดาว 5 แฉก (พร้อมระบายสี)
- หยุดรอ 5 หน่วยเวลา
- ลบรูปภาพ
- เรียกใช้คำสั่ง animate_star 3
เมื่อโปรแกรมเรียกใช้คำสั่ง animate_star 3
- ความเร็ว = 2 x 3 x 3 = 1.8 ซึ่งน้อยกว่า 150
- เคลื่อนที่เต่าโลโก้ไปข้างหน้า 50 – 1.8 = 42 pixel
- วาดรูปดาว 5 แฉก (พร้อมระบายสี)
- หยุดรอ 5 หน่วยเวลา
- ลบรูปภาพ
- เรียกใช้คำสั่ง animate_star 4
( ทำเช่นนี้ไปเรื่อยๆ )
เมื่อโปรแกรมเรียกใช้คำสั่ง animate_star 20
- ความเร็ว = 2 x 20 x 20 = 80 ซึ่งน้อยกว่า 150
- เคลื่อนที่เต่าโลโก้ไปข้างหน้า 50 – 80 = -30 pixel (= ถอยหลัง 30 pixel)
- วาดรูปดาว 5 แฉก (พร้อมระบายสี)
- หยุดรอ 5 หน่วยเวลา
- ลบรูปภาพ
- เรียกใช้คำสั่ง animate_star 21
( ทำเช่นนี้ไปเรื่อยๆ จนกระทั่ง )
เมื่อโปรแกรมเรียกใช้คำสั่ง animate_star 28
- ความเร็ว = 2 x 28 x 28 = 156.8 ซึ่งมากกว่า 150
- จบการทำงาน

สำหรับรูปสุดท้ายที่เราจะวาดกัน ได้แรงบันดาลใจมาจากอนิเมะครับ

โปรแกรมที่ 12-3 เมื่อยามซากุระร่วงโรย

LOGO EP12 – Animation 3

TO leaf
repeat 90 [ fd 1 rt 1 ]
rt 90
repeat 90 [ fd 1 rt 1 ]
rt 90
END

TO flower
repeat 5 [
leaf
rt 45 pu fd 10 pd fill bk 10 lt 45
rt 72
]
END

TO animate_flower :s
if :s < -10 [ stop ]
pu setxy 0 (:s * 10) rt (:s * 10) pd
lt 45 flower rt 45
wait 5
cs
animate_flower :s-1
END

setpencolor “#F9BC9D
animate_flower 20

อธิบายการทำงานของโปรแกรม

เมื่อโปรแกรมเรียกใช้คำสั่ง animate_flower 20
- เคลื่อนย้ายตำแหน่งเต่าโลโก้ไปที่ (0, 200) และหมุนขวา 200 องศา
- วาดรูปดอกไม้ (พร้อมระบายสี)
- หยุดรอ 5 หน่วยเวลา
- ลบรูปภาพ
- เรียกใช้คำสั่ง animate_flower 19
( เป็นเช่นนี้ไปเรื่อยๆ จนกระทั่ง animate_flower -10 จึงจบการทำงาน )

และนี่คือเรื่องราวของ Animation ทั้งหมดที่นำมาฝากกันในวันนี้ครับ สามารถติดตามตอนต่อไปได้ที่นี่ครับ https://karnlab.com/tag/ภาษาโลโก้

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 12 – เคลื่อนไหว appeared first on KarnLab.

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 11 – เริ่มใหม่อีกครั้ง

Admin — Sat, 21 Jul 2018 07:41:00 +0000

จากตอนที่แล้ว เราใช้ฟังก์ชันกันมาก็หลายครั้ง ถ้าเราเรียกใช้ฟังก์ชัน แล้วฟังก์ชันนั้นเรียกใช้งานฟังก์ชันอื่น ก็ถือเป็นเรื่องปกติ แต่น้องๆ เคยคิดไหมครับว่า ถ้าเราเรียกใช้ฟังก์ชัน แล้วฟังก์ชันนั้นเรียกใช้งานฟังก์ชันตัวเอง จะเกิดอะไรขึ้น?

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10

น้องๆ น่าจะเคยเห็น รูปถ่ายที่มีคนถ่ายรูปกับรูปถ่ายของตัวเอง ซึ่งในนั้นก็จะมี รูปถ่ายที่มีคนถ่ายรูปกับรูปถ่ายของตัวเอง ซึ่งในนั้นก็จะมี รูปถ่ายที่มีคนถ่ายรูปกับรูปถ่ายของตัวเอง ….. โอ๊ย! พูดง่ายๆ คือ รูปแบบด้านล่างนี้ละครับ

Recursive Picture

ซึ่งเราสามารถเทียบเหตุการณ์นี้กับโปรแกรมวาดรูปดังต่อไปนี้ครับ

LOGO EP11 – Recursive 1

TO square_r :s
repeat 4 [ fd :s rt 90 ]
square_r :s/2
END
square_r 200

โปรแกรมที่ 11-1

การทำงานของโปรแกรมนี้ นอกจากจะวาดรูปสี่เหลี่ยมแล้ว มันจะวาดรูปสี่เหลี่ยมที่เล็กกว่า โดยการเรียกใช้ฟังก์ชันตัวเองครับ อธิบายโดยละเอียดคือ

คำสั่ง square_r 200 – จะวาดรูปสี่เหลี่ยมจัตุรัสขนาด 200 pixel – จากนั้นเรียกใช้ square_r 100
คำสั่ง square_r 100 – จะวาดรูปสี่เหลี่ยมจัตุรัสขนาด 100 pixel – จากนั้นเรียกใช้ square_r 50
คำสั่ง square_r 50 – จะวาดรูปสี่เหลี่ยมจัตุรัสขนาด 50 pixel – จากนั้นเรียกใช้ square_r 25
คำสั่ง square_r 25 – จะวาดรูปสี่เหลี่ยมจัตุรัสขนาด 25 pixel – จากนั้นเรียกใช้ square_r 5
คำสั่ง square_r 5 – จะวาดรูปสี่เหลี่ยมจัตุรัสขนาด 12.5 pixel – จากนั้นเรียกใช้ square_r 6.25
คำสั่ง square_r 25 – จะวาดรูปสี่เหลี่ยมจัตุรัสขนาด 6.25 pixel – จากนั้นเรียกใช้ square_r 3.125
( เป็นเช่นนี้ไปเรื่อยๆ )

เราเรียกฟังก์ชันที่เรียกใช้ฟังก์ชันตัวเองว่า Recursive Function ครับ (Recursive แปลว่า ซ้ำๆ)

แต่ปัญหาของโปรแกรมข้างต้น คือ มันจะทำงานไปเรื่อยๆ โดยไม่จบการทำงานครับ !!!

ถ้าเราเรียกใช้งานฟังก์ชันที่มีการเรียกใช้ฟังก์ชันตัวเอง โดยไม่มีเงื่อนไขจบการทำงาน ฟังก์ชันนั้นก็จะทำงานไปเรื่อยๆ โดยไม่มีวันสิ้นสุด

ดังนั้น สิ่งที่สำคัญมากสำหรับฟังก์ชันที่เรียกใช้งานตัวเองก็คือ เงื่อนไขจบการทำงานครับ (Exit Condition)

เราจะมาปรับปรุงโปรแกรม 11-1 โดยเพิ่มเงื่อนไขจบการทำงานเข้าไปครับ

LOGO EP11 – Recursive 2

TO square_r :s
if ( :s < 10 ) [ stop ]
repeat 4 [ fd :s rt 90 ]
square_r :s/2
END
square_r 200

โปรแกรมที่ 11-2

อธิบายการทำงานของโปรแกรม

คำสั่ง square_r 200 – พบว่าขนาด 200 มากกว่า 10 – วาดรูปสี่เหลี่ยมจัตุรัสขนาด 200 pixel – จากนั้นเรียกใช้ square_r 100
คำสั่ง square_r 100 – พบว่าขนาด 100 มากกว่า 10 – วาดรูปสี่เหลี่ยมจัตุรัสขนาด 100 pixel – จากนั้นเรียกใช้ square_r 50
คำสั่ง square_r 50 – พบว่าขนาด 50 มากกว่า 10 – วาดรูปสี่เหลี่ยมจัตุรัสขนาด 50 pixel – จากนั้นเรียกใช้ square_r 25
คำสั่ง square_r 25 – พบว่าขนาด 25 มากกว่า 10 – วาดรูปสี่เหลี่ยมจัตุรัสขนาด 25 pixel – จากนั้นเรียกใช้ square_r 5
คำสั่ง square_r 5 – พบว่าขนาด 12.5 มากกว่า 10 – วาดรูปสี่เหลี่ยมจัตุรัสขนาด 12.5 pixel – จากนั้นเรียกใช้ square_r 6.25
คำสั่ง square_r 25 – พบว่าขนาด 6.25 น้อยกว่า 10 – จึงจบการทำงาน

ต่อไปเราจะมาดูตัวอย่างโปรแกรมที่ประยุกต์ใช้การทำงานของฟังก์ชัน Recursive กันครับ

LOGO EP11 – Helix 1

TO helix_1 :s
if :s < 10 [ stop ]
fd :s rt 90
helix_1 :s – 10
END
cs setxy 0 -100
helix_1 200

โปรแกรมที่ 11-3

อธิบายการทำงานของโปรแกรม

คำสั่ง helix_1 200 – พบว่า :s มีค่า 200 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 200 pixel หันขวา 90 องศา – เรียกใช้ helix_1 190
คำสั่ง helix_1 190 – พบว่า :s มีค่า 190 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 190 pixel หันขวา 90 องศา – เรียกใช้ helix_1 180
คำสั่ง helix_1 180 – พบว่า :s มีค่า 180 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 180 pixel หันขวา 90 องศา – เรียกใช้ helix_1 170
( ทำเช่นนี้ไปเรื่อยๆ )
คำสั่ง helix_1 30 – พบว่า :s มีค่า 30 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 30 pixel หันขวา 90 องศา – เรียกใช้ helix_1 20
คำสั่ง helix_1 20 – พบว่า :s มีค่า 20 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 20 pixel หันขวา 90 องศา – เรียกใช้ helix_1 10
คำสั่ง helix_1 10 – พบว่า :s มีค่า 10 ซึ่งไม่มากกว่า 10 – จบการทำงาน

LOGO EP11 – Helix 2

TO helix_2 :s
if :s < 10 [ stop ]
fd :s rt 30
helix_2 :s * 0.95
END
cs setxy 0 -100
helix_2 100

โปรแกรมที่ 11-4

อธิบายการทำงานของโปรแกรม

คำสั่ง helix_2 100 – พบว่า :s มีค่า 100 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 100 pixel หันขวา 30 องศา – เรียกใช้ helix_2 95
คำสั่ง helix_2 95 – พบว่า :s มีค่า 95 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 95 pixel หันขวา 30 องศา – เรียกใช้ helix_2 90.25
คำสั่ง helix_2 90.25 – พบว่า :s มีค่า 25 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 90.25 pixel หันขวา 30 องศา – เรียกใช้ helix_2 85.74
( ทำเช่นนี้ไปเรื่อยๆ )
คำสั่ง helix_2 11.02 – พบว่า :s มีค่า 30 ซึ่งมากกว่า 02 – วาดเส้นตรง ยาว 11.02 pixel หันขวา 30 องศา – เรียกใช้ helix_2 10.47
คำสั่ง helix_2 10.47 – พบว่า :s มีค่า 20 ซึ่งมากกว่า 47 – วาดเส้นตรง ยาว 10.47 pixel หันขวา 30 องศา – เรียกใช้ helix_2 9.94
คำสั่ง helix_2 9.94 – พบว่า :s มีค่า 94 ซึ่งไม่มากกว่า 10 – จบการทำงาน

ต่อไปเราจะมาวาดรูปใยแมงมุมกันครับ

LOGO EP11 – Spiderweb

TO spiderweb :s
if :s < 10 [ stop ]
fd :s rt 45
spiderweb :s * 0.98
END
cs
spiderweb 100

โปรแกรมที่ 11-5

อธิบายการทำงานของโปรแกรม

คำสั่ง spiderweb 100 – พบว่า :s มีค่า 100 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 100 pixel หันขวา 45 องศา – เรียกใช้ spiderweb 98
คำสั่ง spiderweb 98 – พบว่า :s มีค่า 98 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 98 pixel หันขวา 45 องศา – เรียกใช้ spiderweb 96
คำสั่ง spiderweb 96 – พบว่า :s มีค่า 96 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 96 pixel หันขวา 45 องศา – เรียกใช้ spiderweb 94
( ทำเช่นนี้ไปเรื่อยๆ )
คำสั่ง spiderweb 10.4 – พบว่า :s มีค่า 4 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 10.4 pixel หันขวา 45 องศา – เรียกใช้ spiderweb 10.2
คำสั่ง spiderweb 10.2 – พบว่า :s มีค่า 2 ซึ่งมากกว่า 10 – วาดเส้นตรง ยาว 10.2 pixel หันขวา 45 องศา – เรียกใช้ spiderweb 9.99
คำสั่ง spiderweb 9.99 – พบว่า :s มีค่า 10 ซึ่งไม่มากกว่า 10 – จบการทำงาน

สุดท้ายเราจะประยุกต์ใช้เทคนิค Recursive ในการวาดรูปต้นไม้กันครับ

LOGO EP11 – Tree 1

TO my_tree :s
if :s < 10 [ fd :s bk :s stop ]
fd :s / 2
lt 30 my_tree :s /2 rt 30
rt 30 my_tree :s /2 lt 30
fd :s / 2
bk :s
END
cs
my_tree 200

โปรแกรมที่ 11-6

อธิบายการทำงานของโปรแกรม

คำสั่ง my_tree 200 – พบว่า :s มีค่ามากกว่า 10
- วาดเส้นตรง ยาว 100 pixel
- หันซ้าย 30 องศา – เรียกใช้ my_tree 100 – หันขวา 30 องศา
- หันขวา 30 องศา – เรียกใช้ my_tree 100 – หันซ้าย 30 องศา
- วาดเส้นตรง ยาว 100 pixel
- ถอยหลัง 200 pixel
คำสั่ง my_tree 100 – พบว่า :s มีค่ามากกว่า 10
- วาดเส้นตรง ยาว 50 pixel
- หันซ้าย 30 องศา – เรียกใช้ my_tree 50 – หันขวา 30 องศา
- หันขวา 30 องศา – เรียกใช้ my_tree 50 – หันซ้าย 30 องศา
- วาดเส้นตรง ยาว 50 pixel
- ถอยหลัง 100 pixel
คำสั่ง my_tree 50 – พบว่า :s มีค่ามากกว่า 10
- วาดเส้นตรง ยาว 25 pixel
- หันซ้าย 30 องศา – เรียกใช้ my_tree 25 – หันขวา 30 องศา
- หันขวา 30 องศา – เรียกใช้ my_tree 25 – หันซ้าย 30 องศา
- วาดเส้นตรง ยาว 25 pixel
- ถอยหลัง 50 pixel
คำสั่ง my_tree 25 – พบว่า :s มีค่ามากกว่า 10
- วาดเส้นตรง ยาว 12 pixel
- หันซ้าย 30 องศา – เรียกใช้ my_tree 12 – หันขวา 30 องศา
- หันขวา 30 องศา – เรียกใช้ my_tree 12 – หันซ้าย 30 องศา
- วาดเส้นตรง ยาว 12 pixel
- ถอยหลัง 25 pixel
คำสั่ง my_tree 12 – พบว่า :s มีค่ามากกว่า 10
- วาดเส้นตรง ยาว 6 pixel
- หันซ้าย 30 องศา – เรียกใช้ my_tree 6 – หันขวา 30 องศา
- หันขวา 30 องศา – เรียกใช้ my_tree 6 – หันซ้าย 30 องศา
- วาดเส้นตรง ยาว 6 pixel
- ถอยหลัง 12 pixel
คำสั่ง my_tree 6 – พบว่า :s มีค่า 6 ซึ่งน้อยกว่า 10 – จบการทำงาน

เราสามารถวาดแผนภาพแสดงการทำงานได้ดังนี้ครับ (รูปด้านล่างเป็นแค่การทำงานส่วนหนึ่งของโปรแกรมเท่านั้น)

LOGO EP11 – Recursive Tree 1

น้องๆ อาจจะสงสัยว่าทำไมต้นไม้รูปด้านบนดูแปลกๆ เรามาดูต้นไม้รูปด้านล่างกันบ้างครับ

LOGO EP11 – Tree 2

TO my_tree :s
if :s < 10 [ fd :s bk :s stop ]
fd :s / 4
lt 30 my_tree :s *2/3 rt 30
fd :s / 4
rt 30 my_tree :s *1/2 lt 30
fd :s / 4
lt 30 my_tree :s *1/3 rt 30
fd :s / 4
bk :s
END
cs
my_tree 200

โปรแกรมที่ 11-7

อธิบายการทำงานของโปรแกรม

คำสั่ง my_tree 200 – พบว่า :s มีค่ามากกว่า 10
- วาดเส้นตรง ยาว 50 pixel
- หันซ้าย 30 องศา – เรียกใช้ my_tree 133 – หันขวา 30 องศา
- วาดเส้นตรง ยาว 50 pixel
- หันขวา 30 องศา – เรียกใช้ my_tree 100 – หันซ้าย 30 องศา
- วาดเส้นตรง ยาว 50 pixel
- หันซ้าย 30 องศา – เรียกใช้ my_tree 67 – หันขวา 30 องศา
- วาดเส้นตรง ยาว 50 pixel
- ถอยหลัง 200 pixel
คำสั่ง my_tree 100 – พบว่า :s มีค่ามากกว่า 10
- วาดเส้นตรง ยาว 25 pixel
- หันซ้าย 30 องศา – เรียกใช้ my_tree 66 – หันขวา 30 องศา
- วาดเส้นตรง ยาว 25 pixel
- หันขวา 30 องศา – เรียกใช้ my_tree 50 – หันซ้าย 30 องศา
- วาดเส้นตรง ยาว 25 pixel
- หันซ้าย 30 องศา – เรียกใช้ my_tree 33 – หันขวา 30 องศา
- วาดเส้นตรง ยาว 25 pixel
- ถอยหลัง 100 pixel
คำสั่ง my_tree 50 – พบว่า :s มีค่ามากกว่า 10
- วาดเส้นตรง ยาว 12.5 pixel
- หันซ้าย 30 องศา – เรียกใช้ my_tree 33 – หันขวา 30 องศา
- วาดเส้นตรง ยาว 12.5 pixel
- หันขวา 30 องศา – เรียกใช้ my_tree 25 – หันซ้าย 30 องศา
- วาดเส้นตรง ยาว 12.5 pixel
- หันซ้าย 30 องศา – เรียกใช้ my_tree 17 – หันขวา 30 องศา
- วาดเส้นตรง ยาว 12.5 pixel
- ถอยหลัง 50 pixel
( เป็นเช่นนี้ไปเรื่อยๆ )

LOGO EP11 – Recursive Tree 2

และนี่คือเรื่องราวของ Recursive Function ทั้งหมดที่นำมาฝากกันในวันนี้ครับ สามารถติดตามตอนต่อไปได้ที่นี่ครับ https://karnlab.com/tag/ภาษาโลโก้

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 11 – เริ่มใหม่อีกครั้ง appeared first on KarnLab.

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 10 – รูปดาว

Admin — Sun, 15 Jul 2018 16:08:52 +0000

วันนี้เราจะมาวาดรูปกันเลยครับ รูปที่เราจะวาดกันในวันนี้ คือ รูปดาว (มีหลายแบบ) หากน้องๆ ไม่เข้าใจคำสั่งไหน ให้ลองกลับไปอ่านตอนเก่าๆ ของ tutorial นี้ดูนะครับ

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10

รูปดาว แบบที่ 1

LOGO EP10 – Star 1

rt 18
repeat 5 [ fd 200 rt 144 ]

อธิบายสั้นๆ

rt 18
คือ เปลี่ยนองศาเต่าโลโก้
fd 200 rt 144
คือ การวาดเส้นตรง
repeat 5 [ fd 200 rt 144 ]
คือ การวาดเส้นตรง 5 ครั้ง (จนกลายเป็นรูปดาว)

* เราสามารถซ่อนเต่าโลโก้ ด้วยคำสั่ง ht และแสดงเต่าโลโก้ ด้วยคำสั่ง st

รูปดาว แบบที่ 2

rt 30 repeat 3 [ fd 200 rt 120 ] lt 30
pu fd 120 pd
rt 90 repeat 3 [ fd 200 rt 120 ] lt 90

อธิบายสั้นๆ

repeat 3 [ fd 200 rt 120 ]
คือ การวาดรูปสามเหลี่ยม
pu fd 120 pd
คือ การย้ายตำแหน่งเต่าโลโก้

เมื่อเราวาดสามเหลี่ยมสองรูป จะเกิดเป็นรูปดาวแบบนี้

รูปดาว แบบที่ 3

LOGO EP10 – Star 3

pu fd 100 pd rt 18
repeat 5 [ fd 100 rt 144 fd 100 lt 72 ]

อธิบายสั้นๆ

pu fd 100 pd
คือ การย้ายตำแหน่งเต่าโลโก้
fd 100 rt 144 fd 100 lt 72
คือ การวาดแฉกของดาว
repeat 5 [ fd 100 rt 144 fd 100 lt 72 ]
คือ การวาดแฉกดาว 5 ครั้ง (กลายเป็นรูปดาว)

รูปดาว แบบที่ 4

LOGO EP10 – Star 4

pu fd 75 pd rt 30
repeat 6 [ fd 75 rt 120 fd 75 lt 60 ]

อธิบายสั้นๆ

pu fd 75 pd
คือ การย้ายตำแหน่งเต่าโลโก้
fd 75 rt 120 fd 75 lt 60
คือ การวาดแฉกของดาว
repeat 6 [ fd 75 rt 120 fd 75 lt 60 ]
คือ การวาดแฉกดาว 6 ครั้ง (กลายเป็นรูปดาว)

รูปดาว แบบที่ 5

LOGO EP10 – Star 5

pu fd 100 pd
repeat 8 [
rt 15 fd 100 rt 150 fd 100
lt 75 lt 45
]

อธิบายสั้นๆ

คล้ายกับรูปดาว แบบที่ 3 และ 4

รูปดาว แบบที่ 6

LOGO EP10 – Star Green

setscreencolor 0
setpencolor 2
setpensize 3rt 15 repeat 2 [ fd 150 rt 150 fd 150 rt 30 ]
rt 75 pu fd 40 lt 90 fd 40 rt 90 pd
rt 15 repeat 2 [ fd 150 rt 150 fd 150 rt 30 ]
lt 15 pu fd 27 rt 90 fd 65 rt 45 pd
rt 15 repeat 2 [ fd 150 rt 150 fd 150 rt 30 ]
rt 75 pu fd 40 lt 90 fd 40 rt 90 pd
rt 15 repeat 2 [ fd 150 rt 150 fd 150 rt 30 ]

รูปดาว แบบที่ 7

LOGO EP10 – Star Yellow

setscreencolor “#D1EEFE
setpencolor “gray
setpensize 1pu setxy 0 50 pd rt 18
repeat 5 [ fd 100 rt 144 fd 100 lt 72 ]
pu setxy 0 0 pd lt 18
setpencolor “yellow
fillsetpencolor “black
pu setxy 10 20 pd
arc 360 10 fill
pu setxy 50 20 pd
arc 360 10 fill

และนี่คือรูปดาวทั้งหมดที่นำมาฝากกันในวันนี้ครับ สามารถติดตามต่อตอนไปได้ที่นี่ครับ https://karnlab.com/tag/ภาษาโลโก้

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 10 – รูปดาว appeared first on KarnLab.

วาดรูปด้วยภาษาโลโก้ : ตอนที่ 9 – รูปดอกไม้

Admin — Sun, 15 Jul 2018 16:02:26 +0000

วันนี้เราจะมาวาดรูปกันเลยครับ รูปที่เราจะวาดกันในวันนี้ คือ รูปดอกไม้ (มีหลายแบบ) หากน้องๆ ไม่เข้าใจคำสั่งไหน ให้ลองกลับไปอ่านตอนเก่าๆ ของ tutorial นี้ดูนะครับ

คำสั่งที่น้องๆ จะเจอในบทนี้

คำสั่ง	ความสามารถ	ตัวอย่าง
fd ระยะทาง bk ระยะทาง	forward = เดินหน้า backward = ถอยหลัง	fd 100 = เดินหน้า 100 pixel bk 50 = ถอยหลัง 50 pixel
rt องศา lt องศา	right turn = หมุนขวา left turn = หมุนซ้าย	rt 90 = หมุนไปทางขวา 90 องศา lt 45 = หมุนไปทางซ้าย 45 องศา
repeat จำนวนครั้ง [ คำสั่ง ]	repeat = ทำคำสั่งต่อไปนี้ ซ้ำ n ครั้ง	repeat 3 [ fd 100 rt 120 ] repeat 4 [ fd 100 rt 90 ] repeat 6 [ fd 100 rt 60 ]
TO ชื่อฟังก์ชัน :ตัวแปร คำสั่ง END	function = สร้างชุดคำสั่ง	TO square :size repeat 4 [ fd :size rt 90 ] END
cs clean	clear screen = ล้างหน้าจอ clean = ล้างหน้าจอ
pu pd	pen up = ยกปากกา pen down = วางปากกา
ht st	hide turtle = ซ่อนเต่าโลโก้ show turtle = แสดงเต่าโลโก้
setxy พิกัดx พิกัดy	set (x,y) = กำหนดตำแหน่งเต่าโลโก้	setxy 200 100
setpensize ขนาด setpencolor รหัสสี fill setscreencolor รหัสสี	set pen size = กำหนดขนาดปากกา set pen color = กำหนดสีปากกา fill = ระบายสี set screen color = กำหนดสีพื้นหลัง	setpensize 5 setpencolor 10 fill setscreencolor 10

รูปดอกไม้ แบบที่ 1

LOGO EP9 – Flower 1

fd 150
repeat 4 [
repeat 90 [ fd 1 rt 1 ]
rt 90
repeat 90 [ fd 1 rt 1 ]
rt 180
]

อธิบายสั้นๆ

fd 150
คือ วาดก้านดอกไม้
repeat 90 [ fd 1 rt 1 ]
คือ การวาดรูปครึ่งวงกลม
repeat 90 [ fd 1 rt 1 ] rt 90 repeat 90 [ fd 1 rt 1 ]
คือ การวาดกลีบดอกไม้

* เราสามารถซ่อนเต่าโลโก้ ด้วยคำสั่ง ht และแสดงเต่าโลโก้ ด้วยคำสั่ง st

รูปดอกไม้ แบบที่ 2

LOGO EP9 – Flower 2

fd 150
repeat 8 [
repeat 90 [ fd 1 rt 1 ]
rt 90
repeat 90 [ fd 1 rt 1 ]
rt 135
]

อธิบายสั้นๆ

fd 150
คือ วาดก้านดอกไม้
repeat 90 [ fd 1 rt 1 ]
คือ การวาดรูปครึ่งวงกลม
repeat 90 [ fd 1 rt 1 ] rt 90 repeat 90 [ fd 1 rt 1 ]
คือ การวาดกลีบดอกไม้

รูปดอกไม้ แบบที่ 3

* สำหรับรูปนี้ เราจะเขียนฟังก์ชัน leaf เพื่อให้เราเขียนคำสั่งวาดกลีบดอกไม้ได้ง่ายขึ้นครับ

LOGO EP9 – Flower 3

TO leaf
repeat 90 [ fd 1 rt 1 ]
rt 90
repeat 90 [ fd 1 rt 1 ]
rt 90
ENDfd 150 lt 45
repeat 6 [ leaf rt 60 ]

อธิบายสั้นๆ

fd 150
คือ วาดก้านดอกไม้
leaf
คือ การวาดกลีบดอกไม้

รูปดอกไม้ แบบที่ 4

LOGO EP9 – Flower 4

TO leaf
repeat 90 [ fd 1 rt 1 ]
rt 90
repeat 90 [ fd 1 rt 1 ]
rt 90
ENDlt 105
repeat 5 [ leaf rt 30 ]

อธิบายสั้นๆ

lt 105
คือ การปรับองศา
leaf
คือ การวาดกลีบดอกไม้

รูปดอกไม้ แบบที่ 5

LOGO EP9 – Flower Colorful

TO leaf
repeat 90 [ fd 1 rt 1 ]
rt 90
repeat 90 [ fd 1 rt 1 ]
rt 90
ENDTO leaf_fill
rt 45 pu fd 10 pd fill bk 10 lt 45
ENDsetscreencolor “#D1EEFE

setpencolor “#F9BC9D
pu setxy -200 0 pd lt 45
repeat 5 [ leaf leaf_fill rt 72 ]

setpencolor “#F0A2AF
pu setxy 0 0 pd lt 45
repeat 5 [ leaf leaf_fill rt 72 ]

setpencolor “#DFA2E6
pu setxy 200 0 pd lt 45
repeat 5 [ leaf leaf_fill rt 72 ]

อธิบายสั้นๆ

leaf
คือ ฟังก์ชันวาดกลีบดอกไม้
leaf_fill
คือ การระบายสีดอกไม้
setscreencolor “#D1EEFE
คือ ตั้งค่าสีพื้นหลังให้เป็นสีฟ้า
setpencolor “#F9BC9D
คือ การตั้งค่าสีปากกา
pu setxy -200 0 pd lt 45
คือ การเปลี่ยนตำแหน่งเต่าโลโก้
repeat 5 [ leaf leaf_fill rt 72 ]
คือ การวาดดอกไม้

รูปดอกไม้ แบบที่ 6

LOGO EP8 – Flower in the Morning

TO core
repeat 12 [
repeat 360 [ fd 0.5 rt 1 ] rt 30
]
ENDTO leaf
repeat 90 [ fd 1.5 rt 1 ]
rt 90
repeat 90 [ fd 1.5 rt 1 ]
rt 90
ENDsetscreencolor “lightcyan
setpencolor “greenyellow setpensize 8 bk 200 fd 200
setpencolor “orange setpensize 2 repeat 12 [ leaf rt 30 ]
setpencolor “brown setpensize 2 core

อธิบายสั้นๆ

core
คือ ฟังก์ชันวาดเกสรดอกไม้
leaf
คือ ฟังก์ชันวาดกลีบดอกไม้
setscreencolor “lightcyan
คือ ตั้งค่าสีพื้นหลังให้เป็นสีฟ้า
setpencolor “greenyellow setpensize 8 bk 200 fd 200
คือ วาดก้านดอกไม้
setpencolor “orange setpensize 2 repeat 12 [ leaf rt 30 ]
คือ วาดกลีบดอกไม้
setpencolor “brown setpensize 2 core
คือ วาดเกสรดอกไม้

และนี่คือรูปดอกไม้ทั้งหมดที่นำมาฝากกันในวันนี้ครับ สามารถติดตามต่อตอนไปได้ที่นี่ครับ https://karnlab.com/tag/ภาษาโลโก้

The post วาดรูปด้วยภาษาโลโก้ : ตอนที่ 9 – รูปดอกไม้ appeared first on KarnLab.