KTUG마당은 KTUG를 방문하는 모든 이용자가 대화를 나누고 소식을 전하는 곳입니다.

  • 로그인 없이 자유롭게 글을 읽고 쓸 수 있는 철학은 처음과 같이 계속됩니다.
  • Team Blog의 글을 이곳 게시판의 "정보글"로 모았습니다. Team blog는 기고자가 올린 글에 질문을 받는 부담을 줄이기 위하여 댓글을 허용하지 않았습니다. 그러나 이곳 게시판으로 모으면서 댓글을 달 수 있습니다. 게시물을 작성하실 때 댓글을 원하지 않으시면 댓글을 허용하시지 않으시기를 바랍니다. 또한 불필요한 소모성 댓글을 달지 않도록 주의하여 주시기를 바랍니다.
  • TeX과 관련된 질문이나 답변은 QnA 마당을 이용하십시오. TeX과 관련된 질문은 지웁니다
  • MathJax를 이용한 수식조판을 사용하실 수 있습니다. 여기를 참조하세요.
  • 스팸 글을 막기 위하여 짧은 시간 내에 다시 글이 등록되는 IP를 막거나, 광고 글을 막기 위하여 금지어로 .com, .net 등을 설정하고 있습니다. 다소간의 불편함이 있으시더라도 양해 바랍니다.
    • 금지어에서 stackexchange, stackoverflow, ctan, overleaf, , github, google.com, gmail.com, .org, .io, sil.org, wiki.com, tistory.com등은 해제하였습니다.
  • 사용하는 편집기는 CKeditor입니다. 편집기에서 [enter]를 누르면 <p> 태그가 들어가고, 문단으로 생각하고 한줄을 비웁니다. 글줄만 바꾸려면 shift-enter 를 누르시면 <BR>가 들어가므로 용도에 맞게 나누어 쓸 수 있습니다.

자유글 메타포스트로 그린 태극기

2015.10.18 14:36

kimperf 조회 수:15663

케이턱에서 많은 도움을 받고 있는 엔드유저입니다.

사소한 것이지만 나름대로 뿌듯해서 올려봅니다.

시간과 정성을 들여 해결책을 주시는 모든 분들게 감사드립니다. 


verbatimtex

\input kotexutf.tex


etex;


beginfig(1)


numeric u, ang; path p,q,s; u := 30mm;


vardef arcsind primary x = angle((sqrt(1-x*x),x)) enddef;


ang := arcsind(2/sqrt(13)); %approximately 33.69;


fill fullcircle scaled u withcolor blue;


%1 태극기 바탕 가로 : 세로 = 3 : 2


draw ((-1.5,-1)--(1.5,-1)--(1.5,1)--(-1.5,1)--cycle)scaled u;


%2 태극


p = ((-0.5,0){down}..{up}(0,0){up}..


{down}(0.5,0){up}..(0,0.5){left}..cycle) scaled u;


fill p rotated -ang withcolor red;


fill p rotated -(ang+180) withcolor blue;


%3 긴 괘 그리기


q = ((3/4, 1/4)--(3/4, -1/4)--(5/6, -1/4)--(5/6, 1/4)--cycle)


scaled u;


for i=ang, (180-ang), (180+ang), (360-ang):


fill q rotated i withcolor black;


fill q shifted (1/8u, 0) rotated i withcolor black;


fill q shifted (1/4u, 0) rotated i withcolor black;


endfor;


%4 짧은 괘 만들기


s = ((3/4, 1/48)--(3/4, -1/48)--(5/6, -1/48)--(5/6, 1/48)--cycle)


scaled u;


unfill s rotated ang;


unfill s rotated -ang;


unfill s shifted (1/8u,0) rotated (180+ang);


unfill s shifted (1/8u,0) rotated (360-ang);


unfill s shifted (1/4u,0) rotated ang;


unfill s shifted (1/4u,0) rotated (360-ang);


endfig;end%-------------------------------------------

이 게시물을
수정 삭제 목록
목록
쓰기
태그

게시판 태그

팀 블로그 태그

XE Login