摘要
Created with Eukleides archive copy at the Wayback Machine.
许可协议
Curve_angles.euk (Eukleides source)
frame(-1,1.4,1,2.6,2.5)
P1 = point(0,2)
P2 = point(1,1)
P3 = point(-1,.2)
c1 = circle(P3,P1)
c2 = circle(P1,P2)
P Q intersection(c1,c2)
l1 = perpendicular(line(P, center(c1)), P)
l2 = perpendicular(line(P, center(c2)), P)
A = point(l1,.65)
B = point(l2,.85)
draw(P)
draw(l1)
draw(l2)
mark(A,P,B,simple,.4)
thickness(1.5)
draw(c1,16:,120:)
draw(c2,45:,190:)
label(P, .08, 90:)
label(A, .07, 90:)
label(B, .09, 270:)
Curve_angles.tex (PSTricks source)
\input pst-eps
\TeXtoEPS
\psset{linecolor=black, linewidth=.5pt, arrowsize=2pt 4}
\psset{unit=2.5000cm}
\pspicture*(-1.0000,1.4000)(1.0000,2.6000)
\psdots[dotstyle=*, dotscale=1.0000](-0.0000,2.0000)
\psline(1.0000,1.4444)(-1.0000,2.5556)
\psline(-0.6000,1.4000)(0.6000,2.6000)
\psarc(-0.0000,2.0000){0.2000}{-29.0546}{45.0000}
\psset{linewidth=0.7500pt}
\psarc(-0.5000,1.1000){1.0296}{16.0000}{120.0000}
\psarc(0.5000,1.5000){0.7071}{45.0000}{190.0000}
\uput{0.0800}[90.0000](-0.0000,2.0000){$P$}
\uput{0.0700}[90.0000](0.5682,1.6843){$A$}
\uput{0.0900}[270.0000](0.6010,2.6010){$B$}
\endpspicture
\endTeXtoEPS
\nopagenumbers
\end
Instructions
- Create EPS
$ euk2eps Curve_angles.euk
- Outline fonts
$ eps2eps -dNOCACHE Curve_angles.eps Curve_angles2.eps
- Fix bounding box
$ ps2epsi Curve_angles2.eps Curve_angles.eps
- Convert to Sketch
$ pstoedit -f sk Curve_angles.eps Curve_angles.sk
- Convert to SVG
$ skconvert Curve_angles.sk Curve_angles.svg
- Fix Curve_angles.svg with Inkscape