วาดรูปด้วยภาษาโลโก้ : ตอนที่ 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.

ลายผ้า Archives - KarnLab

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