[pstricks] Right triangle to scale

[Herbert Voss]

David Arnold schrieb:

> Is there a cute way to present an algorithm a pythagorean triple and
> have a right triangle drawn to scale in a space that measures 2 inches
> by two inches?
> 
> For example, I feed the problem 3, 4, 5 and I get a right triangle with
> sides 3, 4, and 5.

\documentclass{article}
\usepackage{pstricks}
\makeatletter
\def\triangle{\@ifnextchar[\triangle at i{\triangle at i[]}}
\def\triangle at i[#1]#2#3{{%
  \psset{#1}
  \pst at divide{2pt}{#3pt}\result
  \pspolygon[unit=\result\psunit](#3,0)(0,#2)(0,0)}}
\makeatother
\begin{document}

\psset{unit=1in}
\begin{pspicture}(0,0)(2,2)
\psframe[linecolor=red,linewidth=1.5pt](0,0)(2,2)
\triangle[linestyle=dashed]{3}{4}
\triangle[linestyle=dotted,linecolor=blue]{5}{12}
\end{pspicture}

\end{document}


Herbert