<?xml version="1.0"?>
<CP_Scriptfile date="May 20, 2009">
<CPscript title="Conformal Welding" level="min" screenmode="map" >
<description>Weld two owls together, windtip on one to a point you choose with 'm' on the other. The result of the welding gives a triangulation of the sphere; this is packed and displayed, with the 'eyes' of the two owls and the welding seem showing.</description>
<text> Here's your friendly owl, with a wingtip marked. </text>
<cmd name="*" mnemonic="*" tooltip="Start over" iconname="editdelete.png">act 0;infile_read Owl.p;color -c 20 21 22;color -c 209 54;disp -w -c -cf 21 22 54;infile_read -p1 lwO.p;color -p1 -c 20 21 22;disp -p1 -w -c -cf 21 22 </cmd>
<text> Use the cursor and 'm' to choose a yellow boundary vertex on pack p1. </text>
<cmd inline="no" name="m" mnemonic="m" tooltip="Mark a boundary vertex in p1" iconname="bookmark_add.png" dropable="yes">set_vlist -p1 z #XY;mark -p1 -cw -c vlist;set_vlist -p1 {c:(m).and.(b)};disp -p1 -cf vlist;set_Vlist 54 vlist;color -p1 -c 209 Vlist[1];disp -p0 -w -c -cf 21 22 54;disp -p1 -w -c -cf 21 22 Vlist[1]; </cmd>
<text> Type 'w' to carry out the welding. (This is like pasting the yellow circles of the two packings to one another, then continuing to paste clockwise around one boundary and counterclockwise around the other, until the full boundaries have been identified.) The result is a sphere and its max packing appears in p2. </text>
<cmd inline="no" name="w" mnemonic="w" iconname="debugger.png">act 2;set_screen -d;disp -w;infile_read lwO.p;set_elist b;adjoin 2 0 Vlist[1] 54 -1;max_pack -p2;color -p2 -c 100 a;color -p2 -c 20 {c:d.gt.12};color -p2 -c 209 54;disp -p2 -w -cf;disp -p2 -ec180 elist;set_disp_text -p2 -w -cf -ec180 elist;Map -x; </cmd>
  </CPscript>
<CPdata>
    <circlepacking name="Owl.p">
NODECOUNT:  80
GEOMETRY: euclidean
ALPHA/BETA/GAMMA:  8 80 26
PACKNAME: Owl.p
FLOWERS: 

1 5   74 73 6 4 2 58 
2 8   1 4 7 5 3 56 57 58 1 
3 7   56 2 5 8 14 20 37 56 
4 4   1 6 7 2 1 
5 4   2 7 8 3 2 
6 7   73 71 11 9 7 4 1 73 
7 8   4 6 9 12 10 8 5 2 4 
8 10   18 17 16 15 14 3 5 7 10 13 18 
9 4   6 11 12 7 6 
10 4   7 12 13 8 7 
11 5   43 12 9 6 71 72 
12 8   43 42 41 13 10 7 9 11 43 
13 7   40 19 18 8 10 12 41 40 
14 5   22 20 3 8 15 22 
15 4   22 14 8 16 22 
16 6   23 22 15 8 17 21 23 
17 4   21 16 8 18 21 
18 5   21 17 8 13 19 21 
19 4   40 21 18 13 40 
20 4   3 14 22 37 3 
21 15   40 39 38 34 33 32 28 26 25 24 23 16 17 18 19 40 
22 15   20 14 15 16 23 24 25 26 27 29 30 31 35 36 37 20 
23 4   24 22 16 21 24 
24 4   25 22 23 21 25 
25 4   26 22 24 21 26 
26 5   28 27 22 25 21 28 
27 3   29 22 26 28 
28 3   27 26 21 32 
29 2   30 22 27 
30 2   31 22 29 
31 2   35 22 30 
32 2   28 21 33 
33 2   32 21 34 
34 2   33 21 38 
35 2   36 22 31 
36 2   37 22 35 
37 4   56 3 20 22 36 
38 2   34 21 39 
39 2   38 21 40 
40 4   39 21 19 13 41 
41 4   40 13 12 42 44 
42 7   47 46 45 44 41 12 43 47 
43 3   47 42 12 11 
44 2   41 42 45 
45 4   44 42 46 48 50 
46 5   49 48 45 42 47 49 
47 4   53 49 46 42 43 
48 6   52 51 50 45 46 49 52 
49 5   53 52 48 46 47 53 
50 2   45 48 51 
51 3   50 48 52 54 
52 6   55 54 51 48 49 53 55 
53 3   55 52 49 47 
54 2   51 52 55 
55 2   54 52 53 
56 4   59 57 2 3 37 
57 7   58 2 56 59 60 61 62 58 
58 3   1 2 57 62 
59 2   60 57 56 
60 4   64 63 61 57 59 
61 5   62 57 60 63 66 62 
62 4   58 57 61 66 67 
63 6   68 66 61 60 64 65 68 
64 2   65 63 60 
65 3   70 68 63 64 
66 5   68 67 62 61 63 68 
67 3   62 66 68 69 
68 6   70 69 67 66 63 65 70 
69 2   67 68 70 
70 2   69 68 65 
71 6   76 75 72 11 6 73 76 
72 2   11 71 75 
73 6   77 76 71 6 1 74 77 
74 2   77 73 1 
75 3   72 71 76 78 
76 7   80 79 78 75 71 73 77 80 
77 3   80 76 73 74 
78 2   75 76 79 
79 2   78 76 80 
80 2   79 76 77 

RADII: 
1.109653892e-01   1.234614299e-01   7.925389229e-02   4.550553779e-02  
4.342400770e-02   9.713127104e-02   1.101237522e-01   1.158182144e-01  
4.550553781e-02   4.342400772e-02   1.109653892e-01   1.234614301e-01  
7.925389231e-02   4.316553530e-02   3.226167800e-02   5.866490251e-02  
3.226167800e-02   4.316553530e-02   2.977542221e-02   2.977542221e-02  
1.991765602e-01   1.991765602e-01   2.659636903e-02   2.136574084e-02  
2.640472251e-02   5.750264348e-02   8.158943984e-02   8.158943984e-02  
1.209929914e-01   8.554293216e-02   7.079531610e-02   1.209929914e-01  
8.554293216e-02   7.079531610e-02   6.802395149e-02   5.313680690e-02  
5.796579865e-02   6.802395149e-02   5.313680690e-02   5.796579865e-02  
7.486366012e-02   8.819481054e-02   1.010257594e-01   3.646916036e-02  
4.806309468e-02   4.126469343e-02   9.089029993e-02   4.546736652e-02  
4.297683923e-02   2.806398849e-02   5.947669576e-02   6.511093050e-02  
8.212424138e-02   1.119746749e-01   7.390570174e-02   7.486366012e-02  
8.819480949e-02   1.010257595e-01   3.646916036e-02   4.806309468e-02  
4.126469000e-02   9.089030024e-02   4.546735814e-02   2.806398805e-02  
5.947669371e-02   4.297683056e-02   8.212424560e-02   6.511087945e-02  
7.390542406e-02   1.119746614e-01   7.320387172e-02   5.291346296e-02  
7.320387172e-02   5.291346296e-02   5.510278568e-02   6.843946533e-02  
5.510278569e-02   4.841953386e-02   2.797201395e-02   4.841953386e-02  


CENTERS:
-2.0638930193e-01 -4.5979917255e-01  -2.3358298568e-01 -2.2695493908e-01  
-1.9300207141e-01 -2.8343027951e-02  -1.0703646264e-01 -3.3891838703e-01  
-1.0811808464e-01 -1.1691263863e-01  -2.0612507123e-10 -4.3319698981e-01  
-4.7743918147e-11 -2.2594196658e-01  -0.0000000000e+00 0.0000000000e+00  
1.0703646239e-01 -3.3891838719e-01  1.0811808462e-01 -1.1691263868e-01  
2.0638930145e-01 -4.5979917290e-01  2.3358298578e-01 -2.2695493932e-01  
1.9300207143e-01 -2.8343027976e-02  -1.3706727810e-01 8.0550567579e-02  
-7.7164040878e-02 1.2638577976e-01  -6.1138522141e-13 1.7448311690e-01  
7.7164040879e-02 1.2638577976e-01  1.3706727811e-01 8.0550567578e-02  
2.0999841015e-01 7.9353378167e-02  -2.0999841014e-01 7.9353378164e-02  
2.2054201374e-01 3.0806245681e-01  -2.2054201374e-01 3.0806245681e-01  
-1.1016527194e-12 2.5974438844e-01  -7.2561574213e-13 3.0770649831e-01  
7.8055438921e-13 3.5547696166e-01  1.6088351321e-17 4.3938432766e-01  
-8.1589439848e-02 5.5203321114e-01  8.1589439845e-02 5.5203321114e-01  
-2.7086156644e-01 6.2425303920e-01  -4.3353876619e-01 4.9700046979e-01  
-4.8721086354e-01 3.5016398307e-01  2.7086156643e-01 6.2425303920e-01  
4.3353876618e-01 4.9700046980e-01  4.8721086354e-01 3.5016398309e-01  
-4.7003545014e-01 2.1241132710e-01  -3.9018174122e-01 1.2128880219e-01  
-2.9605823458e-01 6.2258687343e-02  4.7003545014e-01 2.1241132712e-01  
3.9018174123e-01 1.2128880221e-01  2.9605823460e-01 6.2258687355e-02  
3.4343673811e-01 -6.1833788327e-02  4.4225489308e-01 -1.9153743939e-01  
4.0122456705e-01 -3.7625597241e-01  4.5462584624e-01 -6.7488799107e-02  
5.3547757682e-01 -9.2160641450e-02  5.7056299133e-01 -1.7430969754e-01  
5.7987231818e-01 -3.0613639705e-01  6.2750083046e-01 -1.0888391747e-01  
6.5254029398e-01 -1.9370963761e-01  5.9397322554e-01 -4.3441118944e-02  
6.7726097100e-01 -1.6487031034e-02  7.3675386657e-01 -1.2595242280e-01  
7.4961044393e-01 -2.7262520234e-01  8.4609734164e-01 1.3343363524e-02  
8.6819422128e-01 -1.7121893577e-01  -3.4343673805e-01 -6.1833788354e-02  
-4.4225489171e-01 -1.9153743911e-01  -4.0122456737e-01 -3.7625597149e-01  
-4.5462584615e-01 -6.7488800001e-02  -5.3547757638e-01 -9.2160643462e-02  
-5.7056298557e-01 -1.7430969811e-01  -5.7987231810e-01 -3.0613639409e-01  
-6.2750081972e-01 -1.0888392936e-01  -5.9397323318e-01 -4.3441131334e-02  
-6.7726098380e-01 -1.6487067461e-02  -6.5254027687e-01 -1.9370963359e-01  
-7.4961044295e-01 -2.7262517143e-01  -7.3675379403e-01 -1.2595244518e-01  
-8.6819383119e-01 -1.7121887062e-01  -8.4609736380e-01 1.3343184755e-02  
7.3203871388e-02 -5.8699963622e-01  1.9401115692e-01 -6.2320988157e-01  
-7.3203872054e-02 -5.8699963611e-01  -1.9401115766e-01 -6.2320988126e-01  
1.2350021367e-01 -7.0503724161e-01  -4.2461173848e-10 -7.0825980315e-01  
-1.2350021452e-01 -7.0503724143e-01  7.6007684941e-02 -7.9702273154e-01  
-4.9329047473e-10 -8.0467128242e-01  -7.6007685920e-02 -7.9702273143e-01  


END
    </circlepacking>
    <circlepacking name="lwO.p">
NODECOUNT:  80
GEOMETRY: euclidean
ALPHA/BETA/GAMMA:  8 0 26
PACKNAME: Empty
FLOWERS: 

1 5   58 2 4 6 73 74 
2 8   1 58 57 56 3 5 7 4 1 
3 7   56 37 20 14 8 5 2 56 
4 4   1 2 7 6 1 
5 4   2 3 8 7 2 
6 7   73 1 4 7 9 11 71 73 
7 8   4 2 5 8 10 12 9 6 4 
8 10   18 13 10 7 5 3 14 15 16 17 18 
9 4   6 7 12 11 6 
10 4   7 8 13 12 7 
11 5   72 71 6 9 12 43 
12 8   43 11 9 7 10 13 41 42 43 
13 7   40 41 12 10 8 18 19 40 
14 5   22 15 8 3 20 22 
15 4   22 16 8 14 22 
16 6   23 21 17 8 15 22 23 
17 4   21 18 8 16 21 
18 5   21 19 13 8 17 21 
19 4   40 13 18 21 40 
20 4   3 37 22 14 3 
21 15   40 19 18 17 16 23 24 25 26 28 32 33 34 38 39 40 
22 15   20 37 36 35 31 30 29 27 26 25 24 23 16 15 14 20 
23 4   24 21 16 22 24 
24 4   25 21 23 22 25 
25 4   26 21 24 22 26 
26 5   28 21 25 22 27 28 
27 3   28 26 22 29 
28 3   32 21 26 27 
29 2   27 22 30 
30 2   29 22 31 
31 2   30 22 35 
32 2   33 21 28 
33 2   34 21 32 
34 2   38 21 33 
35 2   31 22 36 
36 2   35 22 37 
37 4   36 22 20 3 56 
38 2   39 21 34 
39 2   40 21 38 
40 4   41 13 19 21 39 
41 4   44 42 12 13 40 
42 7   47 43 12 41 44 45 46 47 
43 3   11 12 42 47 
44 2   45 42 41 
45 4   50 48 46 42 44 
46 5   49 47 42 45 48 49 
47 4   43 42 46 49 53 
48 6   52 49 46 45 50 51 52 
49 5   53 47 46 48 52 53 
50 2   51 48 45 
51 3   54 52 48 50 
52 6   55 53 49 48 51 54 55 
53 3   47 49 52 55 
54 2   55 52 51 
55 2   53 52 54 
56 4   37 3 2 57 59 
57 7   58 62 61 60 59 56 2 58 
58 3   62 57 2 1 
59 2   56 57 60 
60 4   59 57 61 63 64 
61 5   62 66 63 60 57 62 
62 4   67 66 61 57 58 
63 6   68 65 64 60 61 66 68 
64 2   60 63 65 
65 3   64 63 68 70 
66 5   68 63 61 62 67 68 
67 3   69 68 66 62 
68 6   70 65 63 66 67 69 70 
69 2   70 68 67 
70 2   65 68 69 
71 6   76 73 6 11 72 75 76 
72 2   75 71 11 
73 6   77 74 1 6 71 76 77 
74 2   1 73 77 
75 3   78 76 71 72 
76 7   80 77 73 71 75 78 79 80 
77 3   74 73 76 80 
78 2   79 76 75 
79 2   80 76 78 
80 2   77 76 79 

RADII: 
1.109653892e-01   1.234614299e-01   7.925389229e-02   4.550553779e-02  
4.342400770e-02   9.713127104e-02   1.101237522e-01   1.158182144e-01  
4.550553781e-02   4.342400772e-02   1.109653892e-01   1.234614301e-01  
7.925389231e-02   4.316553530e-02   3.226167800e-02   5.866490251e-02  
3.226167800e-02   4.316553530e-02   2.977542221e-02   2.977542221e-02  
1.991765602e-01   1.991765602e-01   2.659636903e-02   2.136574084e-02  
2.640472251e-02   5.750264348e-02   8.158943984e-02   8.158943984e-02  
1.209929914e-01   8.554293216e-02   7.079531610e-02   1.209929914e-01  
8.554293216e-02   7.079531610e-02   6.802395149e-02   5.313680690e-02  
5.796579865e-02   6.802395149e-02   5.313680690e-02   5.796579865e-02  
7.486366012e-02   8.819481054e-02   1.010257594e-01   3.646916036e-02  
4.806309468e-02   4.126469343e-02   9.089029993e-02   4.546736652e-02  
4.297683923e-02   2.806398849e-02   5.947669576e-02   6.511093050e-02  
8.212424138e-02   1.119746749e-01   7.390570174e-02   7.486366012e-02  
8.819480949e-02   1.010257595e-01   3.646916036e-02   4.806309468e-02  
4.126469000e-02   9.089030024e-02   4.546735814e-02   2.806398805e-02  
5.947669371e-02   4.297683056e-02   8.212424560e-02   6.511087945e-02  
7.390542406e-02   1.119746614e-01   7.320387172e-02   5.291346296e-02  
7.320387172e-02   5.291346296e-02   5.510278568e-02   6.843946533e-02  
5.510278569e-02   4.841953386e-02   2.797201395e-02   4.841953386e-02  


CENTERS:
2.0638930196e-01 -4.5979917268e-01  2.3358298566e-01 -2.2695493911e-01  
1.9300207166e-01 -2.8343027871e-02  1.0703646256e-01 -3.3891838707e-01  
1.0811808459e-01 -1.1691263868e-01  4.1950026786e-11 -4.3319698983e-01  
-4.0746295227e-11 -2.2594196660e-01  -0.0000000000e+00 0.0000000000e+00  
-1.0703646253e-01 -3.3891838718e-01  -1.0811808466e-01 -1.1691263864e-01  
-2.0638930164e-01 -4.5979917289e-01  -2.3358298587e-01 -2.2695493925e-01  
-1.9300207145e-01 -2.8343027928e-02  1.3706727833e-01 8.0550567714e-02  
7.7164040986e-02 1.2638577983e-01  1.8519130673e-11 1.7448311690e-01  
-7.7164040864e-02 1.2638577978e-01  -1.3706727810e-01 8.0550567611e-02  
-2.0999841014e-01 7.9353378215e-02  2.0999841051e-01 7.9353378446e-02  
-2.2054201369e-01 3.0806245690e-01  2.2054201383e-01 3.0806245714e-01  
4.3237954883e-11 2.5974438856e-01  7.0122352369e-11 3.0770649855e-01  
4.9540843650e-11 3.5547696190e-01  2.7755575616e-17 4.3938432789e-01  
8.1589439786e-02 5.5203321140e-01  -8.1589439894e-02 5.5203321132e-01  
2.7086156629e-01 6.2425303955e-01  4.3353876614e-01 4.9700047034e-01  
4.8721086363e-01 3.5016398367e-01  -2.7086156647e-01 6.2425303927e-01  
-4.3353876619e-01 4.9700046990e-01  -4.8721086353e-01 3.5016398317e-01  
4.7003545037e-01 2.1241132767e-01  3.9018174154e-01 1.2128880269e-01  
2.9605823498e-01 6.2258687728e-02  -4.7003545013e-01 2.1241132719e-01  
-3.9018174121e-01 1.2128880228e-01  -2.9605823459e-01 6.2258687420e-02  
-3.4343673814e-01 -6.1833788226e-02  -4.4225489317e-01 -1.9153743925e-01  
-4.0122456720e-01 -3.7625597226e-01  -4.5462584627e-01 -6.7488798948e-02  
-5.3547757686e-01 -9.2160641254e-02  -5.7056299142e-01 -1.7430969735e-01  
-5.7987231831e-01 -3.0613639688e-01  -6.2750083054e-01 -1.0888391726e-01  
-6.5254029408e-01 -1.9370963741e-01  -5.9397322560e-01 -4.3441118751e-02  
-6.7726097107e-01 -1.6487030829e-02  -7.3675386665e-01 -1.2595242259e-01  
-7.4961044405e-01 -2.7262520213e-01  -8.4609734171e-01 1.3343363784e-02  
-8.6819422136e-01 -1.7121893551e-01  3.4343673842e-01 -6.1833788208e-02  
4.4225489193e-01 -1.9153743907e-01  4.0122456763e-01 -3.7625597149e-01  
4.5462584651e-01 -6.7488799976e-02  5.3547757664e-01 -9.2160643467e-02  
5.7056298578e-01 -1.7430969802e-01  5.7987231836e-01 -3.0613639400e-01  
6.2750081993e-01 -1.0888392930e-01  5.9397323340e-01 -4.3441131308e-02  
6.7726098400e-01 -1.6487067402e-02  6.5254027709e-01 -1.9370963347e-01  
7.4961044320e-01 -2.7262517128e-01  7.3675379424e-01 -1.2595244506e-01  
8.6819383142e-01 -1.7121887046e-01  8.4609736399e-01 1.3343184913e-02  
-7.3203871554e-02 -5.8699963624e-01  -1.9401115709e-01 -6.2320988160e-01  
7.3203871945e-02 -5.8699963615e-01  1.9401115752e-01 -6.2320988140e-01  
-1.2350021381e-01 -7.0503724165e-01  3.0015656627e-10 -7.0825980317e-01  
1.2350021437e-01 -7.0503724149e-01  -7.6007685055e-02 -7.9702273157e-01  
3.4080704925e-10 -8.0467128244e-01  7.6007685729e-02 -7.9702273148e-01  


END
    </circlepacking>
  </CPdata>
</CP_Scriptfile>

