<?xml version="1.0"?>
<CP_Scriptfile date="Jan 5, 2010">
<CPscript title="Owl Play" level="min" >
<description>This script shows a few elementary manipulations of an 'Owl' circle packing. You can just click through the script and watch, or you can apply the various manipulations I have attached to icons. For instance, with 'b', the 'boundary' circles of the packing will be displayed in red; press 'u' while the cursor is on a boundary circle and its radius will go up; and so forth. Open the Script if you want more information.</description>
<text> The 'Owl' packing is a simple circle packing (just 80 circles) which is convenient for illustrations --- in particular, the 'eyes', colored blue, provide a reference the observe can follow in various manipulations. Here will will work first in euclidean geometry, then hyperbolic geometry (in the unit disc), and finally in spherical geometry. </text>
<Section title="Euclidean Owl">
<cmd name="*" mnemonic="*" tooltip="Start over with a fresh 'owl'" iconname="apollon.png">act 0;cleanse;cleanse -p1;cleanse -p2;infile_read Owl.p;color -c 20 21 22;color -c 180 b;set_disp_text -w -c -cf 21 22;disp -w -c -cf 21 22; </cmd>
<text> In each geometry, the icons 'b', 'k', and 'f' will display, respectively, the boundary circles (in red), the 'complex' K of edges that specify the tangencies that must be maintained, and 'carrier' (triangulation) of faces formed by triples of circles. </text>
<cmd name="b" mnemonic="b" tooltip="Make boundary circles red" iconname="metacontact_online.png">disp -cf b; </cmd>
<cmd name="k" mnemonic="k" tooltip="Show the underlying 'complex' of edges and faces" iconname="userconfig.png">disp -f; </cmd>
<cmd name="f" mnemonic="f" iconname="debugger.png">disp -ff; </cmd>
<text> In euclidean and hyperbolic geometry, you can place the cursor on a boundary circle and press 'u' (up) or 'd' (down) to adjust its radius. A computation --- discussed in the Chapter --- adjusts the packing to incorporate this new boundary data. You might try, for example, to find the boundary circle(s) whose adjustments have the greatest impact on the overall packing. </text>
<cmd inline="no" name="u" mnemonic="u" tooltip="With cursor on a boundary circle, this will increase its radius" iconname="editdelete.png">set_vlist z #XY;adjust_rad 1.25 vlist;repack;layout;disp -wr; </cmd>
<cmd inline="no" name="d" mnemonic="d" tooltip="With cursor on a boundary circle, this will decrease its radius" iconname="network.png">set_vlist z #XY;adjust_rad .75 vlist;repack;layout;disp -wr; </cmd>
</Section>
<Section title="Hyperbolic Owl">
<text> The next command moves the owl to hyperbolic geometry. The command 'i' increments all boundary radii at once. It is interesting to compare the effect this has in the hyperbolic setting as compared to the euclidean setting. </text>
<cmd tooltip="Move to 'hyperbolic' geometry" iconname="icq_dnd.png">act 1;infile_read Owl.p;geom_to_h;color -c 20 21 22;color -c 180 b;set_disp_text -w -c -cf 21 22;disp -w -c -cf 21 22; </cmd>
<cmd iconname="run.png">[b];[k]; </cmd>
<cmd name="i" mnemonic="i" tooltip="Increment all the boundary radii" iconname="run.png">adjust_rad 1.25 b;repack;layout;disp -wr; </cmd>
</Section>
<Section title="Spherical Owl">
<text> Finally, we move the owl to the sphere. You can rotate the sphere with the mouse to see other views. </text>
<cmd name="s" mnemonic="s" tooltip="project to the sphere" iconname="network.png">copy 2;act 2;geom_to_s;set_disp_text -w -c -cf 21 22 b;disp -w -c -cf 21 22 b; </cmd>
<text> A final note: Invoking the 'Advanced' menu item, you see that we have a separate copy of the owl for each of the three geometries. You can choose (by double clicking) which of the packings to bring into the main window, where the display options we discussed can be applied. </text>
<cmd iconname="list.png">[b];[k]; </cmd>
</Section>
  </CPscript>
<CPdata>
    <circlepacking name="Owl.p">
NODECOUNT:  80
GEOMETRY: euclidean
ALPHA/BETA/GAMMA:  8 80 26
PACKNAME: Empty
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:
8.877231134e-02   9.876914391e-02   6.340311383e-02   3.640443023e-02
3.473920616e-02   7.770501683e-02   8.809900175e-02   9.265457151e-02
3.640443025e-02   3.473920618e-02   8.877231132e-02   9.876914407e-02
6.340311385e-02   3.453242824e-02   2.580934240e-02   4.693192201e-02
2.580934240e-02   3.453242824e-02   2.382033777e-02   2.382033777e-02
1.593412481e-01   1.593412481e-01   2.127709522e-02   1.709259267e-02
2.112377801e-02   4.600211479e-02   6.527155188e-02   6.527155188e-02
9.679439316e-02   6.843434573e-02   5.663625288e-02   9.679439316e-02
6.843434573e-02   5.663625288e-02   5.441916119e-02   4.250944552e-02
4.637263892e-02   5.441916119e-02   4.250944552e-02   4.637263892e-02
5.989092809e-02   7.055584843e-02   8.082060753e-02   2.917532829e-02
3.845047574e-02   3.301175474e-02   7.271223994e-02   3.637389322e-02
3.438147138e-02   2.245119079e-02   4.758135661e-02   5.208874440e-02
6.569939310e-02   8.957973989e-02   5.912456139e-02   5.989092809e-02
7.055584759e-02   8.082060758e-02   2.917532829e-02   3.845047575e-02
3.301175200e-02   7.271224019e-02   3.637388651e-02   2.245119044e-02
4.758135497e-02   3.438146444e-02   6.569939648e-02   5.208870356e-02
5.912433924e-02   8.957972909e-02   5.856309738e-02   4.233077036e-02
5.856309738e-02   4.233077037e-02   4.408222855e-02   5.475157227e-02
4.408222855e-02   3.873562709e-02   2.237761116e-02   3.873562709e-02


CENTERS:
-1.6511144154e-01 -3.6783933804e-01  -1.8686638854e-01 -1.8156395127e-01
-1.5440165713e-01 -2.2674422361e-02  -8.5629170111e-02 -2.7113470962e-01
-8.6494467712e-02 -9.3530110904e-02  -1.6490014892e-10 -3.4655759185e-01
-3.8195112163e-11 -1.8075357326e-01  -0.0000000000e+00 0.0000000000e+00
8.5629169914e-02 -2.7113470975e-01  8.6494467694e-02 -9.3530110941e-02
1.6511144116e-01 -3.6783933832e-01  1.8686638862e-01 -1.8156395146e-01
1.5440165715e-01 -2.2674422381e-02  -1.0965382248e-01 6.4440454063e-02
-6.1731232702e-02 1.0110862381e-01  -4.8907363101e-13 1.3958649352e-01
6.1731232703e-02 1.0110862381e-01  1.0965382249e-01 6.4440454062e-02
1.6799872812e-01 6.3482702533e-02  -1.6799872811e-01 6.3482702531e-02
1.7643361099e-01 2.4644996545e-01  -1.7643361099e-01 2.4644996545e-01
-8.8133454533e-13 2.0779551075e-01  -5.8042818121e-13 2.4616519865e-01
6.2430178637e-13 2.8438156933e-01  0.0000000000e+00 3.5150746213e-01
-6.5271551878e-02 4.4162656891e-01  6.5271551876e-02 4.4162656891e-01
-2.1668925315e-01 4.9940243136e-01  -3.4683101295e-01 3.9760037584e-01
-3.8976869083e-01 2.8013118646e-01  2.1668925314e-01 4.9940243136e-01
3.4683101294e-01 3.9760037584e-01  3.8976869083e-01 2.8013118647e-01
-3.7602836011e-01 1.6992906168e-01  -3.1214539298e-01 9.7031041754e-02
-2.3684658766e-01 4.9806949874e-02  3.7602836011e-01 1.6992906169e-01
3.1214539298e-01 9.7031041767e-02  2.3684658768e-01 4.9806949884e-02
2.7474939048e-01 -4.9467030662e-02  3.5380391446e-01 -1.5322995151e-01
3.2097965364e-01 -3.0100477793e-01  3.6370067699e-01 -5.3991039285e-02
4.2838206145e-01 -7.3728513160e-02  4.5645039307e-01 -1.3944775803e-01
4.6389785455e-01 -2.4490911764e-01  5.0200066437e-01 -8.7107133973e-02
5.2203223519e-01 -1.5496771009e-01  4.7517858043e-01 -3.4752895156e-02
5.4180877680e-01 -1.3189624827e-02  5.8940309326e-01 -1.0076193824e-01
5.9968835515e-01 -2.1810016188e-01  6.7687787332e-01 1.0674690819e-02
6.9455537702e-01 -1.3697514861e-01  -2.7474939044e-01 -4.9467030684e-02
-3.5380391337e-01 -1.5322995129e-01  -3.2097965390e-01 -3.0100477720e-01
-3.6370067692e-01 -5.3991040001e-02  -4.2838206111e-01 -7.3728514769e-02
-4.5645038846e-01 -1.3944775849e-01  -4.6389785448e-01 -2.4490911527e-01
-5.0200065578e-01 -8.7107143486e-02  -4.7517858654e-01 -3.4752905068e-02
-5.4180878704e-01 -1.3189653969e-02  -5.2203222150e-01 -1.5496770687e-01
-5.9968835436e-01 -2.1810013715e-01  -5.8940303523e-01 -1.0076195614e-01
-6.9455506495e-01 -1.3697509650e-01  -6.7687789104e-01 1.0674547804e-02
5.8563097111e-02 -4.6959970898e-01  1.5520892554e-01 -4.9856790525e-01
-5.8563097644e-02 -4.6959970889e-01  -1.5520892612e-01 -4.9856790501e-01
9.8800170940e-02 -5.6402979329e-01  -3.3968933991e-10 -5.6660784252e-01
-9.8800171619e-02 -5.6402979314e-01  6.0806147952e-02 -6.3761818523e-01
-3.9463330230e-10 -6.4373702594e-01  -6.0806148736e-02 -6.3761818515e-01


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

