Skip to content

Instantly share code, notes, and snippets.

@stla

stla/runcitrunc24cell.md

Created August 23, 2018 07:08
Show Gist options
  • Save stla/5376341da07813aa423055ce515c0496 to your computer and use it in GitHub Desktop.
Save stla/5376341da07813aa423055ce515c0496 to your computer and use it in GitHub Desktop.
Download ZIP
Runcitruncated 24-cell with POV-Ray
Raw
runcitrunc24cell.pov
#version 3.7;
global_settings { assumed_gamma 1 }
#default { finish { ambient 0.1 diffuse 0.9 phong 1 } }
#include "colors.inc"
#include "textures.inc"
// camera ----------------------------------------------------------------------
camera {
location <0, 0,-10>
look_at 0
angle 45
}
// light sources ---------------------------------------------------------------
light_source { <100,6000,-15000> color rgb<1,1,1>*0.9 }
light_source { <-11, 7,-32> color rgb<0.9,0.9,1>*0.1 shadowless }
// sky -------------------------------------------------------------------------
plane {
<0,1,0>, 1 hollow
texture {
pigment {
bozo turbulence 1.3
color_map { [0.00 rgb <0.24, 0.32, 1.0>*0.6]
[0.75 rgb <0.24, 0.32, 1.0>*0.6]
[0.83 rgb <1,1,1>]
[0.95 rgb <0.25,0.25,0.25>]
[1.0 rgb <0.5,0.5,0.5>] }
scale <1,1,1>*2.5 translate <0,0,3>
}
finish {ambient 1 diffuse 0}
}
scale 10000
}
// fog on the ground -----------------------------------------------------------
fog {
fog_type 2
distance 50
color Gray90
fog_offset 0.1
fog_alt 1.5
turbulence 1.8
}
// ground ----------------------------------------------------------------------
plane {
<0,1,0>, -4
texture {
pigment{ checker White Brown scale 4}
finish { phong 0.1}
}
}
// sun ---------------------------------------------------------------------
light_source{
<-1000, 800, 3000>
color White
looks_like{
sphere {
0, 100
pigment { rgbt 1 }
hollow
interior {
media {
emission 1
density {
spherical density_map {
[0 rgb 0]
[60 Orange]
[80 Red]
[100 Yellow]
}
scale 100
}
}
}
}
}
}
// vertices --------------------------------------------------------------------
#declare a = sqrt(2);
#declare nvertices = 576;
#declare vertices = array[nvertices]
{<0, -a, -2*a, -(2+3*a)>,
<0, a, -2*a, -(2+3*a)>,
<0, -a, 2*a, -(2+3*a)>,
<0, a, 2*a, -(2+3*a)>,
<0, -a, -2*a, (2+3*a)>,
<0, a, -2*a, (2+3*a)>,
<0, -a, 2*a, (2+3*a)>,
<0, a, 2*a, (2+3*a)>,
<0, -a, -(2+3*a), -2*a>,
<0, a, -(2+3*a), -2*a>,
<0, -a, (2+3*a), -2*a>,
<0, a, (2+3*a), -2*a>,
<0, -a, -(2+3*a), 2*a>,
<0, a, -(2+3*a), 2*a>,
<0, -a, (2+3*a), 2*a>,
<0, a, (2+3*a), 2*a>,
<0, -2*a, -a, -(2+3*a)>,
<0, 2*a, -a, -(2+3*a)>,
<0, -2*a, a, -(2+3*a)>,
<0, 2*a, a, -(2+3*a)>,
<0, -2*a, -a, (2+3*a)>,
<0, 2*a, -a, (2+3*a)>,
<0, -2*a, a, (2+3*a)>,
<0, 2*a, a, (2+3*a)>,
<0, -2*a, -(2+3*a), -a>,
<0, 2*a, -(2+3*a), -a>,
<0, -2*a, (2+3*a), -a>,
<0, 2*a, (2+3*a), -a>,
<0, -2*a, -(2+3*a), a>,
<0, 2*a, -(2+3*a), a>,
<0, -2*a, (2+3*a), a>,
<0, 2*a, (2+3*a), a>,
<0, -(2+3*a), -a, -2*a>,
<0, (2+3*a), -a, -2*a>,
<0, -(2+3*a), a, -2*a>,
<0, (2+3*a), a, -2*a>,
<0, -(2+3*a), -a, 2*a>,
<0, (2+3*a), -a, 2*a>,
<0, -(2+3*a), a, 2*a>,
<0, (2+3*a), a, 2*a>,
<0, -(2+3*a), -2*a, -a>,
<0, (2+3*a), -2*a, -a>,
<0, -(2+3*a), 2*a, -a>,
<0, (2+3*a), 2*a, -a>,
<0, -(2+3*a), -2*a, a>,
<0, (2+3*a), -2*a, a>,
<0, -(2+3*a), 2*a, a>,
<0, (2+3*a), 2*a, a>,
<-a, 0, -2*a, -(2+3*a)>,
<a, 0, -2*a, -(2+3*a)>,
<-a, 0, 2*a, -(2+3*a)>,
<a, 0, 2*a, -(2+3*a)>,
<-a, 0, -2*a, (2+3*a)>,
<a, 0, -2*a, (2+3*a)>,
<-a, 0, 2*a, (2+3*a)>,
<a, 0, 2*a, (2+3*a)>,
<-a, 0, -(2+3*a), -2*a>,
<a, 0, -(2+3*a), -2*a>,
<-a, 0, (2+3*a), -2*a>,
<a, 0, (2+3*a), -2*a>,
<-a, 0, -(2+3*a), 2*a>,
<a, 0, -(2+3*a), 2*a>,
<-a, 0, (2+3*a), 2*a>,
<a, 0, (2+3*a), 2*a>,
<-a, -2*a, 0, -(2+3*a)>,
<a, -2*a, 0, -(2+3*a)>,
<-a, 2*a, 0, -(2+3*a)>,
<a, 2*a, 0, -(2+3*a)>,
<-a, -2*a, 0, (2+3*a)>,
<a, -2*a, 0, (2+3*a)>,
<-a, 2*a, 0, (2+3*a)>,
<a, 2*a, 0, (2+3*a)>,
<-a, -2*a, -(2+3*a), 0>,
<a, -2*a, -(2+3*a), 0>,
<-a, 2*a, -(2+3*a), 0>,
<a, 2*a, -(2+3*a), 0>,
<-a, -2*a, (2+3*a), 0>,
<a, -2*a, (2+3*a), 0>,
<-a, 2*a, (2+3*a), 0>,
<a, 2*a, (2+3*a), 0>,
<-a, -(2+3*a), 0, -2*a>,
<a, -(2+3*a), 0, -2*a>,
<-a, (2+3*a), 0, -2*a>,
<a, (2+3*a), 0, -2*a>,
<-a, -(2+3*a), 0, 2*a>,
<a, -(2+3*a), 0, 2*a>,
<-a, (2+3*a), 0, 2*a>,
<a, (2+3*a), 0, 2*a>,
<-a, -(2+3*a), -2*a, 0>,
<a, -(2+3*a), -2*a, 0>,
<-a, (2+3*a), -2*a, 0>,
<a, (2+3*a), -2*a, 0>,
<-a, -(2+3*a), 2*a, 0>,
<a, -(2+3*a), 2*a, 0>,
<-a, (2+3*a), 2*a, 0>,
<a, (2+3*a), 2*a, 0>,
<-2*a, 0, -a, -(2+3*a)>,
<2*a, 0, -a, -(2+3*a)>,
<-2*a, 0, a, -(2+3*a)>,
<2*a, 0, a, -(2+3*a)>,
<-2*a, 0, -a, (2+3*a)>,
<2*a, 0, -a, (2+3*a)>,
<-2*a, 0, a, (2+3*a)>,
<2*a, 0, a, (2+3*a)>,
<-2*a, 0, -(2+3*a), -a>,
<2*a, 0, -(2+3*a), -a>,
<-2*a, 0, (2+3*a), -a>,
<2*a, 0, (2+3*a), -a>,
<-2*a, 0, -(2+3*a), a>,
<2*a, 0, -(2+3*a), a>,
<-2*a, 0, (2+3*a), a>,
<2*a, 0, (2+3*a), a>,
<-2*a, -a, 0, -(2+3*a)>,
<2*a, -a, 0, -(2+3*a)>,
<-2*a, a, 0, -(2+3*a)>,
<2*a, a, 0, -(2+3*a)>,
<-2*a, -a, 0, (2+3*a)>,
<2*a, -a, 0, (2+3*a)>,
<-2*a, a, 0, (2+3*a)>,
<2*a, a, 0, (2+3*a)>,
<-2*a, -a, -(2+3*a), 0>,
<2*a, -a, -(2+3*a), 0>,
<-2*a, a, -(2+3*a), 0>,
<2*a, a, -(2+3*a), 0>,
<-2*a, -a, (2+3*a), 0>,
<2*a, -a, (2+3*a), 0>,
<-2*a, a, (2+3*a), 0>,
<2*a, a, (2+3*a), 0>,
<-2*a, -(2+3*a), 0, -a>,
<2*a, -(2+3*a), 0, -a>,
<-2*a, (2+3*a), 0, -a>,
<2*a, (2+3*a), 0, -a>,
<-2*a, -(2+3*a), 0, a>,
<2*a, -(2+3*a), 0, a>,
<-2*a, (2+3*a), 0, a>,
<2*a, (2+3*a), 0, a>,
<-2*a, -(2+3*a), -a, 0>,
<2*a, -(2+3*a), -a, 0>,
<-2*a, (2+3*a), -a, 0>,
<2*a, (2+3*a), -a, 0>,
<-2*a, -(2+3*a), a, 0>,
<2*a, -(2+3*a), a, 0>,
<-2*a, (2+3*a), a, 0>,
<2*a, (2+3*a), a, 0>,
<-(2+3*a), 0, -a, -2*a>,
<(2+3*a), 0, -a, -2*a>,
<-(2+3*a), 0, a, -2*a>,
<(2+3*a), 0, a, -2*a>,
<-(2+3*a), 0, -a, 2*a>,
<(2+3*a), 0, -a, 2*a>,
<-(2+3*a), 0, a, 2*a>,
<(2+3*a), 0, a, 2*a>,
<-(2+3*a), 0, -2*a, -a>,
<(2+3*a), 0, -2*a, -a>,
<-(2+3*a), 0, 2*a, -a>,
<(2+3*a), 0, 2*a, -a>,
<-(2+3*a), 0, -2*a, a>,
<(2+3*a), 0, -2*a, a>,
<-(2+3*a), 0, 2*a, a>,
<(2+3*a), 0, 2*a, a>,
<-(2+3*a), -a, 0, -2*a>,
<(2+3*a), -a, 0, -2*a>,
<-(2+3*a), a, 0, -2*a>,
<(2+3*a), a, 0, -2*a>,
<-(2+3*a), -a, 0, 2*a>,
<(2+3*a), -a, 0, 2*a>,
<-(2+3*a), a, 0, 2*a>,
<(2+3*a), a, 0, 2*a>,
<-(2+3*a), -a, -2*a, 0>,
<(2+3*a), -a, -2*a, 0>,
<-(2+3*a), a, -2*a, 0>,
<(2+3*a), a, -2*a, 0>,
<-(2+3*a), -a, 2*a, 0>,
<(2+3*a), -a, 2*a, 0>,
<-(2+3*a), a, 2*a, 0>,
<(2+3*a), a, 2*a, 0>,
<-(2+3*a), -2*a, 0, -a>,
<(2+3*a), -2*a, 0, -a>,
<-(2+3*a), 2*a, 0, -a>,
<(2+3*a), 2*a, 0, -a>,
<-(2+3*a), -2*a, 0, a>,
<(2+3*a), -2*a, 0, a>,
<-(2+3*a), 2*a, 0, a>,
<(2+3*a), 2*a, 0, a>,
<-(2+3*a), -2*a, -a, 0>,
<(2+3*a), -2*a, -a, 0>,
<-(2+3*a), 2*a, -a, 0>,
<(2+3*a), 2*a, -a, 0>,
<-(2+3*a), -2*a, a, 0>,
<(2+3*a), -2*a, a, 0>,
<-(2+3*a), 2*a, a, 0>,
<(2+3*a), 2*a, a, 0>,
<-1, -(1+a), -(1+2*a), -(1+3*a)>,
<1, -(1+a), -(1+2*a), -(1+3*a)>,
<-1, (1+a), -(1+2*a), -(1+3*a)>,
<1, (1+a), -(1+2*a), -(1+3*a)>,
<-1, -(1+a), (1+2*a), -(1+3*a)>,
<1, -(1+a), (1+2*a), -(1+3*a)>,
<-1, (1+a), (1+2*a), -(1+3*a)>,
<1, (1+a), (1+2*a), -(1+3*a)>,
<-1, -(1+a), -(1+2*a), (1+3*a)>,
<1, -(1+a), -(1+2*a), (1+3*a)>,
<-1, (1+a), -(1+2*a), (1+3*a)>,
<1, (1+a), -(1+2*a), (1+3*a)>,
<-1, -(1+a), (1+2*a), (1+3*a)>,
<1, -(1+a), (1+2*a), (1+3*a)>,
<-1, (1+a), (1+2*a), (1+3*a)>,
<1, (1+a), (1+2*a), (1+3*a)>,
<-1, -(1+a), -(1+3*a), -(1+2*a)>,
<1, -(1+a), -(1+3*a), -(1+2*a)>,
<-1, (1+a), -(1+3*a), -(1+2*a)>,
<1, (1+a), -(1+3*a), -(1+2*a)>,
<-1, -(1+a), (1+3*a), -(1+2*a)>,
<1, -(1+a), (1+3*a), -(1+2*a)>,
<-1, (1+a), (1+3*a), -(1+2*a)>,
<1, (1+a), (1+3*a), -(1+2*a)>,
<-1, -(1+a), -(1+3*a), (1+2*a)>,
<1, -(1+a), -(1+3*a), (1+2*a)>,
<-1, (1+a), -(1+3*a), (1+2*a)>,
<1, (1+a), -(1+3*a), (1+2*a)>,
<-1, -(1+a), (1+3*a), (1+2*a)>,
<1, -(1+a), (1+3*a), (1+2*a)>,
<-1, (1+a), (1+3*a), (1+2*a)>,
<1, (1+a), (1+3*a), (1+2*a)>,
<-1, -(1+2*a), -(1+a), -(1+3*a)>,
<1, -(1+2*a), -(1+a), -(1+3*a)>,
<-1, (1+2*a), -(1+a), -(1+3*a)>,
<1, (1+2*a), -(1+a), -(1+3*a)>,
<-1, -(1+2*a), (1+a), -(1+3*a)>,
<1, -(1+2*a), (1+a), -(1+3*a)>,
<-1, (1+2*a), (1+a), -(1+3*a)>,
<1, (1+2*a), (1+a), -(1+3*a)>,
<-1, -(1+2*a), -(1+a), (1+3*a)>,
<1, -(1+2*a), -(1+a), (1+3*a)>,
<-1, (1+2*a), -(1+a), (1+3*a)>,
<1, (1+2*a), -(1+a), (1+3*a)>,
<-1, -(1+2*a), (1+a), (1+3*a)>,
<1, -(1+2*a), (1+a), (1+3*a)>,
<-1, (1+2*a), (1+a), (1+3*a)>,
<1, (1+2*a), (1+a), (1+3*a)>,
<-1, -(1+2*a), -(1+3*a), -(1+a)>,
<1, -(1+2*a), -(1+3*a), -(1+a)>,
<-1, (1+2*a), -(1+3*a), -(1+a)>,
<1, (1+2*a), -(1+3*a), -(1+a)>,
<-1, -(1+2*a), (1+3*a), -(1+a)>,
<1, -(1+2*a), (1+3*a), -(1+a)>,
<-1, (1+2*a), (1+3*a), -(1+a)>,
<1, (1+2*a), (1+3*a), -(1+a)>,
<-1, -(1+2*a), -(1+3*a), (1+a)>,
<1, -(1+2*a), -(1+3*a), (1+a)>,
<-1, (1+2*a), -(1+3*a), (1+a)>,
<1, (1+2*a), -(1+3*a), (1+a)>,
<-1, -(1+2*a), (1+3*a), (1+a)>,
<1, -(1+2*a), (1+3*a), (1+a)>,
<-1, (1+2*a), (1+3*a), (1+a)>,
<1, (1+2*a), (1+3*a), (1+a)>,
<-1, -(1+3*a), -(1+a), -(1+2*a)>,
<1, -(1+3*a), -(1+a), -(1+2*a)>,
<-1, (1+3*a), -(1+a), -(1+2*a)>,
<1, (1+3*a), -(1+a), -(1+2*a)>,
<-1, -(1+3*a), (1+a), -(1+2*a)>,
<1, -(1+3*a), (1+a), -(1+2*a)>,
<-1, (1+3*a), (1+a), -(1+2*a)>,
<1, (1+3*a), (1+a), -(1+2*a)>,
<-1, -(1+3*a), -(1+a), (1+2*a)>,
<1, -(1+3*a), -(1+a), (1+2*a)>,
<-1, (1+3*a), -(1+a), (1+2*a)>,
<1, (1+3*a), -(1+a), (1+2*a)>,
<-1, -(1+3*a), (1+a), (1+2*a)>,
<1, -(1+3*a), (1+a), (1+2*a)>,
<-1, (1+3*a), (1+a), (1+2*a)>,
<1, (1+3*a), (1+a), (1+2*a)>,
<-1, -(1+3*a), -(1+2*a), -(1+a)>,
<1, -(1+3*a), -(1+2*a), -(1+a)>,
<-1, (1+3*a), -(1+2*a), -(1+a)>,
<1, (1+3*a), -(1+2*a), -(1+a)>,
<-1, -(1+3*a), (1+2*a), -(1+a)>,
<1, -(1+3*a), (1+2*a), -(1+a)>,
<-1, (1+3*a), (1+2*a), -(1+a)>,
<1, (1+3*a), (1+2*a), -(1+a)>,
<-1, -(1+3*a), -(1+2*a), (1+a)>,
<1, -(1+3*a), -(1+2*a), (1+a)>,
<-1, (1+3*a), -(1+2*a), (1+a)>,
<1, (1+3*a), -(1+2*a), (1+a)>,
<-1, -(1+3*a), (1+2*a), (1+a)>,
<1, -(1+3*a), (1+2*a), (1+a)>,
<-1, (1+3*a), (1+2*a), (1+a)>,
<1, (1+3*a), (1+2*a), (1+a)>,
<-(1+a), -1, -(1+2*a), -(1+3*a)>,
<(1+a), -1, -(1+2*a), -(1+3*a)>,
<-(1+a), 1, -(1+2*a), -(1+3*a)>,
<(1+a), 1, -(1+2*a), -(1+3*a)>,
<-(1+a), -1, (1+2*a), -(1+3*a)>,
<(1+a), -1, (1+2*a), -(1+3*a)>,
<-(1+a), 1, (1+2*a), -(1+3*a)>,
<(1+a), 1, (1+2*a), -(1+3*a)>,
<-(1+a), -1, -(1+2*a), (1+3*a)>,
<(1+a), -1, -(1+2*a), (1+3*a)>,
<-(1+a), 1, -(1+2*a), (1+3*a)>,
<(1+a), 1, -(1+2*a), (1+3*a)>,
<-(1+a), -1, (1+2*a), (1+3*a)>,
<(1+a), -1, (1+2*a), (1+3*a)>,
<-(1+a), 1, (1+2*a), (1+3*a)>,
<(1+a), 1, (1+2*a), (1+3*a)>,
<-(1+a), -1, -(1+3*a), -(1+2*a)>,
<(1+a), -1, -(1+3*a), -(1+2*a)>,
<-(1+a), 1, -(1+3*a), -(1+2*a)>,
<(1+a), 1, -(1+3*a), -(1+2*a)>,
<-(1+a), -1, (1+3*a), -(1+2*a)>,
<(1+a), -1, (1+3*a), -(1+2*a)>,
<-(1+a), 1, (1+3*a), -(1+2*a)>,
<(1+a), 1, (1+3*a), -(1+2*a)>,
<-(1+a), -1, -(1+3*a), (1+2*a)>,
<(1+a), -1, -(1+3*a), (1+2*a)>,
<-(1+a), 1, -(1+3*a), (1+2*a)>,
<(1+a), 1, -(1+3*a), (1+2*a)>,
<-(1+a), -1, (1+3*a), (1+2*a)>,
<(1+a), -1, (1+3*a), (1+2*a)>,
<-(1+a), 1, (1+3*a), (1+2*a)>,
<(1+a), 1, (1+3*a), (1+2*a)>,
<-(1+a), -(1+2*a), -1, -(1+3*a)>,
<(1+a), -(1+2*a), -1, -(1+3*a)>,
<-(1+a), (1+2*a), -1, -(1+3*a)>,
<(1+a), (1+2*a), -1, -(1+3*a)>,
<-(1+a), -(1+2*a), 1, -(1+3*a)>,
<(1+a), -(1+2*a), 1, -(1+3*a)>,
<-(1+a), (1+2*a), 1, -(1+3*a)>,
<(1+a), (1+2*a), 1, -(1+3*a)>,
<-(1+a), -(1+2*a), -1, (1+3*a)>,
<(1+a), -(1+2*a), -1, (1+3*a)>,
<-(1+a), (1+2*a), -1, (1+3*a)>,
<(1+a), (1+2*a), -1, (1+3*a)>,
<-(1+a), -(1+2*a), 1, (1+3*a)>,
<(1+a), -(1+2*a), 1, (1+3*a)>,
<-(1+a), (1+2*a), 1, (1+3*a)>,
<(1+a), (1+2*a), 1, (1+3*a)>,
<-(1+a), -(1+2*a), -(1+3*a), -1>,
<(1+a), -(1+2*a), -(1+3*a), -1>,
<-(1+a), (1+2*a), -(1+3*a), -1>,
<(1+a), (1+2*a), -(1+3*a), -1>,
<-(1+a), -(1+2*a), (1+3*a), -1>,
<(1+a), -(1+2*a), (1+3*a), -1>,
<-(1+a), (1+2*a), (1+3*a), -1>,
<(1+a), (1+2*a), (1+3*a), -1>,
<-(1+a), -(1+2*a), -(1+3*a), 1>,
<(1+a), -(1+2*a), -(1+3*a), 1>,
<-(1+a), (1+2*a), -(1+3*a), 1>,
<(1+a), (1+2*a), -(1+3*a), 1>,
<-(1+a), -(1+2*a), (1+3*a), 1>,
<(1+a), -(1+2*a), (1+3*a), 1>,
<-(1+a), (1+2*a), (1+3*a), 1>,
<(1+a), (1+2*a), (1+3*a), 1>,
<-(1+a), -(1+3*a), -1, -(1+2*a)>,
<(1+a), -(1+3*a), -1, -(1+2*a)>,
<-(1+a), (1+3*a), -1, -(1+2*a)>,
<(1+a), (1+3*a), -1, -(1+2*a)>,
<-(1+a), -(1+3*a), 1, -(1+2*a)>,
<(1+a), -(1+3*a), 1, -(1+2*a)>,
<-(1+a), (1+3*a), 1, -(1+2*a)>,
<(1+a), (1+3*a), 1, -(1+2*a)>,
<-(1+a), -(1+3*a), -1, (1+2*a)>,
<(1+a), -(1+3*a), -1, (1+2*a)>,
<-(1+a), (1+3*a), -1, (1+2*a)>,
<(1+a), (1+3*a), -1, (1+2*a)>,
<-(1+a), -(1+3*a), 1, (1+2*a)>,
<(1+a), -(1+3*a), 1, (1+2*a)>,
<-(1+a), (1+3*a), 1, (1+2*a)>,
<(1+a), (1+3*a), 1, (1+2*a)>,
<-(1+a), -(1+3*a), -(1+2*a), -1>,
<(1+a), -(1+3*a), -(1+2*a), -1>,
<-(1+a), (1+3*a), -(1+2*a), -1>,
<(1+a), (1+3*a), -(1+2*a), -1>,
<-(1+a), -(1+3*a), (1+2*a), -1>,
<(1+a), -(1+3*a), (1+2*a), -1>,
<-(1+a), (1+3*a), (1+2*a), -1>,
<(1+a), (1+3*a), (1+2*a), -1>,
<-(1+a), -(1+3*a), -(1+2*a), 1>,
<(1+a), -(1+3*a), -(1+2*a), 1>,
<-(1+a), (1+3*a), -(1+2*a), 1>,
<(1+a), (1+3*a), -(1+2*a), 1>,
<-(1+a), -(1+3*a), (1+2*a), 1>,
<(1+a), -(1+3*a), (1+2*a), 1>,
<-(1+a), (1+3*a), (1+2*a), 1>,
<(1+a), (1+3*a), (1+2*a), 1>,
<-(1+2*a), -1, -(1+a), -(1+3*a)>,
<(1+2*a), -1, -(1+a), -(1+3*a)>,
<-(1+2*a), 1, -(1+a), -(1+3*a)>,
<(1+2*a), 1, -(1+a), -(1+3*a)>,
<-(1+2*a), -1, (1+a), -(1+3*a)>,
<(1+2*a), -1, (1+a), -(1+3*a)>,
<-(1+2*a), 1, (1+a), -(1+3*a)>,
<(1+2*a), 1, (1+a), -(1+3*a)>,
<-(1+2*a), -1, -(1+a), (1+3*a)>,
<(1+2*a), -1, -(1+a), (1+3*a)>,
<-(1+2*a), 1, -(1+a), (1+3*a)>,
<(1+2*a), 1, -(1+a), (1+3*a)>,
<-(1+2*a), -1, (1+a), (1+3*a)>,
<(1+2*a), -1, (1+a), (1+3*a)>,
<-(1+2*a), 1, (1+a), (1+3*a)>,
<(1+2*a), 1, (1+a), (1+3*a)>,
<-(1+2*a), -1, -(1+3*a), -(1+a)>,
<(1+2*a), -1, -(1+3*a), -(1+a)>,
<-(1+2*a), 1, -(1+3*a), -(1+a)>,
<(1+2*a), 1, -(1+3*a), -(1+a)>,
<-(1+2*a), -1, (1+3*a), -(1+a)>,
<(1+2*a), -1, (1+3*a), -(1+a)>,
<-(1+2*a), 1, (1+3*a), -(1+a)>,
<(1+2*a), 1, (1+3*a), -(1+a)>,
<-(1+2*a), -1, -(1+3*a), (1+a)>,
<(1+2*a), -1, -(1+3*a), (1+a)>,
<-(1+2*a), 1, -(1+3*a), (1+a)>,
<(1+2*a), 1, -(1+3*a), (1+a)>,
<-(1+2*a), -1, (1+3*a), (1+a)>,
<(1+2*a), -1, (1+3*a), (1+a)>,
<-(1+2*a), 1, (1+3*a), (1+a)>,
<(1+2*a), 1, (1+3*a), (1+a)>,
<-(1+2*a), -(1+a), -1, -(1+3*a)>,
<(1+2*a), -(1+a), -1, -(1+3*a)>,
<-(1+2*a), (1+a), -1, -(1+3*a)>,
<(1+2*a), (1+a), -1, -(1+3*a)>,
<-(1+2*a), -(1+a), 1, -(1+3*a)>,
<(1+2*a), -(1+a), 1, -(1+3*a)>,
<-(1+2*a), (1+a), 1, -(1+3*a)>,
<(1+2*a), (1+a), 1, -(1+3*a)>,
<-(1+2*a), -(1+a), -1, (1+3*a)>,
<(1+2*a), -(1+a), -1, (1+3*a)>,
<-(1+2*a), (1+a), -1, (1+3*a)>,
<(1+2*a), (1+a), -1, (1+3*a)>,
<-(1+2*a), -(1+a), 1, (1+3*a)>,
<(1+2*a), -(1+a), 1, (1+3*a)>,
<-(1+2*a), (1+a), 1, (1+3*a)>,
<(1+2*a), (1+a), 1, (1+3*a)>,
<-(1+2*a), -(1+a), -(1+3*a), -1>,
<(1+2*a), -(1+a), -(1+3*a), -1>,
<-(1+2*a), (1+a), -(1+3*a), -1>,
<(1+2*a), (1+a), -(1+3*a), -1>,
<-(1+2*a), -(1+a), (1+3*a), -1>,
<(1+2*a), -(1+a), (1+3*a), -1>,
<-(1+2*a), (1+a), (1+3*a), -1>,
<(1+2*a), (1+a), (1+3*a), -1>,
<-(1+2*a), -(1+a), -(1+3*a), 1>,
<(1+2*a), -(1+a), -(1+3*a), 1>,
<-(1+2*a), (1+a), -(1+3*a), 1>,
<(1+2*a), (1+a), -(1+3*a), 1>,
<-(1+2*a), -(1+a), (1+3*a), 1>,
<(1+2*a), -(1+a), (1+3*a), 1>,
<-(1+2*a), (1+a), (1+3*a), 1>,
<(1+2*a), (1+a), (1+3*a), 1>,
<-(1+2*a), -(1+3*a), -1, -(1+a)>,
<(1+2*a), -(1+3*a), -1, -(1+a)>,
<-(1+2*a), (1+3*a), -1, -(1+a)>,
<(1+2*a), (1+3*a), -1, -(1+a)>,
<-(1+2*a), -(1+3*a), 1, -(1+a)>,
<(1+2*a), -(1+3*a), 1, -(1+a)>,
<-(1+2*a), (1+3*a), 1, -(1+a)>,
<(1+2*a), (1+3*a), 1, -(1+a)>,
<-(1+2*a), -(1+3*a), -1, (1+a)>,
<(1+2*a), -(1+3*a), -1, (1+a)>,
<-(1+2*a), (1+3*a), -1, (1+a)>,
<(1+2*a), (1+3*a), -1, (1+a)>,
<-(1+2*a), -(1+3*a), 1, (1+a)>,
<(1+2*a), -(1+3*a), 1, (1+a)>,
<-(1+2*a), (1+3*a), 1, (1+a)>,
<(1+2*a), (1+3*a), 1, (1+a)>,
<-(1+2*a), -(1+3*a), -(1+a), -1>,
<(1+2*a), -(1+3*a), -(1+a), -1>,
<-(1+2*a), (1+3*a), -(1+a), -1>,
<(1+2*a), (1+3*a), -(1+a), -1>,
<-(1+2*a), -(1+3*a), (1+a), -1>,
<(1+2*a), -(1+3*a), (1+a), -1>,
<-(1+2*a), (1+3*a), (1+a), -1>,
<(1+2*a), (1+3*a), (1+a), -1>,
<-(1+2*a), -(1+3*a), -(1+a), 1>,
<(1+2*a), -(1+3*a), -(1+a), 1>,
<-(1+2*a), (1+3*a), -(1+a), 1>,
<(1+2*a), (1+3*a), -(1+a), 1>,
<-(1+2*a), -(1+3*a), (1+a), 1>,
<(1+2*a), -(1+3*a), (1+a), 1>,
<-(1+2*a), (1+3*a), (1+a), 1>,
<(1+2*a), (1+3*a), (1+a), 1>,
<-(1+3*a), -1, -(1+a), -(1+2*a)>,
<(1+3*a), -1, -(1+a), -(1+2*a)>,
<-(1+3*a), 1, -(1+a), -(1+2*a)>,
<(1+3*a), 1, -(1+a), -(1+2*a)>,
<-(1+3*a), -1, (1+a), -(1+2*a)>,
<(1+3*a), -1, (1+a), -(1+2*a)>,
<-(1+3*a), 1, (1+a), -(1+2*a)>,
<(1+3*a), 1, (1+a), -(1+2*a)>,
<-(1+3*a), -1, -(1+a), (1+2*a)>,
<(1+3*a), -1, -(1+a), (1+2*a)>,
<-(1+3*a), 1, -(1+a), (1+2*a)>,
<(1+3*a), 1, -(1+a), (1+2*a)>,
<-(1+3*a), -1, (1+a), (1+2*a)>,
<(1+3*a), -1, (1+a), (1+2*a)>,
<-(1+3*a), 1, (1+a), (1+2*a)>,
<(1+3*a), 1, (1+a), (1+2*a)>,
<-(1+3*a), -1, -(1+2*a), -(1+a)>,
<(1+3*a), -1, -(1+2*a), -(1+a)>,
<-(1+3*a), 1, -(1+2*a), -(1+a)>,
<(1+3*a), 1, -(1+2*a), -(1+a)>,
<-(1+3*a), -1, (1+2*a), -(1+a)>,
<(1+3*a), -1, (1+2*a), -(1+a)>,
<-(1+3*a), 1, (1+2*a), -(1+a)>,
<(1+3*a), 1, (1+2*a), -(1+a)>,
<-(1+3*a), -1, -(1+2*a), (1+a)>,
<(1+3*a), -1, -(1+2*a), (1+a)>,
<-(1+3*a), 1, -(1+2*a), (1+a)>,
<(1+3*a), 1, -(1+2*a), (1+a)>,
<-(1+3*a), -1, (1+2*a), (1+a)>,
<(1+3*a), -1, (1+2*a), (1+a)>,
<-(1+3*a), 1, (1+2*a), (1+a)>,
<(1+3*a), 1, (1+2*a), (1+a)>,
<-(1+3*a), -(1+a), -1, -(1+2*a)>,
<(1+3*a), -(1+a), -1, -(1+2*a)>,
<-(1+3*a), (1+a), -1, -(1+2*a)>,
<(1+3*a), (1+a), -1, -(1+2*a)>,
<-(1+3*a), -(1+a), 1, -(1+2*a)>,
<(1+3*a), -(1+a), 1, -(1+2*a)>,
<-(1+3*a), (1+a), 1, -(1+2*a)>,
<(1+3*a), (1+a), 1, -(1+2*a)>,
<-(1+3*a), -(1+a), -1, (1+2*a)>,
<(1+3*a), -(1+a), -1, (1+2*a)>,
<-(1+3*a), (1+a), -1, (1+2*a)>,
<(1+3*a), (1+a), -1, (1+2*a)>,
<-(1+3*a), -(1+a), 1, (1+2*a)>,
<(1+3*a), -(1+a), 1, (1+2*a)>,
<-(1+3*a), (1+a), 1, (1+2*a)>,
<(1+3*a), (1+a), 1, (1+2*a)>,
<-(1+3*a), -(1+a), -(1+2*a), -1>,
<(1+3*a), -(1+a), -(1+2*a), -1>,
<-(1+3*a), (1+a), -(1+2*a), -1>,
<(1+3*a), (1+a), -(1+2*a), -1>,
<-(1+3*a), -(1+a), (1+2*a), -1>,
<(1+3*a), -(1+a), (1+2*a), -1>,
<-(1+3*a), (1+a), (1+2*a), -1>,
<(1+3*a), (1+a), (1+2*a), -1>,
<-(1+3*a), -(1+a), -(1+2*a), 1>,
<(1+3*a), -(1+a), -(1+2*a), 1>,
<-(1+3*a), (1+a), -(1+2*a), 1>,
<(1+3*a), (1+a), -(1+2*a), 1>,
<-(1+3*a), -(1+a), (1+2*a), 1>,
<(1+3*a), -(1+a), (1+2*a), 1>,
<-(1+3*a), (1+a), (1+2*a), 1>,
<(1+3*a), (1+a), (1+2*a), 1>,
<-(1+3*a), -(1+2*a), -1, -(1+a)>,
<(1+3*a), -(1+2*a), -1, -(1+a)>,
<-(1+3*a), (1+2*a), -1, -(1+a)>,
<(1+3*a), (1+2*a), -1, -(1+a)>,
<-(1+3*a), -(1+2*a), 1, -(1+a)>,
<(1+3*a), -(1+2*a), 1, -(1+a)>,
<-(1+3*a), (1+2*a), 1, -(1+a)>,
<(1+3*a), (1+2*a), 1, -(1+a)>,
<-(1+3*a), -(1+2*a), -1, (1+a)>,
<(1+3*a), -(1+2*a), -1, (1+a)>,
<-(1+3*a), (1+2*a), -1, (1+a)>,
<(1+3*a), (1+2*a), -1, (1+a)>,
<-(1+3*a), -(1+2*a), 1, (1+a)>,
<(1+3*a), -(1+2*a), 1, (1+a)>,
<-(1+3*a), (1+2*a), 1, (1+a)>,
<(1+3*a), (1+2*a), 1, (1+a)>,
<-(1+3*a), -(1+2*a), -(1+a), -1>,
<(1+3*a), -(1+2*a), -(1+a), -1>,
<-(1+3*a), (1+2*a), -(1+a), -1>,
<(1+3*a), (1+2*a), -(1+a), -1>,
<-(1+3*a), -(1+2*a), (1+a), -1>,
<(1+3*a), -(1+2*a), (1+a), -1>,
<-(1+3*a), (1+2*a), (1+a), -1>,
<(1+3*a), (1+2*a), (1+a), -1>,
<-(1+3*a), -(1+2*a), -(1+a), 1>,
<(1+3*a), -(1+2*a), -(1+a), 1>,
<-(1+3*a), (1+2*a), -(1+a), 1>,
<(1+3*a), (1+2*a), -(1+a), 1>,
<-(1+3*a), -(1+2*a), (1+a), 1>,
<(1+3*a), -(1+2*a), (1+a), 1>,
<-(1+3*a), (1+2*a), (1+a), 1>,
<(1+3*a), (1+2*a), (1+a), 1>};
// edges -----------------------------------------------------------------------
#declare nedges = 1440;
#declare adjacencies = array[nedges][2]
{{0,16}, {39,86}, {96,112}, {151,165}, {205,301}, {280,281}, {368,376}, {458,554},
{0,48}, {39,87}, {96,114}, {151,167}, {206,207}, {280,376}, {368,464}, {459,463},
{0,49}, {39,270}, {96,384}, {151,493}, {206,222}, {281,377}, {369,377}, {459,475},
{0,192}, {39,271}, {96,386}, {151,495}, {206,238}, {282,283}, {369,465}, {459,555},
{0,193}, {40,88}, {97,113}, {152,168}, {206,302}, {282,378}, {370,378}, {460,476},
{1,17}, {40,89}, {97,115}, {152,170}, {207,223}, {283,379}, {370,466}, {460,556},
{1,48}, {40,272}, {97,385}, {152,496}, {207,239}, {284,285}, {371,379}, {461,477},
{1,49}, {40,273}, {97,387}, {152,498}, {207,303}, {284,380}, {371,467}, {461,557},
{1,194}, {41,90}, {98,112}, {153,169}, {208,209}, {285,381}, {372,380}, {462,478},
{1,195}, {41,91}, {98,114}, {153,171}, {208,240}, {286,287}, {372,468}, {462,558},
{2,18}, {41,274}, {98,388}, {153,497}, {208,304}, {286,382}, {373,381}, {463,479},
{2,50}, {41,275}, {98,390}, {153,499}, {209,241}, {287,383}, {373,469}, {463,559},
{2,51}, {42,92}, {99,113}, {154,172}, {209,305}, {288,290}, {374,382}, {464,472},
{2,196}, {42,93}, {99,115}, {154,174}, {210,211}, {288,304}, {374,470}, {464,560},
{2,197}, {42,276}, {99,389}, {154,500}, {210,242}, {288,384}, {375,383}, {465,473},
{3,19}, {42,277}, {99,391}, {154,502}, {210,306}, {289,291}, {375,471}, {465,561},
{3,50}, {43,94}, {100,116}, {155,173}, {211,243}, {289,305}, {376,472}, {466,474},
{3,51}, {43,95}, {100,118}, {155,175}, {211,307}, {289,385}, {377,473}, {466,562},
{3,198}, {43,278}, {100,392}, {155,501}, {212,213}, {290,306}, {378,474}, {467,475},
{3,199}, {43,279}, {100,394}, {155,503}, {212,244}, {290,386}, {379,475}, {467,563},
{4,20}, {44,88}, {101,117}, {156,168}, {212,308}, {291,307}, {380,476}, {468,476},
{4,52}, {44,89}, {101,119}, {156,170}, {213,245}, {291,387}, {381,477}, {468,564},
{4,53}, {44,280}, {101,393}, {156,504}, {213,309}, {292,294}, {382,478}, {469,477},
{4,200}, {44,281}, {101,395}, {156,506}, {214,215}, {292,308}, {383,479}, {469,565},
{4,201}, {45,90}, {102,116}, {157,169}, {214,246}, {292,388}, {384,386}, {470,478},
{5,21}, {45,91}, {102,118}, {157,171}, {214,310}, {293,295}, {384,416}, {470,566},
{5,52}, {45,282}, {102,396}, {157,505}, {215,247}, {293,309}, {384,480}, {471,479},
{5,53}, {45,283}, {102,398}, {157,507}, {215,311}, {293,389}, {385,387}, {471,567},
{5,202}, {46,92}, {103,117}, {158,172}, {216,217}, {294,310}, {385,417}, {472,568},
{5,203}, {46,93}, {103,119}, {158,174}, {216,248}, {294,390}, {385,481}, {473,569},
{6,22}, {46,284}, {103,397}, {158,508}, {216,312}, {295,311}, {386,418}, {474,570},
{6,54}, {46,285}, {103,399}, {158,510}, {217,249}, {295,391}, {386,482}, {475,571},
{6,55}, {47,94}, {104,120}, {159,173}, {217,313}, {296,298}, {387,419}, {476,572},
{6,204}, {47,95}, {104,122}, {159,175}, {218,219}, {296,312}, {387,483}, {477,573},
{6,205}, {47,286}, {104,400}, {159,509}, {218,250}, {296,392}, {388,390}, {478,574},
{7,23}, {47,287}, {104,402}, {159,511}, {218,314}, {297,299}, {388,420}, {479,575},
{7,54}, {48,96}, {105,121}, {160,176}, {219,251}, {297,313}, {388,484}, {480,482},
{7,55}, {48,288}, {105,123}, {160,512}, {219,315}, {297,393}, {389,391}, {480,496},
{7,206}, {48,290}, {105,401}, {160,516}, {220,221}, {298,314}, {389,421}, {480,512},
{7,207}, {49,97}, {105,403}, {161,177}, {220,252}, {298,394}, {389,485}, {481,483},
{8,24}, {49,289}, {106,124}, {161,513}, {220,316}, {299,315}, {390,422}, {481,497},
{8,56}, {49,291}, {106,126}, {161,517}, {221,253}, {299,395}, {390,486}, {481,513},
{8,57}, {50,98}, {106,404}, {162,178}, {221,317}, {300,302}, {391,423}, {482,498},
{8,208}, {50,292}, {106,406}, {162,514}, {222,223}, {300,316}, {391,487}, {482,514},
{8,209}, {50,294}, {107,125}, {162,518}, {222,254}, {300,396}, {392,394}, {483,499},
{9,25}, {51,99}, {107,127}, {163,179}, {222,318}, {301,303}, {392,424}, {483,515},
{9,56}, {51,293}, {107,405}, {163,515}, {223,255}, {301,317}, {392,488}, {484,486},
{9,57}, {51,295}, {107,407}, {163,519}, {223,319}, {301,397}, {393,395}, {484,500},
{9,210}, {52,100}, {108,120}, {164,180}, {224,225}, {302,318}, {393,425}, {484,516},
{9,211}, {52,296}, {108,122}, {164,520}, {224,256}, {302,398}, {393,489}, {485,487},
{10,26}, {52,298}, {108,408}, {164,524}, {224,320}, {303,319}, {394,426}, {485,501},
{10,58}, {53,101}, {108,410}, {165,181}, {225,257}, {303,399}, {394,490}, {485,517},
{10,59}, {53,297}, {109,121}, {165,521}, {225,321}, {304,306}, {395,427}, {486,502},
{10,212}, {53,299}, {109,123}, {165,525}, {226,227}, {304,400}, {395,491}, {486,518},
{10,213}, {54,102}, {109,409}, {166,182}, {226,258}, {305,307}, {396,398}, {487,503},
{11,27}, {54,300}, {109,411}, {166,522}, {226,322}, {305,401}, {396,428}, {487,519},
{11,58}, {54,302}, {110,124}, {166,526}, {227,259}, {306,402}, {396,492}, {488,490},
{11,59}, {55,103}, {110,126}, {167,183}, {227,323}, {307,403}, {397,399}, {488,504},
{11,214}, {55,301}, {110,412}, {167,523}, {228,229}, {308,310}, {397,429}, {488,520},
{11,215}, {55,303}, {110,414}, {167,527}, {228,260}, {308,404}, {397,493}, {489,491},
{12,28}, {56,104}, {111,125}, {168,184}, {228,324}, {309,311}, {398,430}, {489,505},
{12,60}, {56,304}, {111,127}, {168,528}, {229,261}, {309,405}, {398,494}, {489,521},
{12,61}, {56,306}, {111,413}, {168,536}, {229,325}, {310,406}, {399,431}, {490,506},
{12,216}, {57,105}, {111,415}, {169,185}, {230,231}, {311,407}, {399,495}, {490,522},
{12,217}, {57,305}, {112,416}, {169,529}, {230,262}, {312,314}, {400,402}, {491,507},
{13,29}, {57,307}, {112,420}, {169,537}, {230,326}, {312,408}, {400,432}, {491,523},
{13,60}, {58,106}, {113,417}, {170,186}, {231,263}, {313,315}, {400,496}, {492,494},
{13,61}, {58,308}, {113,421}, {170,530}, {231,327}, {313,409}, {401,403}, {492,508},
{13,218}, {58,310}, {114,418}, {170,538}, {232,233}, {314,410}, {401,433}, {492,524},
{13,219}, {59,107}, {114,422}, {171,187}, {232,264}, {315,411}, {401,497}, {493,495},
{14,30}, {59,309}, {115,419}, {171,531}, {232,328}, {316,318}, {402,434}, {493,509},
{14,62}, {59,311}, {115,423}, {171,539}, {233,265}, {316,412}, {402,498}, {493,525},
{14,63}, {60,108}, {116,424}, {172,188}, {233,329}, {317,319}, {403,435}, {494,510},
{14,220}, {60,312}, {116,428}, {172,532}, {234,235}, {317,413}, {403,499}, {494,526},
{14,221}, {60,314}, {117,425}, {172,540}, {234,266}, {318,414}, {404,406}, {495,511},
{15,31}, {61,109}, {117,429}, {173,189}, {234,330}, {319,415}, {404,436}, {495,527},
{15,62}, {61,313}, {118,426}, {173,533}, {235,267}, {320,324}, {404,500}, {496,498},
{15,63}, {61,315}, {118,430}, {173,541}, {235,331}, {320,352}, {405,407}, {496,528},
{15,222}, {62,110}, {119,427}, {174,190}, {236,237}, {320,416}, {405,437}, {497,499},
{15,223}, {62,316}, {119,431}, {174,534}, {236,268}, {321,325}, {405,501}, {497,529},
{16,64}, {62,318}, {120,432}, {174,542}, {236,332}, {321,353}, {406,438}, {498,530},
{16,65}, {63,111}, {120,440}, {175,191}, {237,269}, {321,417}, {406,502}, {499,531},
{16,224}, {63,317}, {121,433}, {175,535}, {237,333}, {322,326}, {407,439}, {500,502},
{16,225}, {63,319}, {121,441}, {175,543}, {238,239}, {322,354}, {407,503}, {500,532},
{17,66}, {64,112}, {122,434}, {176,184}, {238,270}, {322,418}, {408,410}, {501,503},
{17,67}, {64,320}, {122,442}, {176,188}, {238,334}, {323,327}, {408,440}, {501,533},
{17,226}, {64,324}, {123,435}, {176,544}, {239,271}, {323,355}, {408,504}, {502,534},
{17,227}, {65,113}, {123,443}, {176,548}, {239,335}, {323,419}, {409,411}, {503,535},
{18,64}, {65,321}, {124,436}, {177,185}, {240,241}, {324,356}, {409,441}, {504,506},
{18,65}, {65,325}, {124,444}, {177,189}, {240,272}, {324,420}, {409,505}, {504,536},
{18,228}, {66,114}, {125,437}, {177,545}, {240,336}, {325,357}, {410,442}, {505,507},
{18,229}, {66,322}, {125,445}, {177,549}, {241,273}, {325,421}, {410,506}, {505,537},
{19,66}, {66,326}, {126,438}, {178,186}, {241,337}, {326,358}, {411,443}, {506,538},
{19,67}, {67,115}, {126,446}, {178,190}, {242,243}, {326,422}, {411,507}, {507,539},
{19,230}, {67,323}, {127,439}, {178,546}, {242,274}, {327,359}, {412,414}, {508,510},
{19,231}, {67,327}, {127,447}, {178,550}, {242,338}, {327,423}, {412,444}, {508,540},
{20,68}, {68,116}, {128,136}, {179,187}, {243,275}, {328,332}, {412,508}, {509,511},
{20,69}, {68,328}, {128,140}, {179,191}, {243,339}, {328,360}, {413,415}, {509,541},
{20,232}, {68,332}, {128,448}, {179,547}, {244,245}, {328,424}, {413,445}, {510,542},
{20,233}, {69,117}, {128,452}, {179,551}, {244,276}, {329,333}, {413,509}, {511,543},
{21,70}, {69,329}, {129,137}, {180,184}, {244,340}, {329,361}, {414,446}, {512,516},
{21,71}, {69,333}, {129,141}, {180,188}, {245,277}, {329,425}, {414,510}, {512,544},
{21,234}, {70,118}, {129,449}, {180,552}, {245,341}, {330,334}, {415,447}, {513,517},
{21,235}, {70,330}, {129,453}, {180,556}, {246,247}, {330,362}, {415,511}, {513,545},
{22,68}, {70,334}, {130,138}, {181,185}, {246,278}, {330,426}, {416,420}, {514,518},
{22,69}, {71,119}, {130,142}, {181,189}, {246,342}, {331,335}, {416,512}, {514,546},
{22,236}, {71,331}, {130,450}, {181,553}, {247,279}, {331,363}, {417,421}, {515,519},
{22,237}, {71,335}, {130,454}, {181,557}, {247,343}, {331,427}, {417,513}, {515,547},
{23,70}, {72,120}, {131,139}, {182,186}, {248,249}, {332,364}, {418,422}, {516,548},
{23,71}, {72,336}, {131,143}, {182,190}, {248,280}, {332,428}, {418,514}, {517,549},
{23,238}, {72,344}, {131,451}, {182,554}, {248,344}, {333,365}, {419,423}, {518,550},
{23,239}, {73,121}, {131,455}, {182,558}, {249,281}, {333,429}, {419,515}, {519,551},
{24,72}, {73,337}, {132,136}, {183,187}, {249,345}, {334,366}, {420,516}, {520,524},
{24,73}, {73,345}, {132,140}, {183,191}, {250,251}, {334,430}, {421,517}, {520,552},
{24,240}, {74,122}, {132,456}, {183,555}, {250,282}, {335,367}, {422,518}, {521,525},
{24,241}, {74,338}, {132,460}, {183,559}, {250,346}, {335,431}, {423,519}, {521,553},
{25,74}, {74,346}, {133,137}, {184,560}, {251,283}, {336,344}, {424,428}, {522,526},
{25,75}, {75,123}, {133,141}, {184,568}, {251,347}, {336,368}, {424,520}, {522,554},
{25,242}, {75,339}, {133,457}, {185,561}, {252,253}, {336,432}, {425,429}, {523,527},
{25,243}, {75,347}, {133,461}, {185,569}, {252,284}, {337,345}, {425,521}, {523,555},
{26,76}, {76,124}, {134,138}, {186,562}, {252,348}, {337,369}, {426,430}, {524,556},
{26,77}, {76,340}, {134,142}, {186,570}, {253,285}, {337,433}, {426,522}, {525,557},
{26,244}, {76,348}, {134,458}, {187,563}, {253,349}, {338,346}, {427,431}, {526,558},
{26,245}, {77,125}, {134,462}, {187,571}, {254,255}, {338,370}, {427,523}, {527,559},
{27,78}, {77,341}, {135,139}, {188,564}, {254,286}, {338,434}, {428,524}, {528,536},
{27,79}, {77,349}, {135,143}, {188,572}, {254,350}, {339,347}, {429,525}, {528,560},
{27,246}, {78,126}, {135,459}, {189,565}, {255,287}, {339,371}, {430,526}, {529,537},
{27,247}, {78,342}, {135,463}, {189,573}, {255,351}, {339,435}, {431,527}, {529,561},
{28,72}, {78,350}, {136,464}, {190,566}, {256,257}, {340,348}, {432,440}, {530,538},
{28,73}, {79,127}, {136,472}, {190,574}, {256,272}, {340,372}, {432,528}, {530,562},
{28,248}, {79,343}, {137,465}, {191,567}, {256,352}, {340,436}, {433,441}, {531,539},
{28,249}, {79,351}, {137,473}, {191,575}, {257,273}, {341,349}, {433,529}, {531,563},
{29,74}, {80,128}, {138,466}, {192,193}, {257,353}, {341,373}, {434,442}, {532,540},
{29,75}, {80,352}, {138,474}, {192,208}, {258,259}, {341,437}, {434,530}, {532,564},
{29,250}, {80,356}, {139,467}, {192,224}, {258,274}, {342,350}, {435,443}, {533,541},
{29,251}, {81,129}, {139,475}, {192,288}, {258,354}, {342,374}, {435,531}, {533,565},
{30,76}, {81,353}, {140,468}, {193,209}, {259,275}, {342,438}, {436,444}, {534,542},
{30,77}, {81,357}, {140,476}, {193,225}, {259,355}, {343,351}, {436,532}, {534,566},
{30,252}, {82,130}, {141,469}, {193,289}, {260,261}, {343,375}, {437,445}, {535,543},
{30,253}, {82,354}, {141,477}, {194,195}, {260,276}, {343,439}, {437,533}, {535,567},
{31,78}, {82,358}, {142,470}, {194,210}, {260,356}, {344,376}, {438,446}, {536,568},
{31,79}, {83,131}, {142,478}, {194,226}, {261,277}, {344,440}, {438,534}, {537,569},
{31,254}, {83,355}, {143,471}, {194,290}, {261,357}, {345,377}, {439,447}, {538,570},
{31,255}, {83,359}, {143,479}, {195,211}, {262,263}, {345,441}, {439,535}, {539,571},
{32,40}, {84,132}, {144,152}, {195,227}, {262,278}, {346,378}, {440,536}, {540,572},
{32,80}, {84,360}, {144,160}, {195,291}, {262,358}, {346,442}, {441,537}, {541,573},
{32,81}, {84,364}, {144,162}, {196,197}, {263,279}, {347,379}, {442,538}, {542,574},
{32,256}, {85,133}, {144,480}, {196,212}, {263,359}, {347,443}, {443,539}, {543,575},
{32,257}, {85,361}, {144,482}, {196,228}, {264,265}, {348,380}, {444,540}, {544,548},
{33,41}, {85,365}, {145,153}, {196,292}, {264,280}, {348,444}, {445,541}, {544,560},
{33,82}, {86,134}, {145,161}, {197,213}, {264,360}, {349,381}, {446,542}, {545,549},
{33,83}, {86,362}, {145,163}, {197,229}, {265,281}, {349,445}, {447,543}, {545,561},
{33,258}, {86,366}, {145,481}, {197,293}, {265,361}, {350,382}, {448,452}, {546,550},
{33,259}, {87,135}, {145,483}, {198,199}, {266,267}, {350,446}, {448,464}, {546,562},
{34,42}, {87,363}, {146,154}, {198,214}, {266,282}, {351,383}, {448,544}, {547,551},
{34,80}, {87,367}, {146,160}, {198,230}, {266,362}, {351,447}, {449,453}, {547,563},
{34,81}, {88,136}, {146,162}, {198,294}, {267,283}, {352,356}, {449,465}, {548,564},
{34,260}, {88,368}, {146,484}, {199,215}, {267,363}, {352,448}, {449,545}, {549,565},
{34,261}, {88,376}, {146,486}, {199,231}, {268,269}, {353,357}, {450,454}, {550,566},
{35,43}, {89,137}, {147,155}, {199,295}, {268,284}, {353,449}, {450,466}, {551,567},
{35,82}, {89,369}, {147,161}, {200,201}, {268,364}, {354,358}, {450,546}, {552,556},
{35,83}, {89,377}, {147,163}, {200,216}, {269,285}, {354,450}, {451,455}, {552,568},
{35,262}, {90,138}, {147,485}, {200,232}, {269,365}, {355,359}, {451,467}, {553,557},
{35,263}, {90,370}, {147,487}, {200,296}, {270,271}, {355,451}, {451,547}, {553,569},
{36,44}, {90,378}, {148,156}, {201,217}, {270,286}, {356,452}, {452,468}, {554,558},
{36,84}, {91,139}, {148,164}, {201,233}, {270,366}, {357,453}, {452,548}, {554,570},
{36,85}, {91,371}, {148,166}, {201,297}, {271,287}, {358,454}, {453,469}, {555,559},
{36,264}, {91,379}, {148,488}, {202,203}, {271,367}, {359,455}, {453,549}, {555,571},
{36,265}, {92,140}, {148,490}, {202,218}, {272,273}, {360,364}, {454,470}, {556,572},
{37,45}, {92,372}, {149,157}, {202,234}, {272,368}, {360,456}, {454,550}, {557,573},
{37,86}, {92,380}, {149,165}, {202,298}, {273,369}, {361,365}, {455,471}, {558,574},
{37,87}, {93,141}, {149,167}, {203,219}, {274,275}, {361,457}, {455,551}, {559,575},
{37,266}, {93,373}, {149,489}, {203,235}, {274,370}, {362,366}, {456,460}, {560,568},
{37,267}, {93,381}, {149,491}, {203,299}, {275,371}, {362,458}, {456,472}, {561,569},
{38,46}, {94,142}, {150,158}, {204,205}, {276,277}, {363,367}, {456,552}, {562,570},
{38,84}, {94,374}, {150,164}, {204,220}, {276,372}, {363,459}, {457,461}, {563,571},
{38,85}, {94,382}, {150,166}, {204,236}, {277,373}, {364,460}, {457,473}, {564,572},
{38,268}, {95,143}, {150,492}, {204,300}, {278,279}, {365,461}, {457,553}, {565,573},
{38,269}, {95,375}, {150,494}, {205,221}, {278,374}, {366,462}, {458,462}, {566,574},
{39,47}, {95,383}, {151,159}, {205,237}, {279,375}, {367,463}, {458,474}, {567,575}};
// macros ----------------------------------------------------------------------
#macro rotate4d(theta,phi,xi,vec)
#local a = cos(xi);
#local b = sin(theta)*cos(phi)*sin(xi);
#local c = sin(theta)*sin(phi)*sin(xi);
#local d = cos(theta)*sin(xi);
#local p = vec.x;
#local q = vec.y;
#local r = vec.z;
#local s = vec.t;
< a*p - b*q - c*r - d*s
, a*q + b*p + c*s - d*r
, a*r - b*s + c*p + d*q
, a*s + b*r - c*q + d*p >
#end
#macro StereographicProjection(q)
#local h = 5*a*a+(2+3*a)*(2+3*a);
acos(q.t/sqrt(h))/pi*<q.x,q.y,q.z>/sqrt(h-q.t*q.t)
#end
#macro Vertices3(theta,phi,xi)
#local out = array[nvertices];
#for(i,0,nvertices-1)
#local out[i] = StereographicProjection(
rotate4d(theta,phi,xi,vertices[i])
);
#end
out
#end
#declare edgeTexture = texture {
pigment { color Gold }
finish {
ambient .01
diffuse .9
reflection 0
specular 1
metallic
}
};
#macro edge(vs,i,j)
cylinder {
vs[i] vs[j], 0.02
texture{ edgeTexture }
}
#end
// draw ------------------------------------------------------------------------
#declare rvs = Vertices3(pi/2,0,2*frame_number*pi/180); // frame 1 to 180
object {
union {
#for(i,0,nedges-1)
edge(rvs,adjacencies[i][0],adjacencies[i][1])
#end
#for(i,0,nvertices-1)
sphere {
rvs[i], 0.03
texture { edgeTexture }
}
#end
}
scale 2
translate <0, 0.2, -2>
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment