วันอังคารที่ 28 สิงหาคม พ.ศ. 2555

คำสั่งสร้างภาพด้วยกระบวนความ


คำสั่งสร้างภาพรถไฟด้วยกระบวนความ


ภาพรถไฟเกิดจากการนำกระบวนความ 3 ส่วนมาประกอบกันดังนี้
     1. สร้างกระบวนความ Head ขึ้นมาก่อน
     2. ต่อมาจึงสร้่างกระบวนความ Body เป็นชิ้นที่สอง
     3. และสุดท้ายสร้างกระบวนความ Finish ขึ้่นมา
     4. เมื่อได้กระบวนความครบทั้งสามกระบวนความแล้วจึงทำการแปลงขนาดของกระบวนความให้อยู่ในรูปตัวแปร Size ทั้งหมด
     5. ดูได้จากกระบวนความแรกที่ชื่อ Train

To train :size
     head :size
     body :size
     finish :size
     pu setpos [200 200] pd
     label [Penpitcha   Khamnon  M.3/1 No.27] ht
End
To head :size
     pu lt 90 fd :size*3.5 pd rt 90 arc 180 :size*0.5 pu bk :size*0.5 pd fd :size*1.0
     bk :size*0.5 lt 90 pu fd :size*0.1 pd setfc [180 75 96] fill pu bk :size*0.1 rt 90
     bk :size*0.5 pd rt 90 fd :size*1.5 lt 90 fd :size*1.0 lt 90 fd :size*1.5 bk :size*0.5
     lt 90 pu fd :size*0.1 setfc [0 200 255] fill bk :size*0.1 lt 180 pd fd :size*0.7
     rt 90 fd :size*1.0 rt 90 fd :size*1.0 bk :size*0.5 pu rt 90 fd :size*0.1 pd
     setfc [180 75 96] fill pu bk :size*0.1 rt 90 fd :size*0.5 rt 90 pd fd :size*0.05
     lt 90 fd :size*0.05 lt 90 fd :size*1.1 lt 90 fd :size*0.05 lt 90 fd :size*0.05 pu
     lt 90 bk :size*0.7 rt 90 lt 180 rt 90 fd :size*0.7 fd :size*0.015 setfc [0 200 255] fill
     bk :size*0.015 bk :size*0.7 lt 90 fd :size*0.2 bk :size*0.05 fd :size*0.05 bk :size*0.1
     rt 90 pd fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 pu bk :size*0.05 lt 90
     fd :size*0.05 setfc [255 105 255] fill bk :size*0.05 lt 90 bk :size*0.05 lt 90 fd :size*0.1
     pd rt 90 fd :size*0.2 lt 90 fd :size*0.1 lt 90 lt 90 rt 90 fd :size*0.2 pu bk :size*0.05
     lt 90 fd :size*0.05 setfc [255 105 255] fill bk :size*0.05 lt 90 bk :size*0.05 rt 90
     lt 180 fd :size*0.1 rt 90 bk :size*1.0 rt 90 fd :size*0.35 pd circle :size*0.3 lt 90
     pu bk :size*0.1 setfc [0 0 0] fill fd :size*0.2 setfc [0 0 0] fill bk :size*0.1 lt 90 rt 180
     fd :size*1.15 bk :size*0.35 pd circle :size*0.3 lt 90 pu bk :size*0.1 setfc [0 0 0] fill
     fd :size*0.2 setfc [0 0 0] fill bk :size*0.1 rt 90 fd :size*0.35 lt 90 fd :size*0.2 rt 90 pd
     fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 pu rt 90 bk :size*0.05
     setfc [255 255 0]fill rt 90 lt 90 fd :size*0.05 rt 90 bk :size*0.1 lt 90 fd :size*0.1 rt 90
     pd fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 rt 90 pu bk :size*0.05
     setfc [255 255 0]fill fd :size*0.05 lt 90 rt 180 bk :size*0.1 lt 90 bk :size*0.5 rt 90
     fd :size*0.3 lt 90
End
To body :size
     pd fd :size*1.5 rt 90 fd :size*1.5 rt 90 fd :size*1.5 rt 90 fd :size*1.5 rt 90 fd :size*0.3 rt 90
     fd :size*1.5 lt 90 fd :size*0.3 lt 90 fd :size*1.5 rt 90 fd :size*0.3 rt 90 fd :size*1.5 lt 90
     fd :size*0.3 lt 90 fd :size*1.5 rt 90 fd :size*0.1 rt 90 pu fd :size*0.2lt 90setfc [150 100 100] fill
     bk :size*0.2 setfc [150 100 100] fill bk :size*0.3 setfc [150 100 100] fill bk :size*0.3 setfc [150 100 100] fill
     bk :size*0.4 setfc [150 100 100] fill bk :size*0.1 lt 90 fd :size*0.2 rt 180 fd :size*0.35 pd
     circle :size*0.3 lt 90 pu bk :size*0.1 setfc [0 0 0] fill fd :size*0.2 setfc [0 0 0] fill bk :size*0.1
     rt 90 fd :size*1.15 bk :size*0.35 pd circle :size*0.3 lt 90 pu bk :size*0.1 setfc [0 0 0] fill
     fd :size*0.2 setfc [0 0 0] fill bk :size*0.1 rt 90 fd :size*0.35 lt 90 fd :size*0.2 rt 90
     pd fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 pu rt 90 bk :size*0.05
     setfc [255 255 0] fill fd :size*0.05 rt 90 bk :size*0.1 lt 90 fd :size*0.1 rt 90 pd fd :size*0.3
     lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 rt 90 pu bk :size*0.05 setfc [255 255 0] fill
     fd :size*0.05 rt 90 bk :size*0.1 lt 90 bk :size*0.5 rt 90 fd :size*0.3 lt 90 pd fd :size*1.5 rt 90
     fd :size*1.5 rt 90 fd :size*1.5 rt 90 fd :size*1.5 rt 90 fd :size*0.3 rt 90 fd :size*1.5 lt 90
     fd :size*0.3 lt 90 fd :size*1.5 rt 90 fd :size*0.3 rt 90 fd :size*1.5 lt 90 fd :size*0.3 lt 90 fd :size*1.5
     rt 90 fd :size*0.1 rt 90 pu fd :size*0.2 lt 90 setfc [150 100 100] fill bk :size*0.2 setfc [150 100 100] fill
     bk :size*0.3 setfc [150 100 100] fill bk :size*0.3 setfc [150 100 100] fill bk :size*0.4 setfc [150 100 100] fill
     bk :size*0.1 lt 90 fd :size*0.2 rt 180 fd :size*0.35 pd circle :size*0.3 lt 90 pu bk :size*0.1 setfc [0 0 0] fill
     fd :size*0.2 setfc [0 0 0] fill bk :size*0.1 rt 90 fd :size*1.15 bk :size*0.35 pd circle :size*0.3
     lt 90 pu bk :size*0.1 setfc [0 0 0] fill fd :size*0.2 setfc [0 0 0] fill bk :size*0.1 rt 90 fd :size*0.35
     lt 90 fd :size*0.2rt 90 pd fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 pu
     rt 90 bk :size*0.05 setfc [255 255 0] fill fd :size*0.05 rt 90 bk :size*0.1 lt 90 fd :size*0.1
     rt 90 pd fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 rt 90 pu bk :size*0.05 setfc [255 255 0] fill
     fd :size*0.05 rt 90 bk :size*0.1 lt 90 bk :size*0.5 rt 90 fd :size*0.3 lt 90
End
To finish :size
     pd fd :size*1.7 rt 90 fd :size*2.0 rt 90 fd :size*1.7 rt 90 fd :size*2.0 bk :size*0.3 rt 90 pu
     fd :size*0.2 setfc [180 75 96] fill fd :size*1.2 rt 90 pd fd :size*1.4 rt 90 fd :size*0.75 rt 90
     fd :size*1.4 rt 90 fd :size*0.75 bk :size*0.375 rt 90 fd :size*1.4 rt 90 fd :size*0.375 rt 90
     fd :size*0.7 rt 90 fd :size*0.75 pu lt 90 fd :size*0.2 rt 90 bk :size*0.1 setfc [0 200 255] fill
     bk :size*0.3 setfc [0 200 255] fill rt 90 fd :size*0.3 setfc [0 200 255] fill lt 90 fd :size*0.1
     setfc [0 200 255] fill rt 90 fd :size*0.9 lt 90 fd :size*0.6 rt 90 pd fd :size*0.05 lt 90
     fd :size*0.05 lt 90 fd :size*2.1 lt 90 fd :size*0.05 lt 90 fd :size*0.05 lt 90 pu
     fd :size*0.02 setfc [0 200 255] fill bk :size*1.72 rt 90 fd :size*0.35 pd circle :size*0.3 pu
     lt 90 bk :size*0.05 setfc [0 0 0] fill fd :size*0.1 setfc [0 0 0] fill bk :size*0.05 rt 90
     fd :size*1.3 circle :size*0.3 pd circle :size*0.3 lt 90 pu bk :size*0.05 setfc [0 0 0] fill
     fd :size*0.1setfc [0 0 0] fill bk :size*0.05 rt 90
End
คำสั่งสร้างภาพปูด้วยกระบวนความ  










ภาพปูเกิดจากการนำกระบวนความ 3 ส่วนมาประกอบกันดังนี้
     1. สร้างกระบวนความ Head ขึ้นมาก่อน
     2. หลังจากนั้นจึงสร้างกระบวนความ Gam เป็นชิ้นที่สอง
     3. และสุดท้ายสร้างกระบวนความ Leg ขึ้นมา เมื่อได้ครบทั้งสามกระบวนความแล้วจึงนำมารวมกันเป็นกระบวนความสุดท้ายที่ชื่อ Poo และเมื่อได้กระบวนความครบ ก็ต้องทำการแปลงขนาดของภาพด้วยตัวแปร Size ด้วย
     4. ดูได้จากกระบวนความแรกที่ชื่อ Poo
To poo :size
     head :size
     gam :size
     leg :size
     pu setpos [0 150] pd
     label [เด็กหญิงเพ็ญพิชชา คำนนท์  เลขที่ 27 ม.3/1]
End
To head :size
     pd rt 90 fd :size*1.2 rt 90 fd :size*1.2 rt 90 fd :size*2.4 rt 90 fd :size*1.2
     rt 90 fd :size*1.2 pu bk :size/2 lt 90 pd fd :size/2 pu fd :size*0.3 pd circle :size*0.3
     setfc [200 255 255] fill circle :size/10 setfc [0 0 0] fill pu bk :size*0.8
     rt 90 fd :size lt 90 pd fd :size/2 pu fd :size*0.3 pd circle :size*0.3 setfc [200 255 255] fill
     setpc [0 0 0]circle :size/10 setfc [0 0 0] fill pu bk :size pd setfc [255 180 0] fill
     setpc [0 0 0]pu home bk :size*0.7 lt 90 pd fd :size*0.4 rt 45 fd :size/5 pu home bk :size*0.7
     rt 90 pd fd :size*0.4 lt 45 fd :size/5
End
To gam :size
     pu home rt 90 pd fd :size*1.8 lt 90 fd :size*0.3 lt 90 fd :size/10 rt 90
     fd :size*0.8 rt 45 fd :size/10 rt 135 fd :size*0.3 lt 90 fd :size*0.3 lt 90 fd :size*0.3
     rt 135 fd :size/10 rt 45 fd :size*0.8 rt 90 fd :size/10 lt 90 fd :size/2 rt 90 fd :size*0.85
     rt 135 pu fd :size/10 pd setfc [255 170 0] fill
     pu home lt 90 pd fd :size*1.8 rt 90 fd :size*0.3 rt 90 fd :size/10 lt 90
     fd :size*0.8 lt 45 fd :size/10 lt 135 fd :size*0.3 rt 90 fd :size*0.3 rt 90 fd :size*0.3
     lt 135 fd :size/10 lt 45 fd :size*0.8 lt 90 fd :size/10 rt 90 fd :size/2 lt 90 fd :size*0.85
     lt 135 pu fd :size/10 pd setfc [255 170 0] fill pu
End
To leg :size
     home bk :size*0.9 rt 90 fd :size*1.2 pd fd :size*0.3 rt 90 fd :size/2 lt 90 fd :size*0.3
     rt 90 fd :size/10 rt 90 fd :size*0.4 rt 90 fd :size*0.4 lt 90 fd :size/5 rt 135
     pu fd :size/10 setfc [255 200 0] fill pu home
     bk :size*0.9 lt 90 fd :size*1.2 pd fd :size*0.3 lt 90 fd :size/2 rt 90 fd :size*0.3
     lt 90 fd :size/10 lt 90 fd :size*0.4 lt 90 fd :size*0.4 rt 90 fd :size/5 lt 135
     pu fd :size/10 setfc [255 200 0] fill pu
End
คำสั่งสร้างภาพปลาวาฬด้วยกระบวนความ
To whale :size
     body :size
     head :size
     water :size
     pu setpos[100 -100]
     pd label [Penpitcha  Khamnon M.3/1 No.27] ht
End
To body :size
     pu setpos[-144 36] pd setpos[-120 48] setpos[-84 48] setpos[-48 36] setpos[-24 24] setpos[0 0]
     setpos[24 -12] setpos[60 0]setpos[72 -12] setpos[48 -24] setpos[60 -36] setpos[48 -48]
     setpos[24 -36] setpos[24 -12] pu setpos[48 -24] pd setpos[96 -24] setpos[144 24]
     setpos[120 -36] setpos[72 -60] setpos[0 -60]setpos[-36 -60] setpos[-84 -48] setpos[-108 -24]
     setpos[-72 -36] setpos[-36 -24] pu setpos[-108 -24] pd setpos[-132 -12] setpos[-144 36] pu
     setpos[-108 24] pd arc 360 :size/10 pu bk :size*0.04 pd arc 360 :size*0.05 pu setpos[-48 0]
     pd setfc[250 225 120] fillpu setpos[-108 24] fd :size*0.03 pd setfc[0 0 0] fill pu
     setpos[36 -24] pd setfc[45 132 255] fill
End
To head :size
     pu setpos[-144 36] pd setpos[-108 96] setpos[-48 120] setpos[12 108] setpos[60 60] setpos[84 24]
     setpos[96 0]setpos[120 24] setpos[120 48] setpos[84 60] setpos[72 84] setpos[120 72]
     setpos[144 96] setpos[144 72] setpos[132 48] setpos[144 24] pu setpos[0 48] pd
     setfc[56 24 156] fill
End
To water :size
     pu setpos[-48 120] pd setpos[-60 168] setpos[-72 180] setpos[-84 180] setpos[-108 144]
     setpos[-96 192] setpos[-72 192] setpos[-48 168] setpos[-24 192] setpos[0 192] setpos[12 144]
     setpos[-12 180] setpos[-24 180] setpos[-36 168] setpos[-48 120] pu setpos[-48 156] pd
     setfc[46 125 225] fill
End
คำสั่งสร้างรูปช้างด้วยกระบวนความ
to a :size











pu home fd :size*1.50 rt 90 fd :size*1.00 rt 90
fd :size*0.25 rt 90 fd :size*0.10 fd :size*0.10 rt 90 pd
fd :size*0.10 lt 25 fd :size*0.05 fd :size*0.05 lt 25
rt 10 fd :size*0.05 fd :size*0.05 lt 5 lt 20 fd :size*0.05
lt 25 fd :size*0.05 fd :size*0.05 lt 25 fd :size*0.10 lt 25
fd :size*0.05 fd :size*0.05 pu home fd :size*1.50 rt 90
fd :size*0.50 lt 90 lt 45 pd fd :size*0.05 fd :size*0.15
lt 25 rt 15 fd :size*0.15 lt 10 fd :size*0.10 lt 25
fd :size*0.10 lt 5 fd :size*0.10 lt 5 fd :size*0.10 lt 5
fd :size*0.10 lt 10 fd :size*0.15 lt 5 fd :size*0.10 lt 5
fd :size*0.10 pu home fd :size*1.75 rt 90 fd :size*0.50
bk :size*0.25 lt 90 bk :size*0.10 fd :size*0.05 pd
fd :size*0.10 rt 5 fd :size*0.10 rt 5 fd :size*0.10 rt 25
fd :size*0.10 fd :size*0.10 fd :size*0.10 pu home
fd :size*1.50 fd :size*0.50 bk :size*0.25 lt 90
fd :size*0.10 fd :size*0.10 lt 90 rt 180 bk :size*0.05
fd :size*0.10 bk :size*0.05 bk :size*0.05 pd fd :size*0.10
lt 5 fd :size*0.10 lt 5 fd :size*0.10 lt 25 fd :size*0.10 lt 5
fd :size*0.10 pu home
end
to body :size







home lt 180 fd :size*1.50 rt 90 pd fd :size*0.20 lt 90
fd :size*0.20 pd  bk :size*0.20 fd :size*0.20 rt 90
fd :size*1.00 rt 90 fd :size*0.80 pu home lt 180
fd :size*1.50 lt 90 fd :size*0.20 rt 90 fd :size*0.20 pd
bk :size*0.20 fd :size*0.20 lt 90 fd :size*1.00 lt 90
fd :size*0.80 pu home  fd :size*0.50 rt 90 fd :size*1.40
lt 45 pd fd :size*0.25 lt 25 fd :size*0.25 lt 25
fd :size*0.25 lt 50 fd :size*0.25 lt 25 fd :size*0.25 lt 25
fd :size*0.25 fd :size*0.05 fd :size*0.05 fd :size*0.05
pu home fd :size*0.50 lt 90 fd :size*1.40 rt 45 pd
fd :size*0.25 rt 45 fd :size*0.25 rt 15 fd :size*0.25 rt 45
fd :size*0.25 rt 45 lt 20 fd :size*0.25 rt 20 fd :size*0.20
fd :size*0.05 pu lt 90 pd fd :size*0.25 rt 45 fd :size*0.15
rt 45 fd :size*0.15 rt 20 fd :size*0.10 fd :size*0.05 lt 90 pd pu home
end
to chang :size




a :size
body :size
head :size
pu setpos [150 150] rt 90 pd
label [Penpitcha  Khamnon] ht ;[เด็กหญิงเพ็ญพิชชา คำนนท์]
end
to head :size



pd circle :size*1.50 circle :size*0.30 pu  lt 180
fd :size*0.40 arc 180 :size*0.10 pd arc 180 :size*0.10
pu fd :size*0.10 pd pu fd :size*0.10 rt 180 arc 180 10
pd arc 180 10 pu  setfc [ 185 200 255] fill
end
เขียนโดย ที่

ไม่มีความคิดเห็น:

แสดงความคิดเห็น

สมัครสมาชิก: ส่งความคิดเห็น (Atom)