B반_유승기_창의나라_계획서

//바다거북 모양 갖추기

item=0

cube(28,-10,-61)

cube(28,-10,-62)

cube(29,-9,-61)

cube(29,-9,-62)

cube(30,-8,-61)

cube(30,-14,-61)

cube(27,-11,-61)

cube(33,-11,-61)

//짧은 길(?)

item=9

goto(0,-13,-1)

head(3)

doitsxyz

doit(Z u 11Z )

//폭포수2

item=15

goto(0,-50,0)

doit(30d)

//없애기

item=0

goto(-2,-18,3)

doit( s [u] s [u] s [u] )

//분수1

item=15

goto(11,0,1)

doit(8u s [2l d l d] r [s d s d] 2t [r d r d] 2l [t d t d] s r d) 

​

//분수2

item=15

goto(-11,0,1)

doit(8u s [2l d l d] r [s d s d] 2t [r d r d] 2l [t d t d] s r d) 

​

//강물

item=15

goto(9,-41,1)

doit(8l 6s 6l 7s 8l 9s 7l)

goto(-9,-41,1)

doit(8l 6t 6l 7t 8l 9t 7l)

​

//담

item=10

goto(-10,-49,1)

doit(15l 6t 6l 7t 8l 17t 16l 17s 14r 2s 8r 7s 6r 6s 8r)

goto(10,-49,1)

doit(15l 6s 6l 7s 8l 17s 16l 17t 14r 2t 8r 7t 6r 6t 8r 16t )

​

//나무

item=2

goto(22,22,-44)

doit(4u)

item=3

doit(2s t l t [l] t r [t] r s [r] s l t u s 2t s l 2r l u d) 

item=2

goto(13,15,-45)

doit(4u)

item=3

doit(2s t l t [l] t r [t] r s [r] s l t u s 2t s l 2r l u d) 

item=2

goto(29,8,-50)

doit(4u)

item=3

doit(2s t l t [l] t r [t] r s [r] s l t u s 2t s l 2r l u d) 

item=2

goto(30,7,1)

doit(4u)

item=3

doit(2s t l t [l] t r [t] r s [r] s l t u s 2t s l 2r l u d) 

item=2

goto(-30,7,1)

doit(4u)

item=3

doit(2s t l t [l] t r [t] r s [r] s l t u s 2t s l 2r l u d) 

​

beginxyz;

​

//하늘에 떠있는 섬

집합{ sqrt( x,y ) >= 50 && 0<=z && z<2 ; 0 }

집합 { 원(0,0,-30,50+z) && -30<z && z<0 ; 41 }

//성 기둥

집합{ sqrt( x,y ) <=4 && 0<z && z<40 ; 0 }   

집합{ sqrt( x,y ) <=5 && 0<z && z<40 ; 10 }   

//성 지붕

집합 { 원(0, 0, 39, 46-z) ; 6 }

​

//폭포수

집합 { abs(y+54, 4*sin(0.3*(z-14)))<=1 && -10<x && x<10 && z<=0 ; 15 }

집합 { abs(y+53, 5*sin(0.3*(z-14)))<=1 && -10<x && x<10 && z<=0 ; 15 }

집합 { abs(y+52, 6*sin(0.3*(z-14)))<=1 && -10<x && x<10 && z<=0 ; 5 }

집합 { abs(y+51, 7*sin(0.3*(z-14)))<=1 && -10<x && x<10 && z<=0 ; 15 }

집합{ 직(0,-46,-1,9,5) && 0<z && z<2 ; 15 }

//땅을 뚤는 초강력 번개

집합 { abs(y, 4*sin(0.3*z))<=1 && 21<x && x<23 && z<=51 ; 11 }

//성벽

집합{ 직(0,-18,1,17,0) && 0<z && z<30 ; 9 }

집합{ 직(17,0,1,0,17) && 0<z && z<30 ; 9 }

집합{ 직(0,17,1,17,0) && 0<z && z<30 ; 9 }

집합{ 직(-17,0,1,0,17) && 0<z && z<30 ; 9 }

//먹구름(보기엔 바퀴처럼 보이지만 먹구름이다)

R = 25 ; D = sqrt(x,y)

집합 { sqrt( R-D, z-55 ) < 5 ; 10}

//분수대1

R = 2 ; D = sqrt(x-11,y)

집합 { sqrt( R-D, z-2 ) < 2 ; 16}

//분수대2

R = 2 ; D = sqrt(x+11,y)

집합 { sqrt( R-D, z-2 ) < 2 ; 16}

//호수

집합 { nemo( x-31,y+12) <=8 && 0<z && z<2 ; 15 }

집합 { nemo( x+31,y+12) <=8 && 0<z && z<2 ; 15 }

//3그루 밖에 없는 무인도

집합{ 구(20,20,-63,20 ) && z>-63 ; 1 }

집합 { nemo( x,y ) <=64 && -64<z && z<-62 ; 15 }

//배

집합 { 직( -38,4,-64,10,25) && -64<z && z<-50 ; 41 }

집합 { 직( -38,4,-64,8,23) && -51<z && z<-46 ; 14 }

집합 { nemo( x+38,y+13 ) <=3 && -47<z && z<-42 ; 41 }

집합 { nemo( x+38,y+13 ) <=1 && -43<z && z<-35 ; 14 }

//바다거북(바다거북처럼 생기진 않았지만 바다거북으로 봐주세요)

집합{ sqrt( x-30,y+11 ) <= 3 && -64<=z && z<-60 ; 19 }

//그냥 연결되있는 텅빈 집(?)

집합{ 원( 0, 32, 1, 13-0.4*z )  ; 0 }

집합{ 원( 0, 32, 1, 15-0.4*z )  ; 9 }

//떨어질여고 하는 산(?)

집합 { 원(-35,24,1,20-z) ; 1 }