o.4

This code is described in "Computational Geometry in C" (Second Edition), Chapter 8. It is not writ

%!PS
%%Creator: arm.c (Joseph O'Rourke)
%%BoundingBox: -240 -240 240 240
%%EndComments
.00 .00 setlinewidth
340 340 translate
%Target point = (0,0)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%<==Solve2: L1=150, L2=90; nsoln=0, target=(0,0),J=(-1.05577e+270,2.05155e-314)
%<==Solve2: L1=110, L2=130; nsoln=0, target=(0,0),J=(-1.05577e+270,-1.0558e+270)
%TwoCircles00: p=(25.4545,30.8556)
%<==Solve2: L1=40, L2=90; nsoln=2, target=(-110,0),J=(-25.4545,-30.8556)
%Solve3: link1=110, link2=40, link3=90, joints=
  110        0    lineto
   84.55   -30.86 lineto
    0        0    lineto
closepath stroke
%Target point = (5,5)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%<==Solve2: L1=150, L2=90; nsoln=0, target=(5,5),J=(2.58889e-310,1.59353e-314)
%<==Solve2: L1=110, L2=130; nsoln=0, target=(5,5),J=(2.58883e-310,-1.0558e+270)
%TwoCircles00: p=(21.6421,33.6395)
%<==Solve2: L1=40, L2=90; nsoln=2, target=(-105,5),J=(-23.2177,-32.572)
%Solve3: link1=110, link2=40, link3=90, joints=
  110        0    lineto
   86.78   -32.57 lineto
    5        5    lineto
closepath stroke
%Target point = (10,10)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%<==Solve2: L1=150, L2=90; nsoln=0, target=(10,10),J=(2.58889e-310,1.59358e-314)
%<==Solve2: L1=110, L2=130; nsoln=0, target=(10,10),J=(2.58883e-310,-1.0558e+270)
%TwoCircles00: p=(17.9107,35.766)
%<==Solve2: L1=40, L2=90; nsoln=2, target=(-100,10),J=(-21.3806,-33.8063)
%Solve3: link1=110, link2=40, link3=90, joints=
  110        0    lineto
   88.62   -33.81 lineto
   10       10    lineto
closepath stroke
%Target point = (15,15)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%<==Solve2: L1=150, L2=90; nsoln=0, target=(15,15),J=(2.58889e-310,1.5936e-314)
%TwoCircles00: p=(-102.53,39.8434)
%<==Solve2: L1=110, L2=130; nsoln=2, target=(15,15),J=(-100.674,-44.3264)
%Solve3: link1=110, link2=130, joint=
 -100.67   -44.33 lineto
   15       15    lineto
closepath stroke
%Target point = (20,20)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%<==Solve2: L1=150, L2=90; nsoln=0, target=(20,20),J=(2.58899e-310,1.59377e-314)
%TwoCircles00: p=(-70.7107,84.2615)
%<==Solve2: L1=110, L2=130; nsoln=2, target=(20,20),J=(-109.582,9.58188)
%Solve3: link1=110, link2=130, joint=
 -109.58     9.58 lineto
   20       20    lineto
closepath stroke
%Target point = (25,25)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%<==Solve2: L1=150, L2=90; nsoln=0, target=(25,25),J=(2.58899e-310,5.31638e-315)
%TwoCircles00: p=(-50.2046,97.8749)
%<==Solve2: L1=110, L2=130; nsoln=2, target=(25,25),J=(-104.708,33.708)
%Solve3: link1=110, link2=130, joint=
 -104.71    33.71 lineto
   25       25    lineto
closepath stroke
%Target point = (30,30)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%<==Solve2: L1=150, L2=90; nsoln=0, target=(30,30),J=(2.58899e-310,5.32599e-315)
%TwoCircles00: p=(-35.3553,104.163)
%<==Solve2: L1=110, L2=130; nsoln=2, target=(30,30),J=(-98.6546,48.6546)
%Solve3: link1=110, link2=130, joint=
  -98.65    48.65 lineto
   30       30    lineto
closepath stroke
%Target point = (35,35)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%<==Solve2: L1=150, L2=90; nsoln=0, target=(35,35),J=(2.58899e-310,5.32841e-315)
%TwoCircles00: p=(-23.7386,107.408)
%<==Solve2: L1=110, L2=130; nsoln=2, target=(35,35),J=(-92.7346,59.1632)
%Solve3: link1=110, link2=130, joint=
  -92.73    59.16 lineto
   35       35    lineto
closepath stroke
%Target point = (40,40)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%<==Solve2: L1=150, L2=90; nsoln=0, target=(40,40),J=(2.58899e-310,5.33011e-315)
%TwoCircles00: p=(-14.1421,109.087)
%<==Solve2: L1=110, L2=130; nsoln=2, target=(40,40),J=(-87.1362,67.1362)
%Solve3: link1=110, link2=130, joint=
  -87.14    67.14 lineto
   40       40    lineto
closepath stroke
%Target point = (45,45)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(144.957,38.5681)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(45,45),J=(75.2282,129.772)
%Solve3: link1=150, link2=90, joint=
   75.23   129.77 lineto
   45       45    lineto
closepath stroke
%Target point = (50,50)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(137.179,60.6795)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(50,50),J=(54.0931,139.907)
%Solve3: link1=150, link2=90, joint=
   54.09   139.91 lineto
   50       50    lineto
closepath stroke
%Target point = (55,55)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(131.458,72.242)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(55,55),J=(41.8717,144.037)
%Solve3: link1=150, link2=90, joint=
   41.87   144.04 lineto
   55       55    lineto
closepath stroke
%Target point = (60,60)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(127.279,79.3725)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(60,60),J=(33.8751,146.125)
%Solve3: link1=150, link2=90, joint=
   33.88   146.12 lineto
   60       60    lineto
closepath stroke
%Target point = (65,65)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(124.288,83.9797)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(65,65),J=(28.502,147.267)
%Solve3: link1=150, link2=90, joint=
   28.50   147.27 lineto
   65       65    lineto
closepath stroke
%Target point = (70,70)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(122.228,86.9494)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(70,70),J=(24.946,147.911)
%Solve3: link1=150, link2=90, joint=
   24.95   147.91 lineto
   70       70    lineto
closepath stroke
%Target point = (75,75)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(120.915,88.7665)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(75,75),J=(22.7326,148.267)
%Solve3: link1=150, link2=90, joint=
   22.73   148.27 lineto
   75       75    lineto
closepath stroke
%Target point = (80,80)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(120.208,89.7218)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(80,80),J=(21.5571,148.443)
%Solve3: link1=150, link2=90, joint=
   21.56   148.44 lineto
   80       80    lineto
closepath stroke
%Target point = (85,85)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(120,89.9998)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(85,85),J=(21.2135,148.492)
%Solve3: link1=150, link2=90, joint=
   21.21   148.49 lineto
   85       85    lineto
closepath stroke
%Target point = (90,90)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(120.208,89.7218)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(90,90),J=(21.5571,148.443)
%Solve3: link1=150, link2=90, joint=
   21.56   148.44 lineto
   90       90    lineto
closepath stroke
%Target point = (95,95)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(120.766,88.969)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(95,95),J=(22.4842,148.305)
%Solve3: link1=150, link2=90, joint=
   22.48   148.31 lineto
   95       95    lineto
closepath stroke
%Target point = (100,100)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(121.622,87.7952)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(100,100),J=(23.9194,148.081)
%Solve3: link1=150, link2=90, joint=
   23.92   148.08 lineto
  100      100    lineto
closepath stroke
%Target point = (105,105)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(122.734,86.235)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(105,105),J=(25.8083,147.763)
%Solve3: link1=150, link2=90, joint=
   25.81   147.76 lineto
  105      105    lineto
closepath stroke
%Target point = (110,110)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(124.065,84.3081)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(110,110),J=(28.1125,147.342)
%Solve3: link1=150, link2=90, joint=
   28.11   147.34 lineto
  110      110    lineto
closepath stroke
%Target point = (115,115)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(125.588,82.0218)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(115,115),J=(30.8062,146.803)
%Solve3: link1=150, link2=90, joint=
   30.81   146.80 lineto
  115      115    lineto
closepath stroke
%Target point = (120,120)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(127.279,79.3725)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(120,120),J=(33.8751,146.125)
%Solve3: link1=150, link2=90, joint=
   33.88   146.12 lineto
  120      120    lineto
closepath stroke
%Target point = (125,125)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(129.118,76.3454)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(125,125),J=(37.3157,145.284)
%Solve3: link1=150, link2=90, joint=
   37.32   145.28 lineto
  125      125    lineto
closepath stroke
%Target point = (130,130)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(131.087,72.9128)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(130,130),J=(41.1352,144.249)
%Solve3: link1=150, link2=90, joint=
   41.14   144.25 lineto
  130      130    lineto
closepath stroke
%Target point = (135,135)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(133.172,69.031)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(135,135),J=(45.3544,142.979)
%Solve3: link1=150, link2=90, joint=
   45.35   142.98 lineto
  135      135    lineto
closepath stroke
%Target point = (140,140)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(135.36,64.634)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(140,140),J=(50.0112,141.417)
%Solve3: link1=150, link2=90, joint=
   50.01   141.42 lineto
  140      140    lineto
closepath stroke
%Target point = (145,145)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(137.642,59.6212)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(145,145),J=(55.1691,139.486)
%Solve3: link1=150, link2=90, joint=
   55.17   139.49 lineto
  145      145    lineto
closepath stroke
%Target point = (150,150)
newpath
    0        0    moveto
%==>Solve3: links = 110,40,90
%TwoCircles00: p=(140.007,53.8331)
%<==Solve2: L1=150, L2=90; nsoln=2, target=(150,150),J=(60.9343,137.066)
%Solve3: link1=150, link2=90, joint=
   60.93   137.07 lineto
  150      150    lineto
closepath stroke
showpage
%%EOF