VIẾT CÁC CHƯƠNG TRÌNH GỒM MỘT HOẶC NHIỀU THỦ TỤC ĐỂ TẠO NHỮNG HÌNH TRANG TRÍ THEO CÁC MẪU SAU kích thước hình, màu nét, kích thước, độ dày nét vẽ là tùy chọn:... Vòng đeo cô.[r]
(1)(2) (3) (4) (5) (6) (7) (8) (9) (10) VIẾT CÁC CHƯƠNG TRÌNH GỒM MỘT HOẶC NHIỀU THỦ TỤC ĐỂ TẠO NHỮNG HÌNH TRANG TRÍ THEO CÁC MẪU SAU (kích thước hình, màu nét, kích thước, độ dày nét vẽ là tùy chọn): (11) HƯỚNG DẪN TO CONFUSION-1 HT REPEAT [FD 100 RT 90] END TO CONFUSION-2 HT REPEAT [FD 50 RT 90 FD 100 RT 90] END TO CONFUSION-3 HT FD 100 RT 90 FD 100 LT 90 FD 50 RT 90 FD 50 RT 90 FD 150 RT 90 FD 150 RT 90 END TO CONFUSION-4 HT FD 100 RT 90 FD 100 RT 90 FD 20 RT 90 FD 80 LT 90 FD 60 LT 90 FD 80 RT 90 FD 20 RT 90 FD 100 RT 90 END TO CONFUSION-5 HT SETPC RT 90 REPEAT [FD 50 LT 90 FD 50 LT 90 FD 50 RT 90] LT 90 PU FD 10 PD SETFC FILL END TO CONFUSION-6 HT REPEAT [FD 100 RT 90] RT 90 FD 10 LT 90 PU FD 10 PD REPEAT [FD 80 RT 90] END TO CONFUSION-7 HT REPEAT [FD 100 RT 90] FD 30 LT 45 FD 30 RT 90 REPEAT [FD 100 RT 90] END TO CONFUSION-8 HT REPEAT [FD 100 RT 90] PU RT 90 FD 50 LT 90 FD 50 PD REPEAT [FD 100 RT 90] END TO CONFUSION-9 HT REPEAT [FD 100 RT 360/3] END TO CONFUSION-10 HT REPEAT [FD 100 RT 360/5] END TO CONFUSION-11 HT REPEAT [FD 100 RT 360/6] END TO CONFUSION-12 HT REPEAT [FD 100 RT 360/8] END TO CONFUSION-13 CS HT CIRCLE 100 END TO CONFUSION-14 HT REPEAT [FD 50 RT 45 FD 50 LT 90 FD 50 RT 45 FD 50 LT 90] END TO CONFUSION-15 HT REPEAT [FD 100 LT 144] END TO CONFUSION-16 HT REPEAT [REPEAT [FD 150 LT 90 FD 50 LT 90] LT 90] END TO CONFUSION-17 (12) RT 30 REPEAT [REPEAT [FD 100 RT 120] FD 100 RT 60] END TO CONFUSION-27 REPEAT [REPEAT [FD 50 RT 90 FD 50 LT 90 FD 50 RT 90] LT 360/8] END TO CONFUSION-18 CS REPEAT [FD 100 LT 90 FD 10 LT 90 FD 90 RT 90 FD 80 RT 90 FD 90 LT 90 FD 10 LT 90 FD 100 LT 90 FD 100 RT 180] END TO CONFUSION-28 REPEAT [FD 100 RT 90 FD 50 RT 90 FD 50 LT 90 FD 50 RT 90 FD 50 RT 90 FD 100 RT 90 RT 360/8] END TO CONFUSION-19 REPEAT [REPEAT [FD 50 RT 90 FD 50 LT 90 FD 50 RT 90] LT 90] END TO CONFUSION-20 REPEAT [FD 50 LT 90 REPEAT [FD 100 LT 90] FD 50 LT 72] END TO CONFUSION-21 REPEAT 4[ FD 50 RT 90 FD 100 RT 90 FD 10 RT 90 FD 90 LT 90 FD 80 LT 90 FD 90 RT 90 FD 10 RT 90 FD 100 RT 90 FD 50 RT 90] END TO CONFUSION-22 REPEAT [REPEAT [FD 50 RT 60] RT 360/8] END TO CONFUSION-23 REPEAT [REPEAT [FD 100 LT 120] LT 360/8] END TO CONFUSION-24 REPEAT [REPEAT [FD 100 RT 120] FD 50 RT 60] END TO CONFUSION-29 REPEAT 10 [REPEAT [FD 100 RT 72] RT 36] END TO CONFUSION-30 REPEAT [REPEAT [FD 50 RT 60] RT 60] END TO CONFUSION-31 FD 180 RT 90 FD 180 RT 90 FD 160 RT 90 FD 160 RT 90 FD 200 RT 90 FD 140 RT 90 FD 180 RT 90 FD 180 RT 90 FD 160 RT 90 FD 160 RT 90 FD 200 RT 90 FD 140 END TO CONFUSION-32 REPEAT [REPEAT [FD 50 RT 360/8] RT 360/8] END TO CONFUSION-34 REPEAT [FD 100 rt 90 FD 50 LT 90 FD 50 LT 90 FD 50 RT 90 FD 50 LT 90 FD 100 LT 90 FD 50 RT 90 FD 50 LT 90 FD 100 LT 90 FD 100 RT 90 FD 50 LT 90 FD 50] END TO CONFUSION-35 REPEAT 12 [REPEAT [FD 50 RT 60] RT 360/12] END TO CONFUSION-25 CS REPEAT [ REPEAT [FD 100 RT 90 FD 20 RT 90] RT 90 FD 20 LT 360/8] END TO CONFUSION-38 REPEAT 36 [ PU FD 50 RT 90 PD FD 50 RT 90 FD 50 RT 90 PU FD 50 RT 90 RT 10] END TO CONFUSION-26 REPEAT [REPEAT [FD 100 RT 120] FD 50 RT 72 BK 50] END TO CONFUSION-40 REPEAT 8[ REPEAT 8[ FD 20 RT 90 FD 20 LT 45] RT 45] END HÌNH VẼ CÁC LỆNH GỢI Ý (13) TO HINHVUONG1 SETPENSIZE [5 5] SETPC RT 45 REPEAT 4[REPEAT 4[FD 30 RT 90 WAIT 30] RT 90] REPEAT 4[REPEAT 4[FD 60 RT 90 WAIT 30] RT 90] END ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ TO HVUONGnho SETPENSIZE [5 5] SETPC RT 45 REPEAT 4[REPEAT 4[FD 30 RT 90 WAIT 30] RT 90] END TO HVUONGto REPEAT 4[REPEAT 4[FD 60 RT 90 WAIT 30] RT 90] END TO TRANGTRI HVUONGnho HVUONGto END ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Đặt độ dày 5, màu nét đỏ (4) - Quay phải 45 độ Vẽ hình vuông nhỏ trước, hình vuông lớn ngoài sau Cách : dùng câu lệnh Repeat lồng TO 10VONGTRON SETPENSIZE [5 5] SETPC 10 REPEAT 10 [REPEAT 24 [FD 10 RT 15 WAIT 5] PU LT 36 FD 24 PD] END ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Đặt độ dày 5, màu nét xanh lục đậm (10) Cách : + viết thủ tục vẽ đường tròn trước, + viết thủ tục trang trí sau, có sử dụng thủ tục vẽ đường tròn Bước : Tạo thủ tục TO DUONGTRON SETPENSIZE [5 5] SETPC 10 REPEAT 24 [FD RT 15] END TO TRANGTRI1 REPEAT 10 [DUONGTRON RT 36 PU FD 36 PD] END Bước : gõ lệnh TRANGTRI1 , Enter Bước : lưu tệp SAVE “ HINHHOC1.LGO Muốn vẽ hình trên lớn có thể sửa thông số sau : TO DUONGTRON SETPENSIZE [3 3] SETPC REPEAT 24 [FD 10 RT 360/24] END TO TRANGTRI3 REPEAT [DUONGTRON RT 360/6 PU FD 68 PD] END (14) TO HINHTHOI SETPENSIZE [5 5] SETPC RT 45 REPEAT [FD 100 RT 90] END TO TRANGTRI5 REPEAT [HINHTHOI RT 45 PU FD 25 LT 90 PD WAIT 10] END ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ vẽ xong hình thoi cần quay đầu Rùa trở lại thẳng đứng lúc xuất phát (LT 90) sau đó lệnh vẽ hình thoi quay phải 45 độ vẽ hình Cách : Viết thủ tục Canhhoa : + vẽ tgiác nét màu xanh dương đậm, dày + vẽ tiếp tgiác cùng kthước, cùng vị trí, nét màu trắng, mỏng Bonghoa : + vẽ cánh hoa với góc quay 72 độ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ TO CANHHOA1 SETPENSIZE [12 12] SETPC REPEAT [FD 100 RT 120] SETPENSIZE [2 2] SETPC REPEAT [FD 100 RT 120] END TO BONGHOA1 REPEAT [CANHHOA1 RT 360/5] END Cách : + Vẽ cánh hoa tam giác nhỏ lọt tam giác lớn + Vẽ cánh hoa xoay tròn (góc quay 57 độ) TO CANHHOA2 SETPC RT 45 REPEAT [FD 100 LT 360/3] LT 30 PU FD 20 LT 30 PD REPEAT [FD 65 RT 120] RT 30 PU BK 20 PD END TO BONGHOA2 REPEAT [CANHHOA2 RT 57] END TO CANHHOA3 SETPENSIZE [5 5] SETPC FD 50 BK 25 LT 30 FD 25 BK 25 RT 60 FD 25 BK 25 LT 30 BK 25 END TO BONGHOA3 REPEAT [RT 360/6 CANHHOA3] END (15) TO LUCGIAC REPEAT [FD 30 RT 60] END TO KHANBAN HT REPEAT [LUCGIAC RT 45] END Khăn bàn KHANBAN TO KHANTHEU HT REPEAT 30 [LUCGIAC RT 12] END KHANTHEU Khăn thêu TO Mot REPEAT 20[FD RT 18] END TO Hai REPEAT 20[FD RT 18] END Vương miện Vòng đeo cô SQUARES 30 TOWER 15 TO VuongMien HT REPEAT 30 [FD 10 Mot Hai LT 12] END VUONGMIEN TO NGOC REPEAT 30 [FD RT 12] END TO VONGCO HT LT 180 REPEAT 18 [PD Ngoc PU LT 10 FD 12] END VONGCO TO SQUARES :S IF :S < [ STOP] REPEAT [FD :S RT 90] FD :S SQUARES :S - END SQUARES 30 TO TOWER :S :T IF :T = [STOP] SQUARES :S TOWER :S :T - END TOWER 15 (16) FRAME Cay1 80 CAY2 80 CAY 80 TO FRAME PU LT 90 FD 100 RT 90 BK 40 PD REPEAT [TOWER 15 RT 90] END FRAME to CAY1 :L IF :L< [FD :L BK :L STOP] FD :L LT 30 CAY1 :L/2 RT 60 CAY1 :L/2 LT 30 BK :L end Cay1 80 to CAY2 :L :P IF :P=0 [FD :L BK :L STOP] FD :L RT 30 CAY2 :L/2 :P-1 LT 60 CAY2 :L/2 :P-1 RT 30 BK :L End CAY2 80 TO CAY :L :N IF (:L<5) [FD :L BK :L STOP] FD :L RT 90 REPEAT :N [CAY :L/2 :N LT 180/:N] RT 90 BK :L END CAY 80 Perspective repeat 72 [circle 100 rr 5] Quả địa cầu to confusion38 repeat 36 [ pu fd 50 rt 90 pd fd 50 rt 90 fd 50 rt 90 pu fd 50 rt 90 rt 10] end Xem thêm tại: https://www.youtube.com/watch?v=h8BNBnk2CiI (17)