![직선의 애니메이션 만들기](https://rvso.com/image/286978/%EC%A7%81%EC%84%A0%EC%9D%98%20%EC%95%A0%EB%8B%88%EB%A9%94%EC%9D%B4%EC%85%98%20%EB%A7%8C%EB%93%A4%EA%B8%B0.png)
$\phi$ 각도와 원점에서 이 선까지의 수직 거리만큼 회전하는 선 y=-3의 애니메이션을 어떻게 만들 수 있습니까? 또한 선과 수직선의 교차점이 만드는 모양을 추적해야 합니다.
죄송합니다. 좌표축도 필요하다는 사실을 깜빡했네요.
답변1
\documentclass[border=10pt,pstricks]{standalone}
\usepackage{pst-node,pst-plot,pst-eucl,multido}
\begin{document}
\multido{\iA=0+6,\iB=1+1}{60}{%
\begin{pspicture}(-5.2,-5.2)(5.5,2.5)
\pnode(0,0){O}
\psaxes[linewidth=0.5pt]{->}(0,0)(-5,-5)(5,2)[$x$,0][$y$,90]
\rput{\iA}(0,-3){\pnodes(-4,0){A}(4,0){B}\psline(A)(B)}
\pnode(!\iA\space tan dup 0 eq { -3 0 }{1 exch div neg 5 mul 5} ifelse exch){C}
\pstInterLL{A}{B}{O}{C}{D}
\pnode(0,0){Aa}
\multido{\iC=0+6}{\iB}{%
\rput{\iC}(0,-3){\pnodes(-4,0){Ab}(4,0){Bb}}%
\pnode(!\iC\space tan dup 0 eq { -3 0 }{1 exch div neg 5 mul 5} ifelse exch){Cb}%
\pstInterLL[PointSymbol=none,PointName=none]{Ab}{Bb}{O}{Cb}{Db}%
\psline(Aa)(Db)\pnode(Db){Aa}}%
\psline[linestyle=dashed](0,0)(D)
\end{pspicture}%
}
\end{document}
다음 을 사용하여 변환 gif
:
convert -delay 50 -loop 0 -density 200 -scale 350 -alpha remove test.pdf test.gif