LOGO : Animation - 001

LOGO Animation 예제  - 1 : Animation from JD8 Theme.

 

중급 이상 고급 예제입니다. Animation을 보여주기 위해 꼭 필요한 최소한의 수정만을 거쳐서 모범적인 코드 가이드를 따르지 않는 부분도 있습니다만 그게 핵심은 아닌지라 그대로.

 

코드 실행 중에라도 cs 명령을 입력해 진행 과정을 조금 바꿀 수도 있습니다.

 

to 144box
   repeat 12 [ line move2]
   pu fd 300 pd
end

to box
   repeat 4 [ fd 20 rt 90 ]
end

to cord
   fl_co wait 1 de_co move4
end

to de_co
   pe circle 5 ppt
   setfloodcolor random 15 ;; White, Originally.
   fill
   pu bk 7
   setfloodcolor random 15 ;; [ 255 255 255 ]
   fill
   bk 7 lt 45
end

to draw
   144box
   repeat 11 [ fl_co wait 1 de_co move ] cord
   repeat 10 [ fl_co wait 1 de_co move ] cord
   repeat 10 [ fl_co wait 1 de_co move ] cord
   repeat 9 [ fl_co wait 1 de_co move ] cord
   repeat 9 [ fl_co wait 1 de_co move ] cord
   repeat 8 [ fl_co wait 1 de_co move ] cord
   repeat 8 [ fl_co wait 1 de_co move ] cord
   repeat 7 [ fl_co wait 1 de_co move ] cord
   repeat 7 [ fl_co wait 1 de_co move ] cord
   repeat 6 [ fl_co wait 1 de_co move ] cord
   repeat 6 [ fl_co wait 1 de_co move ] cord
   repeat 5 [ fl_co wait 1 de_co move ] cord
   repeat 5 [ fl_co wait 1 de_co move ] cord
   repeat 4 [ fl_co wait 1 de_co move ] cord
   repeat 4 [ fl_co wait 1 de_co move ] cord
   repeat 3 [ fl_co wait 1 de_co move ] cord
   repeat 3 [ fl_co wait 1 de_co move ] cord
   repeat 2 [ fl_co wait 1 de_co move ] cord
   repeat 2 [ fl_co wait 1 de_co move ] cord
   repeat 1 [ fl_co wait 1 de_co move ] cord
   repeat 1 [ fl_co wait 1 de_co move ] cord
   cord cord
   ht
end

to fl_co
   pu rt 45 fd 14.142135624 pd
   setfloodcolor random 15
   fill
   circle 5
   setfloodcolor [ 0 0 0 ]
   fill
end

to line
   repeat 12 [ box move ]
end

to main

    ;; 프로그램 종료 방법은 ... 1) 무작정 기다리거나, 2) 없습니다. FMSLogo 메인 윈도우에 있는 'HALT' 버튼을 이용하세요.

    ;; 한 번 눌러서 안 되면 두 번. ^.^; 보시다시피 아래 repeat문 반복 횟수가 어마어마.
    setup
    make "angle 0
    rt 45
    repeat 100000000 [ draw rt :angle make "angle :angle + 15 pu fd 50 pd ]
    HT
end

to move
   pu rt 90 fd 25 lt 90 pd
end

to move2
   lt 90 pu fd 300 rt 90 bk 25 pd
end

to move4
   pu rt 180 fd 6 lt 90 pd
end

to setup
    Home CS PPT PD ST
    PU lt 90 fd 50 rt 90 fd 50 PD
end

 

 

[ 결과 ]

 

 

[ 첨부 파일 ]

Ani_001_from_JD8_.lgo

0.00MB

 

 

즐거운 프로그래밍!

^.^;