[경회루 체험하기]
1) 아래의 명령어를 복사하세요.
2) 
을 누른 후 
버튼을 눌러 명령어를 실행하세요.
A='ss[uut]' // ㅁ 모양 난간
B='4s[12u]s[12u][l12u][r12u][s12u]' // 십자가 기둥
goto(-12,-15,4) //1층 난간 시작점
반복 4 { doit( 14A L ; 37 ) }
goto(-12,-15,10) //2층 난간 시작점
반복 4 { doit( 14A L ; 37 ) }
goto(-9,-10,1) //1층 2층 관통하는 기둥
반복 4 { doit( 4B L ; 9) }
X='11s[12u] [t12u] [l12u] [r12u] [s12u]' //1층 기둥
Y='11s[7u] [t7u] [l7u] [r7u] [s7u]' //2층 기둥
Z='2s[2ut]' //난간
C='sT' //난간색
goto(-21,-21,4) //1층 난간
반복 4 { doit( 21ZL ; 9 ) }
goto(-18,-18,18) //2층 난간
반복 4 { doit( 18ZL ; 2 ) }
goto(-18,-18,19) //2층 난간색입히기
반복 4 { doit( 18CL ; 13 ) }
goto(-17,-17,4) //1층 기둥
반복 4 { doit(3X L ; 9) }
goto(-17,-17,17) //2층 기둥
반복 4 { doit(3Y L ; 2) }
beginxyz ;
if(z<0) return 0; //실행속도 증가시키기
집합 {정(0, 0, 1, 25) && z<2 ; 5 } //밑바닥
집합 {정(0, 0, 2, 20) && z<4 ; 9 } //1층바닥
집합 {정(0, 0, 16, 17) && z<18 ; 2 } //2층바닥
집합 {직(0,0,25,19,22) && z<26 ; 2 } //지붕 0층
집합 {직(0, 0, 26, 46-z, 50-z) && z< 30 ; 41 } // 지붕 1층
집합 {직(0, 0, 30, 72-2*z, 16) ; 41 } //지붕 2층
집합 {직(0, 0, 30, 72-2*z, 17) ; 17 } //2층 지붕 색입히기
집합 {직(0, -16, 30, 74-2*z, 0) ; 40 } //2층 지붕 흰줄
집합 {직(0, 16, 30, 74-2*z, 0) ; 40 } //2층 지붕 흰줄
집합 {구(0, -16, 38, 1) ; 41} //지붕끝
집합 {구(0, 16, 38, 1) ; 41} //지붕끝
집합 {정(11, -15+z, 4, 2) && z<17; 2 } //계단
집합 {원(-4, 0, z, 4) && z==4 ; 4 } //태극무늬 작은원
집합 {원(4, 0, z, 4) && z==4 ; 5 } //태극무늬 작은원
집합 {원(0, 0, z, 8) && z==4 && y>0 ; 4 } //태극무늬 큰원
집합 {원(0, 0, z, 8) && z==4 && y<0 ; 5 } //태극무늬 큰원
//return 0 // 3D 프린터하려면 이 명령어를 써야합니다.
window(0.05)
k=max(0.025,x**4*exp(-x*x-(y-1.6)**2))
집합 { abs(z,k) < 0.05 ; 1+5*z }
집합 { 직(0,1.65,k+0.05, 1.45, 0.075, k+0.15) ; 50 }
집합 { 직(0,1.65,k+0.15, 1.45, 0.075, k+0.3) ; 0 }
집합 { 직(0,1.65,k+0.05, 1.45, 0.125, k+0.05*(4+abs(20*x-20*y)%2) ); 16 }
집합 { 직(0,-2,k+0.05, 1.45, 0.075, k+0.15) ; 50 }
집합 { 직(0,-2,k+0.15, 1.45, 0.075, k+0.3) ; 0 }
집합 { 직(0,-2,k+0.05, 1.45, 0.125, k+0.05*(4+abs(20*x-20*y)%2) ); 16 }
집합 { 직(-1.4,-0.2,k+0.05, 0.075, 1.9, k+0.15) ; 50 }
집합 { 직(-1.4,-0.2,k+0.15, 0.075, 1.9, k+0.3) ; 0 }
집합 { 직(-1.4,-0.2,k+0.05, 0.125, 1.9, k+0.05*(4+abs(20*x-20*y)%2) ); 16 }
집합 { 직(1.4,-0.2,k+0.05, 0.075, 1.9, k+0.15) ; 50 }
집합 { 직(1.4,-0.2,k+0.15, 0.075, 1.9, k+0.3) ; 0 }
집합 { 직(1.4,-0.2,k+0.05, 0.125, 1.9, k+0.05*(4+abs(20*x-20*y)%2) ); 16 }
return 0