#include "colors.inc"
#include "textures.inc"
#include "SPLINE.MCR"

#declare MyPath = create_spline (
array[209]{
<-30, -4.358397518, 48.6235996>, 
<-29.6, -4.418602851, 48.59295194>, 
<-29.2, -4.480681482, 48.56143266>, 
<-28.8, -4.544732709, 48.52902442>, 
<-28.4, -4.610863272, 48.49571184>, 
<-28, -4.679187977, 48.46148215>, 
<-27.6, -4.749830489, 48.42632571>, 
<-27.2, -4.822924032, 48.39023692>, 
<-26.8, -4.898612256, 48.35321528>, 
<-26.4, -4.977050109, 48.31526628>, 
<-26, -5.058404793, 48.27640291>, 
<-25.6, -5.142856671, 48.23664736>, 
<-25.2, -5.230600376, 48.19603291>, 
<-24.8, -5.321845665, 48.15460578>, 
<-24.4, -5.416818507, 48.1124286>, 
<-24, -5.515761887, 48.0695827>, 
<-23.6, -5.618936506, 48.02617221>, 
<-23.2, -5.726621322, 47.98232806>, 
<-22.8, -5.839113663, 47.93821309>, 
<-22.4, -5.956728765, 47.89402704>, 
<-22, -6.079798715, 47.85001339>, 
<-21.6, -6.208670305, 47.8064657>, 
<-21.2, -6.343701779, 47.76373529>, 
<-20.8, -6.48525778, 47.72223922>, 
<-20.4, -6.633702499, 47.68246814>, 
<-20, -6.789390115, 47.64499392>, 
<-19.6, -6.952652728, 47.61047693>, 
<-19.2, -7.123784956, 47.57967073>, 
<-18.8, -7.303025141, 47.55342439>, 
<-18.4, -7.490533446, 47.53268104>, 
<-18, -7.686367388, 47.51847055>, 
<-17.6, -7.890455149, 47.51189573>, 
<-17.2, -8.102569365, 47.51411099>, 
<-16.8, -8.322302514, 47.52629294>, 
<-16.4, -8.549047222, 47.5496028>, 
<-16, -8.781983568, 47.58514323>, 
<-15.6, -9.020076569, 47.63391056>, 
<-15.2, -9.262084669, 47.69674778>, 
<-14.8, -9.506580078, 47.77429957>, 
<-14.4, -9.751979987, 47.86697705>, 
<-14, -9.996585467, 47.9749301>, 
<-13.6, -10.23862628, 48.09803409>, 
<-13.2, -10.4763052, 48.23588738>, 
<-12.8, -10.70784248, 48.38782147>, 
<-12.4, -10.93151088, 48.55291512>, 
<-12, -11.1456689, 48.73002364>, 
<-11.6, -11.34877223, 48.91778768>, 
<-11.2, -11.53943048, 49.11471493>, 
<-10.8, -11.71633986, 49.31911029>, 
<-10.4, -11.87834765, 49.52916711>, 
<-10, -12.02443464, 49.74297559>, 
<-9.6, -12.1537013, 49.95851213>, 
<-9.2, -12.26536984, 50.17366174>, 
<-8.8, -12.35877682, 50.38621798>, 
<-8.4, -12.43336761, 50.5938803>, 
<-8, -12.48869456, 50.7942527>, 
<-7.6, -12.52441596, 50.98483627>, 
<-7.2, -12.5403, 51.16302448>, 
<-6.8, -12.53623157, 51.32609305>, 
<-6.4, -12.51222549, 51.47119607>, 
<-6, -12.46844492, 51.59536047>, 
<-5.6, -12.40522771, 51.6954887>, 
<-5.2, -12.32312067, 51.76836772>, 
<-4.8, -12.22292299, 51.81069099>, 
<-4.4, -12.10573911, 51.81909785>, 
<-4, -11.97303916, 51.79021771>, 
<-3.6, -11.82672543, 51.72085589>, 
<-3.2, -11.669191, 51.6079471>, 
<-2.8, -11.50336664, 51.4489027>, 
<-2.4, -11.33272436, 51.24173798>, 
<-2, -11.16121666, 50.98531434>, 
<-1.6, -10.99312199, 50.67954343>, 
<-1.2, -10.83278178, 50.32550584>, 
<-0.8, -10.68424384, 49.9254174>, 
<-0.4, -10.55086815, 49.48239112>, 
<0.01, -10.43232307, 48.98746679>, 
<0.41, -10.33549286, 48.46831914>, 
<0.81, -10.25707282, 47.9161035>, 
<1.21, -10.19577773, 47.33236627>, 
<1.61, -10.14947249, 46.71707602>, 
<2.01, -10.11543363, 46.06834151>, 
<2.41, -10.09055969, 45.38212968>, 
<2.81, -10.07149392, 44.65184391>, 
<3.21, -10.05464125, 43.86756291>, 
<3.61, -10.03605923, 43.01459653>, 
<4.01, -10.01116767, 42.0706426>, 
<4.41, -9.974112593, 40.99976593>, 
<4.81, -9.916261886, 39.73787084>, 
<5.21, -9.821759091, 38.14878242>, 
<5.61, -9.646474048, 35.81334251>, 
<5.75, -8.781955745, 26.99991655>, 
<5.35, -8.229623177, 22.38654335>, 
<4.95, -7.752013454, 18.99206541>, 
<4.55, -7.271535865, 16.06625254>, 
<4.15, -6.769492311, 13.44237009>, 
<3.75, -6.238825051, 11.06210548>, 
<3.35, -5.677007224, 8.904611119>, 
<2.95, -5.083895851, 6.965361565>, 
<2.55, -4.460848132, 5.247654683>, 
<2.15, -3.810274009, 3.75848779>, 
<1.75, -3.135368962, 2.506272751>, 
<1.35, -2.439930404, 1.499437753>, 
<0.95, -1.728216173, 0.7455191169>, 
<0.55, -1.00482527, 0.2505505684>, 
<0.15, -0.2745907655, 0.01865934674>, 
<-0.26, 0.4758042516, 0.05604968678>, 
<-0.66, 1.204648012, 0.3605784274>, 
<-1.06, 1.925301587, 0.9272562386>, 
<-1.46, 2.632986048, 1.751400824>, 
<-1.86, 3.32318515, 2.826517546>, 
<-2.26, 3.991755083, 4.144753614>, 
<-2.66, 4.635048545, 5.697578256>, 
<-3.06, 5.250065282, 7.476802414>, 
<-3.46, 5.834653044, 9.476164079>, 
<-3.86, 6.387810985, 11.69398915>, 
<-4.26, 6.910219677, 14.13814545>, 
<-4.66, 7.405343198, 16.83672697>, 
<-5.06, 7.882301716, 19.86646736>, 
<-5.46, 8.366651006, 23.46060488>, 
<-5.86, 9.027079219, 29.28342313>, 
<-5.51, 9.703677686, 36.52419632>, 
<-5.11, 9.850279863, 38.59008061>, 
<-4.71, 9.933338209, 40.07667546>, 
<-4.31, 9.984917575, 41.28217648>, 
<-3.91, 10.01827113, 42.31680459>, 
<-3.51, 10.04110221, 43.23532702>, 
<-3.11, 10.05885469, 44.06939735>, 
<-2.71, 10.07590785, 44.83902272>, 
<-2.31, 10.09609872, 45.55750759>, 
<-1.91, 10.12295803, 46.23384134>, 
<-1.51, 10.15978463, 46.87392591>, 
<-1.11, 10.20960083, 47.48122767>, 
<-0.71, 10.27500555, 48.05714841>, 
<-0.31, 10.35794673, 48.60129645>, 
<0.1, 10.46223333, 49.12409119>, 
<0.5, 10.58264308, 49.59698049>, 
<0.9, 10.72007277, 50.02959844>, 
<1.3, 10.87190975, 50.41843699>, 
<1.7, 11.03458624, 50.7605737>, 
<2.1, 11.20394422, 51.05406266>, 
<2.5, 11.37562759, 51.29811924>, 
<2.9, 11.54541901, 51.4931104>, 
<3.3, 11.7094756, 51.64040773>, 
<3.7, 11.86445831, 51.74216713>, 
<4.1, 12.00757285, 51.80112274>, 
<4.5, 12.13655401, 51.82036033>, 
<4.9, 12.24961378, 51.80315817>, 
<5.3, 12.34537942, 51.75288205>, 
<5.7, 12.42282824, 51.67288381>, 
<6.1, 12.48122871, 51.56644967>, 
<6.5, 12.52009001, 51.43676508>, 
<6.9, 12.5391208, 51.28689698>, 
<7.3, 12.53819714, 51.11978639>, 
<7.7, 12.51733822, 50.93824862>, 
<8.1, 12.47668935, 50.74497791>, 
<8.5, 12.41651024, 50.542553>, 
<8.9, 12.33716937, 50.33344651>, 
<9.3, 12.2391407, 50.12002964>, 
<9.7, 12.12300594, 49.90457974>, 
<10.1, 11.98945662, 49.68928043>, 
<10.5, 11.83930123, 49.47622604>, 
<10.9, 11.67346738, 49.26740949>, 
<11.3, 11.49298583, 49.06467981>, 
<11.7, 11.2991156, 48.86993184>, 
<12.1, 11.09310721, 48.68469108>, 
<12.5, 10.87642285, 48.51046678>, 
<12.9, 10.65062964, 48.34856401>, 
<13.3, 10.41739253, 48.2000736>, 
<13.7, 10.17845473, 48.06585496>, 
<14.1, 9.93560458, 47.94651176>, 
<14.5, 9.690636568, 47.84237686>, 
<14.9, 9.445307316, 47.75350537>, 
<15.3, 9.201290718, 47.67968037>, 
<15.7, 8.960134401, 47.62042964>, 
<16.1, 8.723221983, 47.57505474>, 
<16.5, 8.491744867, 47.54267039>, 
<16.9, 8.266684611, 47.5222489>, 
<17.3, 8.048807351, 47.51266885>, 
<17.7, 7.838668941, 47.51276109>, 
<18.1, 7.636629851, 47.52135147>, 
<18.5, 7.442876077, 47.53729605>, 
<18.9, 7.25744464, 47.55950849>, 
<19.3, 7.080249943, 47.58697957>, 
<19.7, 6.911110022, 47.61878928>, 
<20.1, 6.749770519, 47.6541126>, 
<20.5, 6.595925872, 47.69221935>, 
<20.9, 6.44923711, 47.73247206>, 
<21.3, 6.309346526, 47.77431967>, 
<21.7, 6.175889062, 47.81729077>, 
<22.1, 6.048501094, 47.86098545>, 
<22.5, 5.92682686, 47.90506769>, 
<22.9, 5.810522955, 47.94925696>, 
<23.3, 5.699261345, 47.99332142>, 
<23.7, 5.592731237, 48.0370711>, 
<24.1, 5.490639853, 48.08035159>, 
<24.5, 5.392712846, 48.12303913>, 
<24.9, 5.298693998, 48.16503566>, 
<25.3, 5.208344638, 48.20626471>, 
<25.7, 5.121442954, 48.24666832>, 
<26.1, 5.037783027, 48.28620343>, 
<26.5, 4.957173947, 48.32483984>, 
<26.9, 4.879438681, 48.36255793>, 
<27.3, 4.804413194, 48.39934666>, 
<27.7, 4.73194546, 48.43520207>, 
<28.1, 4.661894502, 48.47012613>, 
<28.5, 4.594129566, 48.50412552>, 
<28.9, 4.528529277, 48.53721069>, 
<29.3, 4.464980903, 48.56939517>, 
<29.7, 4.403379623, 48.60069484>

}
create_default_spline + spline_loop (no)+ spline_radius (0.01))

camera {right x*4/3 up z
   location <0.09, 0.09, 0.09> look_at z
   animate_by_spline (MyPath, auto_banking (1/2))}


//#declare Cam1 =camera {
//location<-90*cos(clock*2*3.14159)+30,0,50+90*sin(clock*2*3.14159)>
//look_at <0,0,50>
//}
//camera{Cam1}


   light_source{<0,0,10> color rgb <1,1,1>}
   light_source{<sqrt(8*49/3),sqrt(8*49/3),100> color White}
   light_source{<sqrt(8*49/3),sqrt(8*49/3),1000> color Green}
   light_source{<sqrt(8*49/3),sqrt(8*49/3),-100> color White}
   light_source{<-sqrt(8*49/3),-sqrt(8*49/3),100> color White}
   light_source{<-sqrt(8*49/3),-sqrt(8*49/3),-100> color White}
   light_source{<-sqrt(8*49/3),-sqrt(8*49/3),-1000> color Red}

   background {color rgb <0,0,0>}

#macro Sp(x0,y0,z0,r0)
    sphere {<x0,y0,z0>   , r0
               pigment {Gold}}
//               finish { reflection .5 phong .7 }} 
#end

#macro Spp(x0,y0,z0,r0)
    sphere {<x0,y0,z0>   , 0.01
             pigment{Yellow} }
//             finish { reflection .6 phong .7 }}
#end

#macro Sppp(x0,y0,z0,r0)
    sphere {<x0,y0,z0>   , r0
           texture{Glass}
            interior{ior 1.5}
             pigment{Red transmit 0.5} 
          finish { reflection .6 phong .7 }}
#end

Sppp(0,0,0,0.7)
Sppp(sqrt(8*49/3),sqrt(8*49/3),49,0.7)
Sppp(-sqrt(8*49/3),-sqrt(8*49/3),49,0.7)

preview_spline (MyPath, default_options)Sp(12.7057,2.02088,59.5291,0.1)
Sp(12.5988,1.89779,59.396,0.1)
Sp(12.4918,1.77751,59.2615,0.1)
Sp(12.3847,1.66004,59.1257,0.1)
Sp(12.2774,1.54536,58.9886,0.1)
Sp(12.1701,1.43346,58.8503,0.1)
Sp(12.0628,1.32432,58.7108,0.1)
Sp(11.9554,1.21792,58.5702,0.1)
Sp(11.848,1.11424,58.4286,0.1)
Sp(11.7407,1.01326,58.286,0.1)
Sp(11.6334,0.914968,58.1424,0.1)
Sp(11.5262,0.819329,57.998,0.1)
Sp(11.4191,0.726323,57.8528,0.1)
Sp(11.3122,0.635924,57.7068,0.1)
Sp(11.2054,0.548107,57.5601,0.1)
Sp(11.0989,0.462844,57.4128,0.1)
Sp(10.9925,0.380108,57.2648,0.1)
Sp(10.8864,0.299869,57.1163,0.1)
Sp(10.7805,0.222099,56.9672,0.1)
Sp(10.6749,0.146766,56.8177,0.1)
Sp(10.5697,0.0738406,56.6678,0.1)
Sp(10.4647,0.0032906,56.5174,0.1)
Sp(10.3601,-0.0649158,56.3668,0.1)
Sp(10.2558,-0.130811,56.2158,0.1)
Sp(10.152,-0.194428,56.0645,0.1)
Sp(10.0485,-0.255801,55.9131,0.1)
Sp(9.94546,-0.314962,55.7614,0.1)
Sp(9.84286,-0.371947,55.6096,0.1)
Sp(9.74071,-0.426789,55.4576,0.1)
Sp(9.63903,-0.479523,55.3056,0.1)
Sp(9.53785,-0.530184,55.1535,0.1)
Sp(9.43717,-0.578807,55.0013,0.1)
Sp(9.33701,-0.625426,54.8492,0.1)
Sp(9.23738,-0.670078,54.6971,0.1)
Sp(9.13831,-0.712796,54.545,0.1)