定位定向與隨機變幻

一、知識要點

三、動畫圖形二、色彩圖案四、習(xí)題練習(xí)退出顏色設(shè)置與圖形動畫一、知識要點返回

1、通過設(shè)置畫筆顏色命令，能畫出各種色彩繽紛的圖案。2、利用人們的視覺暫留的特性快速播放一系列的靜態(tài)影像，使視覺產(chǎn)生動態(tài)的效果。而讓海龜反復(fù)執(zhí)行“畫圖—擦圖—確定新位置”這樣的遞歸步驟即可實現(xiàn)。3、根據(jù)圖形變換的不同方式，Logo圖形動畫分為旋轉(zhuǎn)、平移和伸縮三種運動的基本類型。可使用相應(yīng)的筆擦（PE）、清屏（CLEAN）命令或改變顏色方式加上延時控制來實現(xiàn)。

二、色彩圖案返回通過設(shè)置畫筆與背景顏色、圖形填色等方式和命令實現(xiàn)各種色彩繽紛的圖案。

基本命令命令全稱簡寫說明筆色SETPCn

設(shè)置畫筆的顏色(0~15)背景顏色SETBGn

改變背景顏色(0~15)背景花紋SETBGPATTERNn

設(shè)定屏幕背景為n號花紋筆寬SETWIDTHnSETWn設(shè)定筆寬為n(1~99)。筆紋SETPATTERNn

指定海龜用規(guī)定的筆紋畫線筆刷PENPAINTPP與筆紋命令配合使用涂色FILL

用當(dāng)前筆色對封閉圖形填色色碼、筆紋說明

代碼顏色代碼顏色代碼顏色代碼顏色0黑4紅8深灰12淺紅1藍(lán)5紫9淺藍(lán)13淺紫2綠6棕10淺綠14淺棕3青7淺灰11淺青15白代碼花紋名稱代碼花紋名稱代碼花紋名稱1無花紋5粗斜條\9密小點2橫線條6淡粗斜條10稀小點3細(xì)斜條/7直網(wǎng)格11細(xì)小點4中斜條/8斜網(wǎng)格

指導(dǎo)說明⑴、剛進(jìn)入LOGO系統(tǒng)時,畫筆顏色是白色（色碼為1）；背景顏色是黑色（色碼為0）；海龜筆寬的初始狀態(tài)為1。⑵、筆紋命令必須與筆刷命令配合使用。如果多次使用筆紋命令(SETPATTERN),在第一次使用之后,就要使用筆刷命令(PP)一次,以后再用筆紋命令時,就不需要再使用PP命令了。⑶、涂色命令只能對已經(jīng)被海龜線條封閉起來的圖形填色；圖形封閉線條的顏色必須和所填的顏色相同；開始填色時,必須使海龜抬筆進(jìn)入封閉圖形內(nèi),再落筆。例1：背景變幻

TOBJ:CIF:C>15STOPSETBG:CWAIT100BJ:C+1END

方法二：TOCQ2:CIF:C>15STOPSETPC:C(STAMPOVAL100100"TRUE)WAIT50CQ2:C+1END例2：彩球變幻方法一：TOCQ1:CIF:C>15STOPSETPC:CPULT90FD100RT90PDREPEAT360[FD100*PI/180RT1]PURT90FD50PDFILLFD50LT90WAIT50CQ1:C+1END例3-1：多彩七巧板

TOQQB:BDRAW

SETPC9RT45FD:BRT135FD:B*1.4142RT135FD:B

PURT135FD:B/4PDFILL

PUBK:B/4RT45PD

SETPC2FD:BRT135FD:B*1.4142RT135FD:B

PURT135FD:B/4PDFILLPUBK:B/4RT135PD

SETPC14FD:B/2RT135FD:B/2*1.4142RT135FD:B/2

PURT135FD:B/8PDFILLPUBK:B/8LT45PD

SETPC3REPEAT4[FD:B/2LT90]

PULT45FD:B/8PDFILLPUBK:B/8LT45FD:B/2PD

SETPC11FD:B/2RT135FD:B/2*1.4142RT135FD:B/2

PURT135FD:B/8PDFILLPUBK:B/8RT45FD:B/2RT45PD例3-2：多彩七巧板

SETPC13REPEAT2[FD:B/2*1.4142RT90]RT45FD:B

PUBK:BRT22FD:B/8PDFILLPUBK:B/8LT22PD

SETPC12REPEAT2[FD:B/2LT135FD:B/2*1.4142LT45]

PULT45FD:B/8PDFILLPUBK:B/8RT90FD:B/2*1.4142LT90PDSETPC0REPEAT4[FD:B*1.4142LT90]PUHOMEPDEND例3-3：多彩七巧板三、動畫圖形返回利用人們的視覺暫留的特性快速播放一系列的靜態(tài)影像，使視覺產(chǎn)生動態(tài)的效果。要讓海龜作圖時，實現(xiàn)動畫效果，可以在編寫尾部遞歸的過程中，反復(fù)執(zhí)行“畫圖—擦圖—確定新位置”這樣的步驟來實現(xiàn)。

實例分析從神奇的“一”筆入手學(xué)畫圖形動畫。根據(jù)圖形變換的不同方式圖形動畫可分為旋轉(zhuǎn)運動、平移運動和伸縮運動的三種基本類型。

線段平移運動⑴

TOXPY1HTSETW3SETPC1FD100WAIT20

PEBK100RT90FD1LT90PDXPY1END

⑴、平移運動是指圖形從屏幕上的一處移到另一處而產(chǎn)生動畫。圖形平移可以是豎直方向、水平方向或者是任意方向。⑵、這里是用筆擦PE命令實現(xiàn)動畫效果。

向右平移動

線段平移運動⑵TOXPY2HTSETW3SETPC1

FD100BK100WAIT20CLEANPURT90FD1LT90PDXPY2END

這里是用清屏CLEAN命令實現(xiàn)動畫效果。

線段旋轉(zhuǎn)運動

旋轉(zhuǎn)運動是指圖形繞一定點轉(zhuǎn)動而產(chǎn)生的動畫。一樣可用PE或CLEAN命令來實現(xiàn)效果。TOXXD1HTSETW3SETPC12FD100WAIT100

PEBK100PDRT360/60XXD1ENDTOXXD2HTSETW3SETPC12FD100BK100WAIT100

CLEANRT360/60XXD2END向右轉(zhuǎn)動

深入探討：秒表

如果圖形中并有靜動兩種畫面，必須只用筆擦PE命令來實現(xiàn)動畫效果。

TOBIAOM(鐘面)

SETPC9STAMPOVAL120120STAMPOVAL117117SETW2REPEAT12[PUFD105PD\FD10PUBK115PDRT30]SETW1REPEAT60[PUFD110PD\

FD5PUBK115PDRT6]END

TOMIAOBDRAWHTBIAOMXXD1END秒表

線段伸縮運動

伸縮運動是指圖形按同一比例放大或縮小而不改變其形狀的動畫。TOXUS:Q:SIF:Q>100MAKE"Q0MAKE"S0SETW2MAKE"Q:Q+:SHTFD:QWAIT10PEBK:QPDXUS:Q:S+5ENDTOBXUSDRAWTELLALL014EACH[RTWHO*(360/15)\SETPC1*WHO]XUS00END八條彩色射線應(yīng)用舉例：有光芒四射的太陽

TOXXXUSDRAWFSASK15[SETPC12(STAMPOVAL5050"TRUE)]TELLALL014EACH[RTWHO*(360/15)PUFD55PDSETPC1*WHO]XUS00END深入探究

除了用筆擦命令(PE)或清屏命令(CLEAN)實現(xiàn)動畫效果之外，色塊的不斷疊加或覆蓋，也能產(chǎn)生圖形“動”起來的感覺。實例分析1:交通“紅綠燈”

TOHLD:NIF:N<1STOPHTDJPUSETX0PDD10100D01PUSETX-120PDD12100D01PUSETX120PDD14100D01HLD:N-1END

TOKXTY:X:YSTAMPOVAL:X:YENDTOSXTY:X:Y(STAMPOVAL:X:Y"TRUE)ENDTOD:S:TSETPC:SSXTY5151WAIT:TEND

TODJSETPC9KXTY5050PUSETX-120PDKXTY5050PUSETX120PDKXTY5050PUSETXY[-190-70]PDREPEAT2[FD140RT90\FD380RT90]PURT45FD5PDFILLPUHOMEPDEND實例分析2:升國旗⑴

TOWJX:XRT36PUBK:X*1.38PDLT18REPEAT5[FD:XLT72FD:XRT144]RT18PUFD:X*1.38PDLT36ENDTOQI:N:A:BSETPC:N(STAMPRECT:A:B"TRUE)END

TOUQDRAWHTPUSETX-2PDQGPU

SETXY[0-100]PDHQWAIT200HQD0ENDTOHWJX:XSETPC14WJX:XFILLENDTOQGSETPC8SETW3BK100FD200SETW1(STAMPOVAL77"TRUE)END

TOHQD:NIFYCOR>63STOPQI155030PUFD2PDHQHQD:N+1ENDTOHQHTQI125030PUFD20RT90FD10LT90PDHWJX4PURT90FD10LT90PDHWJX1.5PUFD5LT90FD2RT90PDHWJX1.5PUBK10PDHWJX1.5PUBK4LT90FD5RT90PDHWJX1.5PUBK11LT90FD13RT90PDEND升國旗⑵實例分析3:球的擺動TOSXTY:X:Y(STAMPOVAL:X:Y"TRUE)END

TOBQ1BK160SXTY2020PUFD160PDENDTOBQ2

BK160SXTY2020WAIT20PESXTY2020SETW3FD160PDSETW1END

TOBQ3:NIF:N<1BQ1STOPRT45REPEAT10[BQ2LT90/10]REPEAT10[BQ2RT90/10]SETH0BQ3:N-1ENDTOBQ:NDRAWFSHTPUFD100LT90FD50RT90PDSXJX10010PURT90FD50LT90PDBQ3:NENDTOSXJX:X:Y(STAMPRECT:X:Y"TRUE)END實例分析4:旋動彩帶(1)TOCSD1KXTY9090KXTY120120REPEAT14[PUFD105PDKXTY1616\PUBK105PDRT360/14]ENDTOCSD2:SIF:S>15MAKE"S0SETPC:SPUFD105PDSXTY1515PUBK105PDRT360/14WAIT5CSD2:S+1ENDT