LOGO 중급 연습 : repCount - 002 - 별 그리기

1. Introduction

LOGO 중급 연습 예제, repCount - 2번 별 그리기입니다. 이전 예제를 응용한 예제입니다. 이전 예제를 이해하고 있어야 이 예제를 소화할 수 있습니다. 핵심 코드는 이전 예제와 크게 다르지 않습니다. 박스 대신 별을 그리는 것만 다르고 거리만 약간 조정했습니다. 코드 해설은 이전 예제를 참고하세요. ^.^;

 

■ 이전 예제 : LOGO 중급 연습 : repCount - 001

 

2. Code

; LOGO 중급 연습 : repCount - 002 - 별 그리기

to box1 :side
    repeat 5 [ fd :side rt 72 ]
end

to boxes
    repeat 370 [ 
         ;; 2160 ...box1 :side 
        star1 :side
        move1
    ]
end

to displayText
    ; rt 90
    gotoCenter
    text1
    gotoNextLine
    text2
end

to draw
    ; SLOWDRAW 0
    ; for Slow Drawing
    ; FullScreen
    ; FullScreen, fs <--> SPLITSCREEN, ss
    setup
    boxes
    displayText
    HT
end

to gotoCenter
    pu home pd
    pu fd 35 rt 90 back 70 lt 90 pd
end

to gotoNextLine
    pu back 30 pd
end

to main
    draw
end

to move1
    pu rt 90 fd :side+22 lt 90 
    make "A repCount + 0.6669
    lt :A
    pd
    ; show [ repCount : ] Show repCount
    ; 테스트 용으로 사용
    ; show [ :A ] show :A
    ; show 명령은 제법 delay가 발생함.
end

to setup
    Window Home CS PPT PD ST 
    pu rt 90 back 200 lt 90 back 420 pd
    make "side 13
    make "A 0
end

to star1 :side
    repeat 5 [ fd :side lt 72 fd :side rt 144 ]
end

to text1
    rt 90
    label [ "YS is BABO! ^.^ ..........................." ]
    lt 90
end

to text2
    rt 90
    label [ "SH is BABO too! ^.^ ....................." ]
    lt 90
end

 

3. Result

[ LOGO 중급 연습 : repCount - 002 - 별 그리기 ]

 

4. Notes

이전 예제 코드 해설 참고할 것. ^.^; 

 

별의 크기와 간격, 가운데 정렬은 미리 알아서 정한 것이라기 보다는 여러번 시도Try와 조정Adjust을 통해서 결정했습니다.  

 

■ 응용 연습 과제

1) 랜덤 컬러링

2) 상하 좌우 가운데 균형 맞추기

 

 

 

5. Files

FMSLogo 소스 코드 파일입니다.

 

Logo_Pro_IM_001_variables_009_Star_.lgo

0.00MB

 

 

6. Ref.

1) FMSLogo 내장 공식 도움말 파일.

2) LOGO 중급 연습 : repCount - 001

 

Happy Programming!

^.^;