User:Cyp/Java

=Polyhedra.html=

'''For drawing an old version of the polyhedrons at platonic solid and archimedean solid. Can't draw the ones at catalan solid.''' Polyhedra 

=Polyhedra.java=

import java.awt.*; import java.applet.*;

//-a,-b,-c, -a,-b,c, -a,b,-c, -a,b,c, a,-b,-c, a,-b,c, a,b,-c, a,b,c, //-c,-a,-b, -c,-a,b, -c,a,-b, -c,a,b, c,-a,-b, c,-a,b, c,a,-b, c,a,b, //-b,-c,-a, -b,-c,a, -b,c,-a, -b,c,a, b,-c,-a, b,-c,a, b,c,-a, b,c,a,

public class Polyhedra extends Applet{ double g=1.6180339887498948482045868343656381177203; //(1+Math.sqrt(5))/2; double d=0.6180339887498948482045868343656381177203; //1/g; double s=1.4142135623730950488016887242096980785696; //Math.sqrt(2); double q=2.6180339887498948482045868343656381177203; //(1+Math.sqrt(5))/2+1; double j=3.2360679774997896964091736687312762354406; //(1+Math.sqrt(5)); double w=(Math.pow(Math.sqrt(297)+17, 1/3.)-Math.pow(Math.sqrt(297)-17, 1/3.)-1)/3; //w+w*w+w*w*w==1 double w2=Math.pow((g+Math.sqrt(g-5/27.))/2, 1/3.)+Math.pow((g-Math.sqrt(g-5/27.))/2, 1/3.); //w2*w2*w2-2*w2==g double aa=w2-1/w2; double bb=w2*g+q+g/w2; double tetrav[]={ -1,-s,0, -1,s,0, 1,0,-s, 1,0,s}; int tetrat[]={ 0,1,3, 3,1,2, 1,0,2, 3,2,0}; double hexav[]={ -1,-1,-1, -1,-1,1, -1,1,-1, -1,1,1, 1,-1,-1, 1,-1,1, 1,1,-1, 1,1,1}; int hexat[]={ 0,2,3,1, 2,6,7,3, 0,4,6,2, 3,7,5,1, 0,1,5,4, 6,4,5,7}; double octav[]={ -1,0,0, 1,0,0, 0,-1,0, 0,1,0, 0,0,-1, 0,0,1}; int octat[]={ 0,4,3, 3,4,1, 1,4,2, 2,4,0, 3,5,0, 0,5,2, 2,5,1, 1,5,3}; double dodecav[]={ 0,-d,-g, 0,-d,g, 0,d,-g, 0,d,g, -d,-g,0, -d,g,0, d,-g,0, d,g,0, -g,0,-d, g,0,-d, -g,0,d, g,0,d, -1,-1,-1, -1,-1,1, -1,1,-1, -1,1,1, 1,-1,-1, 1,-1,1, 1,1,-1, 1,1,1}; int dodecat[]={ 0,2,14,8,12, 0,16,9,18,2, 4,6,16,0,12, 2,18,7,5,14, 13,4,12,8,10, 6,17,11,9,16, 15,10,8,14,5, 18,9,11,19,7, 1,17,6,4,13, 5,7,19,3,15, 13,10,15,3,1, 19,11,17,1,3}; double icosav[]={ 0,-1,-g, 0,-1,g, 0,1,-g, 0,1,g, -1,-g,0, -1,g,0, 1,-g,0, 1,g,0, -g,0,-1, g,0,-1, -g,0,1, g,0,1}; int icosat[]={ 0,2,8, 2,0,9, 4,0,8, 4,6,0, 6,9,0, 5,8,2, 5,2,7, 7,2,9, 10,4,8, 10,8,5, 6,11,9, 9,11,7, 10,5,3, 10,1,4, 1,11,6, 3,7,11, 1,6,4, 3,5,7, 3,11,1, 1,10,3}; double icosidodecav[]={ -j,0,0, j,0,0, 0,-j,0, 0,j,0, 0,0,-j, 0,0,j, -1,-g,-q, -1,-g,q, -1,g,-q, -1,g,q, 1,-g,-q, 1,-g,q, 1,g,-q, 1,g,q, -g,-q,-1, -g,q,-1, g,-q,-1, g,q,-1, -g,-q,1, -g,q,1, g,-q,1, g,q,1, -q,-1,-g, q,-1,-g, -q,-1,g, q,-1,g, -q,1,-g, q,1,-g, -q,1,g, q,1,g }; int icosidodecat[]={ 3,17,21,3, 3,27,23,1, 3,1,25,29, 3,21,29,13, 3,12,27,17, 3,10,16,23, 3,20,11,25, 3,9,13,5, 3,19,9,28, 3,26,8,15, 3,15,3,19, 3,7,5,11, 3,18,24,7, 3,2,14,18, 3,2,20,16, 3,4,6,10, 3,6,22,14, 3,8,4,12, 3,0,22,26, 3,0,28,24, 5,17,27,1,29,21, 5,1,23,16,20,25, 5,4,10,23,27,12, 5,5,13,29,25,11, 5,3,21,13,9,19, 5,8,12,17,3,15, 5,0,26,15,19,28, 5,24,28,9,5,7, 5,0,24,18,14,22, 5,2,18,7,11,20, 5,10,6,14,2,16, 5,8,26,22,6,4 }; double cuboctav[]={ -1,-1,0, -1,1,0, 1,-1,0, 1,1,0, 0,-1,-1, 0,-1,1, 0,1,-1, 0,1,1, -1,0,-1, 1,0,-1, -1,0,1, 1,0,1 }; int cuboctat[]={ 3,3,11,7, 3,9,3,6, 3,11,2,5, 3,4,2,9, 3,7,10,1, 3,1,8,6, 3,0,10,5, 3,4,8,0, 4,3,9,2,11, 4,11,5,10,7, 4,7,1,6,3, 4,10,0,8,1, 4,6,8,4,9, 4,4,0,5,2 }; double truncicosav[]={ 0,-1,-3*g, 0,-1,3*g, 0,1,-3*g, 0,1,3*g, -3*g,0,-1, 3*g,0,-1, -3*g,0,1, 3*g,0,1, -1,-3*g,0, -1,3*g,0, 1,-3*g,0, 1,3*g,0,

-2,-(g+q),-g, -2,-(g+q),g, -2,(g+q),-g, -2,(g+q),g, 2,-(g+q),-g, 2,-(g+q),g, 2,(g+q),-g, 2,(g+q),g, -g,-2,-(g+q), g,-2,-(g+q), -g,-2,(g+q), g,-2,(g+q), -g,2,-(g+q), g,2,-(g+q), -g,2,(g+q), g,2,(g+q), -(g+q),-g,-2, -(g+q),g,-2, (g+q),-g,-2, (g+q),g,-2, -(g+q),-g,2, -(g+q),g,2, (g+q),-g,2, (g+q),g,2,

-1,-(2+g),-2*g, -1,-(2+g),2*g, -1,(2+g),-2*g, -1,(2+g),2*g, 1,-(2+g),-2*g, 1,-(2+g),2*g, 1,(2+g),-2*g, 1,(2+g),2*g, -2*g,-1,-(2+g), 2*g,-1,-(2+g), -2*g,-1,(2+g), 2*g,-1,(2+g), -2*g,1,-(2+g), 2*g,1,-(2+g), -2*g,1,(2+g), 2*g,1,(2+g), -(2+g),-2*g,-1, -(2+g),2*g,-1, (2+g),-2*g,-1, (2+g),2*g,-1, -(2+g),-2*g,1, -(2+g),2*g,1, (2+g),-2*g,1, (2+g),2*g,1 }; int truncicosat[]={ 6,9,11,19,43,39,15, 6,55,31,5,7,35,59, 6,27,43,19,59,35,51, 6,11,9,14,38,42,18, 6,20,44,28,52,12,36, 6,0,2,24,48,44,20, 6,48,24,38,14,53,29, 6,0,21,45,49,25,2, 6,12,8,10,16,40,36, 6,18,42,25,49,31,55, 6,23,47,34,58,17,41, 6,1,3,27,51,47,23, 6,21,40,16,54,30,45, 6,7,5,30,54,58,34, 6,39,26,50,33,57,15, 6,3,1,22,46,50,26, 6,57,33,6,4,29,53, 6,6,32,56,52,28,4, 6,22,37,13,56,32,46, 6,37,41,17,10,8,13, 5,59,19,11,18,55, 5,35,7,34,47,51, 5,3,26,39,43,27, 5,44,48,29,4,28, 5,20,36,40,21,0, 5,38,24,2,25,42, 5,14,9,15,57,53, 5,10,17,58,54,16, 5,22,1,23,41,37, 5,49,45,30,5,31, 5,50,46,32,6,33, 5,13,8,12,52,56 }; double trunctetrav[]={ 3,1,1, 1,3,1, 1,1,3, 3,-1,-1, -1,3,-1, -1,-1,3,  -3,-1,1, 1,-3,-1, -1,1,-3,  -3,1,-1, -1,-3,1, 1,-1,-3 };  int trunctetrat[]={ 6,11,3,0,1,4,8, 6,3,7,10,5,2,0, 6,6,10,7,11,8,9, 6,9,4,1,2,5,6, 3,0,2,1, 3,8,4,9, 3,6,5,10, 3,7,3,11 }; double trunchexav[]={ -(s-1),-1,-1, -(s-1),-1,1, -(s-1),1,-1, -(s-1),1,1, (s-1),-1,-1, (s-1),-1,1, (s-1),1,-1, (s-1),1,1, -1,-(s-1),-1, 1,-(s-1),-1, -1,-(s-1),1, 1,-(s-1),1, -1,(s-1),-1, 1,(s-1),-1, -1,(s-1),1, 1,(s-1),1, -1,-1,-(s-1), -1,1,-(s-1), 1,-1,-(s-1), 1,1,-(s-1), -1,-1,(s-1), -1,1,(s-1), 1,-1,(s-1), 1,1,(s-1) }; int trunchexat[]={ 8,5,22,18,4,0,16,20,1, 8,21,14,10,20,16,8,12,17, 8,14,3,7,15,11,5,1,10, 8,6,19,23,7,3,21,17,2, 8,0,4,9,13,6,2,12,8, 8,13,9,18,22,11,15,23,19, 3,11,22,5, 3,18,9,4, 3,3,14,21, 3,2,17,12, 3,10,1,20, 3,7,23,15, 3,13,19,6, 3,0,8,16 }; double truncoctav[]={ -2,-1,0, -2,1,0, 2,-1,0, 2,1,0, 0,-2,-1, 0,-2,1, 0,2,-1, 0,2,1, -1,0,-2, 1,0,-2, -1,0,2, 1,0,2, -1,-2,0, -1,2,0, 1,-2,0, 1,2,0, 0,-1,-2, 0,-1,2, 0,1,-2, 0,1,2, -2,0,-1, 2,0,-1, -2,0,1, 2,0,1 }; int truncoctat[]={ 6,17,11,23,2,14,5, 6,14,2,21,9,16,4, 6,7,15,3,23,11,19, 6,0,12,4,16,8,20, 6,19,10,22,1,13,7, 6,17,5,12,0,22,10, 6,1,20,8,18,6,13, 6,6,18,9,21,3,15, 4,12,5,14,4, 4,2,23,3,21, 4,13,6,15,7, 4,8,16,9,18, 4,0,20,1,22, 4,11,17,10,19 }; double truncdodecav[]={ (0),-(3-g),-(5*g), (0),-(3-g),(5*g), (0),(3-g),-(5*g), (0),(3-g),(5*g), -(5*g),(0),-(3-g), (5*g),(0),-(3-g), -(5*g),(0),(3-g), (5*g),(0),(3-g), -(3-g),-(5*g),(0), -(3-g),(5*g),(0), (3-g),-(5*g),(0), (3-g),(5*g),(0),

-(3-g),-(2+g),-(4+2*g), -(3-g),-(2+g),(4+2*g), -(3-g),(2+g),-(4+2*g), -(3-g),(2+g),(4+2*g), (3-g),-(2+g),-(4+2*g), (3-g),-(2+g),(4+2*g), (3-g),(2+g),-(4+2*g), (3-g),(2+g),(4+2*g), -(4+2*g),-(3-g),-(2+g), (4+2*g),-(3-g),-(2+g), -(4+2*g),-(3-g),(2+g), (4+2*g),-(3-g),(2+g), -(4+2*g),(3-g),-(2+g), (4+2*g),(3-g),-(2+g), -(4+2*g),(3-g),(2+g), (4+2*g),(3-g),(2+g), -(2+g),-(4+2*g),-(3-g), -(2+g),(4+2*g),-(3-g), (2+g),-(4+2*g),-(3-g), (2+g),(4+2*g),-(3-g), -(2+g),-(4+2*g),(3-g), -(2+g),(4+2*g),(3-g), (2+g),-(4+2*g),(3-g), (2+g),(4+2*g),(3-g),

-(2+g),-(-2+4*g),-(1+3*g), -(2+g),-(-2+4*g),(1+3*g), -(2+g),(-2+4*g),-(1+3*g), -(2+g),(-2+4*g),(1+3*g), (2+g),-(-2+4*g),-(1+3*g), (2+g),-(-2+4*g),(1+3*g), (2+g),(-2+4*g),-(1+3*g), (2+g),(-2+4*g),(1+3*g), -(1+3*g),-(2+g),-(-2+4*g), (1+3*g),-(2+g),-(-2+4*g), -(1+3*g),-(2+g),(-2+4*g), (1+3*g),-(2+g),(-2+4*g), -(1+3*g),(2+g),-(-2+4*g), (1+3*g),(2+g),-(-2+4*g), -(1+3*g),(2+g),(-2+4*g), (1+3*g),(2+g),(-2+4*g), -(-2+4*g),-(1+3*g),-(2+g), -(-2+4*g),(1+3*g),-(2+g), (-2+4*g),-(1+3*g),-(2+g), (-2+4*g),(1+3*g),-(2+g), -(-2+4*g),-(1+3*g),(2+g), -(-2+4*g),(1+3*g),(2+g), (-2+4*g),-(1+3*g),(2+g), (-2+4*g),(1+3*g),(2+g) }; int truncdodecat[]={ 10,24,48,53,29,33,57,50,26,6,4, 10,53,38,14,18,42,55,31,11,9,29, 10,39,57,33,9,11,35,59,43,19,15, 10,40,45,21,25,49,42,18,2,0,16, 10,28,52,44,20,4,6,22,46,56,32, 10,5,7,27,51,59,35,31,55,49,25, 10,8,32,56,37,13,17,41,58,34,10, 10,17,1,3,19,43,51,27,23,47,41, 10,47,23,7,5,21,45,54,30,34,58, 10,37,46,22,26,50,39,15,3,1,13, 10,24,20,44,36,12,0,2,14,38,48, 10,36,52,28,8,10,30,54,40,16,12, 3,33,29,9, 3,50,57,39, 3,53,48,38, 3,11,31,35, 3,25,21,5, 3,42,49,55, 3,7,23,27, 3,40,54,45, 3,52,36,44, 3,8,28,32, 3,22,6,26, 3,20,24,4, 3,51,43,59, 3,56,46,37, 3,13,1,17, 3,41,47,58, 3,3,15,19, 3,14,2,18, 3,12,16,0, 3,10,34,30 }; double rhombicuboctav[]={ -(1+s),-1,-1, -(1+s),-1,1, -(1+s),1,-1, -(1+s),1,1, (1+s),-1,-1, (1+s),-1,1, (1+s),1,-1, (1+s),1,1, -1,-(1+s),-1, 1,-(1+s),-1, -1,-(1+s),1, 1,-(1+s),1, -1,(1+s),-1, 1,(1+s),-1, -1,(1+s),1, 1,(1+s),1, -1,-1,-(1+s), -1,1,-(1+s), 1,-1,-(1+s), 1,1,-(1+s), -1,-1,(1+s), -1,1,(1+s), 1,-1,(1+s), 1,1,(1+s) }; int rhombicuboctat[]={ 4,5,7,6,4, 4,5,22,23,7, 4,6,7,15,13, 4,4,6,19,18, 4,9,11,5,4, 4,21,20,1,3, 4,3,1,0,2, 4,2,12,14,3, 4,17,2,0,16, 4,0,1,10,8, 4,10,11,9,8, 4,8,9,18,16, 4,16,18,19,17, 4,11,10,20,22, 4,22,20,21,23, 4,23,21,14,15, 4,12,17,19,13, 4,13,15,14,12, 3,11,22,5, 3,7,23,15, 3,6,13,19, 3,9,4,18, 3,14,21,3, 3,16,0,8, 3,17,12,2, 3,1,20,10 }; double snubhexa1v[]={ -1,-w,1/w, -1,w,-1/w, 1,-w,-1/w, 1,w,1/w, 1/w,-1,-w, -1/w,-1,w, -1/w,1,-w, 1/w,1,w, -w,1/w,-1, w,-1/w,-1, -w,-1/w,1, w,1/w,1,

-1,-1/w,-w, -1,1/w,w, 1,-1/w,w, 1,1/w,-w, -w,-1,-1/w, w,-1,1/w, w,1,-1/w, -w,1,1/w, -1/w,-w,-1, 1/w,w,-1, -1/w,w,1, 1/w,-w,1 }; int snubhexa1t[]={ 4,9,12,10,14, 4,16,2,18,1, 4,3,17,0,19, 4,15,11,13,8, 4,22,5,20,6, 4,23,7,21,4, 3,12,5,10, 3,12,20,5, 3,5,0,10, 3,10,0,17, 3,22,0,5, 3,11,15,7, 3,19,11,3, 3,11,7,3, 3,9,14,4, 3,14,23,4, 3,10,17,14, 3,14,17,23, 3,15,21,7, 3,7,23,3, 3,20,12,16, 3,1,18,8, 3,23,17,3, 3,6,20,1, 3,12,9,16, 3,20,16,1, 3,9,2,16, 3,9,4,2, 3,4,21,2, 3,18,21,15, 3,18,15,8, 3,8,6,1, 3,6,8,13, 3,22,6,13, 3,11,19,13, 3,13,19,22, 3,22,19,0, 3,21,18,2 }; double snubhexa2v[]={ 1,-w,1/w, 1,w,-1/w, -1,-w,-1/w, -1,w,1/w, -1/w,-1,-w, 1/w,-1,w, 1/w,1,-w, -1/w,1,w, w,1/w,-1, -w,-1/w,-1, w,-1/w,1, -w,1/w,1,

1,-1/w,-w, 1,1/w,w, -1,-1/w,w, -1,1/w,-w, w,-1,-1/w, -w,-1,1/w, -w,1,-1/w, w,1,1/w, 1/w,-w,-1, -1/w,w,-1, 1/w,w,1, -1/w,-w,1 }; int snubhexa2t[]={ 4,9,14,10,12, 4,18,2,16,1, 4,3,19,0,17, 4,15,8,13,11, 4,22,6,20,5, 4,23,4,21,7, 3,12,10,5, 3,12,5,20, 3,5,10,0, 3,10,17,0, 3,22,5,0, 3,11,7,15, 3,19,3,11, 3,11,3,7, 3,9,4,14, 3,14,4,23, 3,10,14,17, 3,14,23,17, 3,15,7,21, 3,7,3,23, 3,20,16,12, 3,1,8,18, 3,23,3,17, 3,6,1,20, 3,12,16,9, 3,20,1,16, 3,9,16,2, 3,9,2,4, 3,4,2,21, 3,18,15,21, 3,18,8,15, 3,8,1,6, 3,6,13,8, 3,22,13,6, 3,11,13,19, 3,13,22,19, 3,22,0,19, 3,21,2,18 }; double rhombicosadodecav[]={ -1,-1,-g*q, -1,-1,g*q, -1,1,-g*q, -1,1,g*q, 1,-1,-g*q, 1,-1,g*q, 1,1,-g*q, 1,1,g*q, -g*q,-1,-1, g*q,-1,-1, -g*q,-1,1, g*q,-1,1, -g*q,1,-1, g*q,1,-1, -g*q,1,1, g*q,1,1, -1,-g*q,-1, -1,g*q,-1, 1,-g*q,-1, 1,g*q,-1, -1,-g*q,1, -1,g*q,1, 1,-g*q,1, 1,g*q,1,

-q,-g,-j, -q,-g,j, -q,g,-j, -q,g,j, q,-g,-j, q,-g,j, q,g,-j, q,g,j, -j,-q,-g, j,-q,-g, -j,-q,g, j,-q,g, -j,q,-g, j,q,-g, -j,q,g, j,q,g, -g,-j,-q, -g,j,-q, g,-j,-q, g,j,-q, -g,-j,q, -g,j,q, g,-j,q, g,j,q,

-(2+g),0,-q, -(2+g),0,q, (2+g),0,-q, (2+g),0,q, -q,-(2+g),0, q,-(2+g),0, -q,(2+g),0, q,(2+g),0, 0,-q,-(2+g), 0,q,-(2+g), 0,-q,(2+g), 0,q,(2+g) }; int rhombicosadodecat[]={ 5,44,58,46,22,20, 5,1,25,49,27,3, 5,57,43,19,17,41, 5,21,23,47,59,45, 5,31,51,29,5,7, 5,10,34,52,32,8, 5,48,24,0,2,26, 5,12,36,54,38,14, 5,6,4,28,50,30, 5,15,39,55,37,13, 5,33,53,35,11,9, 5,40,16,18,42,56,

4,34,44,20,52, 4,44,25,1,58, 4,3,27,45,59, 4,5,1,3,7, 4,25,34,10,49, 4,27,49,14,38, 4,20,22,18,16, 4,18,53,33,42, 4,6,30,43,57, 4,2,57,41,26, 4,4,6,2,0, 4,47,31,7,59, 4,55,39,47,23, 4,5,29,46,58, 4,31,39,15,51, 4,52,16,40,32, 4,12,48,26,36, 4,36,41,17,54, 4,38,54,21,45, 4,21,17,19,23, 4,55,19,43,37, 4,30,50,13,37, 4,33,9,50,28, 4,14,10,8,12, 4,9,11,15,13, 4,11,35,29,51, 4,53,22,46,35, 4,56,42,28,4, 4,24,40,56,0, 4,48,8,32,24,

3,34,25,44, 3,58,1,5, 3,27,38,45, 3,52,20,16, 3,22,53,18, 3,2,6,57, 3,3,59,7, 3,19,55,23, 3,47,39,31, 3,29,35,46, 3,14,49,10, 3,41,36,26, 3,54,17,21, 3,37,43,30, 3,0,56,4, 3,9,13,50, 3,33,28,42, 3,12,8,48, 3,11,51,15, 3,24,32,40 }; double trunccuboctav[]={ -1,-(1+s),-(1+s+s), -1,-(1+s),(1+s+s), -1,(1+s),-(1+s+s), -1,(1+s),(1+s+s), 1,-(1+s),-(1+s+s), 1,-(1+s),(1+s+s), 1,(1+s),-(1+s+s), 1,(1+s),(1+s+s), -(1+s+s),-1,-(1+s), (1+s+s),-1,-(1+s), -(1+s+s),-1,(1+s), (1+s+s),-1,(1+s), -(1+s+s),1,-(1+s), (1+s+s),1,-(1+s), -(1+s+s),1,(1+s), (1+s+s),1,(1+s), -(1+s),-(1+s+s),-1, -(1+s),(1+s+s),-1, (1+s),-(1+s+s),-1, (1+s),(1+s+s),-1, -(1+s),-(1+s+s),1, -(1+s),(1+s+s),1, (1+s),-(1+s+s),1, (1+s),(1+s+s),1,

-1,-(1+s+s),-(1+s), -1,-(1+s+s),(1+s), -1,(1+s+s),-(1+s), -1,(1+s+s),(1+s), 1,-(1+s+s),-(1+s), 1,-(1+s+s),(1+s), 1,(1+s+s),-(1+s), 1,(1+s+s),(1+s), -(1+s),-1,-(1+s+s), (1+s),-1,-(1+s+s), -(1+s),-1,(1+s+s), (1+s),-1,(1+s+s), -(1+s),1,-(1+s+s), (1+s),1,-(1+s+s), -(1+s),1,(1+s+s), (1+s),1,(1+s+s), -(1+s+s),-(1+s),-1, -(1+s+s),(1+s),-1, (1+s+s),-(1+s),-1, (1+s+s),(1+s),-1, -(1+s+s),-(1+s),1, -(1+s+s),(1+s),1, (1+s+s),-(1+s),1, (1+s+s),(1+s),1 }; int trunccuboctat[]={ 8,5,1,34,38,3,7,39,35, 8,12,41,45,14,10,44,40,8, 8,37,6,2,36,32,0,4,33, 8,23,31,27,21,17,26,30,19, 8,24,16,20,25,29,22,18,28, 8,43,13,9,42,46,11,15,47,

6,3,38,14,45,21,27, 6,1,25,20,44,10,34, 6,11,46,22,29,5,35, 6,15,39,7,31,23,47, 6,2,26,17,41,12,36, 6,37,13,43,19,30,6, 6,8,40,16,24,0,32, 6,9,33,4,28,18,42,

4,7,3,27,31, 4,38,34,10,14, 4,5,29,25,1, 4,39,15,11,35, 4,36,12,8,32, 4,6,30,26,2, 4,47,23,19,43, 4,40,44,20,16, 4,0,24,28,4, 4,9,13,37,33, 4,41,17,21,45, 4,46,42,18,22 }; double truncicosidodecav[]={ -d,-d,-(3+g), -d,-d,(3+g), -d,d,-(3+g), -d,d,(3+g), d,-d,-(3+g), d,-d,(3+g), d,d,-(3+g), d,d,(3+g), -(3+g),-d,-d, -(3+g),-d,d, -(3+g),d,-d, -(3+g),d,d, (3+g),-d,-d, (3+g),-d,d, (3+g),d,-d, (3+g),d,d, -d,-(3+g),-d, -d,-(3+g),d, -d,(3+g),-d, -d,(3+g),d, d,-(3+g),-d, d,-(3+g),d, d,(3+g),-d, d,(3+g),d,

-2*d,-g,-(g+q), -2*d,-g,(g+q), -2*d,g,-(g+q), -2*d,g,(g+q), 2*d,-g,-(g+q), 2*d,-g,(g+q), 2*d,g,-(g+q), 2*d,g,(g+q), -(g+q),-2*d,-g, -(g+q),-2*d,g, -(g+q),2*d,-g, -(g+q),2*d,g, (g+q),-2*d,-g, (g+q),-2*d,g, (g+q),2*d,-g, (g+q),2*d,g, -g,-(g+q),-2*d, -g,-(g+q),2*d, -g,(g+q),-2*d, -g,(g+q),2*d, g,-(g+q),-2*d, g,-(g+q),2*d, g,(g+q),-2*d, g,(g+q),2*d,

-d,-q,-(j+d), -d,-q,(j+d), -d,q,-(j+d), -d,q,(j+d), d,-q,-(j+d), d,-q,(j+d), d,q,-(j+d), d,q,(j+d), -(j+d),-d,-q, -(j+d),-d,q, -(j+d),d,-q, -(j+d),d,q, (j+d),-d,-q, (j+d),-d,q, (j+d),d,-q, (j+d),d,q, -q,-(j+d),-d, -q,-(j+d),d, -q,(j+d),-d, -q,(j+d),d, q,-(j+d),-d, q,-(j+d),d, q,(j+d),-d, q,(j+d),d,

-(j-1),-2,-(2+g), -(j-1),-2,(2+g), -(j-1),2,-(2+g), -(j-1),2,(2+g), (j-1),-2,-(2+g), (j-1),-2,(2+g), (j-1),2,-(2+g), (j-1),2,(2+g), -(2+g),-(j-1),-2, -(2+g),-(j-1),2, -(2+g),(j-1),-2, -(2+g),(j-1),2, (2+g),-(j-1),-2, (2+g),-(j-1),2, (2+g),(j-1),-2, (2+g),(j-1),2, -2,-(2+g),-(j-1), -2,-(2+g),(j-1), -2,(2+g),-(j-1), -2,(2+g),(j-1), 2,-(2+g),-(j-1), 2,-(2+g),(j-1), 2,(2+g),-(j-1), 2,(2+g),(j-1),

-g,-3,-j, -g,-3,j, -g,3,-j, -g,3,j, g,-3,-j, g,-3,j, g,3,-j, g,3,j, -j,-g,-3, -j,-g,3, -j,g,-3, -j,g,3, j,-g,-3, j,-g,3, j,g,-3, j,g,3, -3,-j,-g, -3,-j,g, -3,j,-g, -3,j,g, 3,-j,-g, 3,-j,g, 3,j,-g, 3,j,g }; int truncicosidodecat[]={ 10,44,92,100,52,48,96,88,40,16,20, 10,68,69,117,85,37,13,12,36,84,116, 10,8,9,33,81,113,65,64,112,80,32, 10,21,17,41,89,97,49,53,101,93,45, 10,10,34,82,114,66,67,115,83,35,11, 10,77,29,5,7,31,79,111,63,61,109, 10,90,98,50,54,102,94,46,22,18,42, 10,51,99,91,43,19,23,47,95,103,55, 10,119,71,70,118,86,38,14,15,39,87, 10,74,106,58,56,104,72,24,0,2,26, 10,57,59,107,75,27,3,1,25,73,105, 10,76,108,60,62,110,78,30,6,4,28,

6,44,20,21,45,69,68, 6,63,39,15,13,37,61, 6,12,14,38,62,60,36, 6,80,112,88,96,72,104, 6,16,40,64,65,41,17, 6,34,10,8,32,56,58, 6,9,11,35,59,57,33, 6,114,82,106,74,98,90, 6,101,77,109,85,117,93, 6,116,84,108,76,100,92, 6,75,107,83,115,91,99, 6,7,3,27,51,55,31, 6,43,67,66,42,18,19, 6,23,22,46,70,71,47, 6,103,95,119,87,111,79, 6,118,94,102,78,110,86, 6,50,26,2,6,30,54, 6,0,24,48,52,28,4, 6,1,5,29,53,49,25, 6,113,81,105,73,97,89,

4,20,16,17,21, 4,92,44,68,116, 4,109,61,37,85, 4,69,45,93,117, 4,41,65,113,89, 4,56,32,80,104, 4,10,11,9,8, 4,82,34,58,106, 4,101,53,29,77, 4,42,66,114,90, 4,40,88,112,64, 4,27,75,99,51, 4,107,59,35,83, 4,91,115,67,43, 4,55,103,79,31, 4,47,71,119,95, 4,19,18,22,23, 4,46,94,118,70, 4,14,12,13,15, 4,87,39,63,111, 4,60,108,84,36, 4,110,62,38,86, 4,98,74,26,50, 4,2,0,4,6, 4,1,3,7,5, 4,73,25,49,97, 4,96,48,24,72, 4,100,76,28,52, 4,81,33,57,105, 4,102,54,30,78 }; double snubdodeca1v[]={ -2*aa,-2,2*bb, -2*aa,2,-2*bb, 2*aa,-2,-2*bb, 2*aa,2,2*bb, 2*bb,-2*aa,-2, -2*bb,-2*aa,2, -2*bb,2*aa,-2, 2*bb,2*aa,2, -2,2*bb,-2*aa, 2,-2*bb,-2*aa, -2,-2*bb,2*aa, 2,2*bb,2*aa,

-(aa+bb*d+g),-(-aa*g+bb+d),(aa*d+bb*g-1), -(aa+bb*d+g),(-aa*g+bb+d),-(aa*d+bb*g-1), (aa+bb*d+g),-(-aa*g+bb+d),-(aa*d+bb*g-1), (aa+bb*d+g),(-aa*g+bb+d),(aa*d+bb*g-1), (aa*d+bb*g-1),-(aa+bb*d+g),-(-aa*g+bb+d), -(aa*d+bb*g-1),-(aa+bb*d+g),(-aa*g+bb+d), -(aa*d+bb*g-1),(aa+bb*d+g),-(-aa*g+bb+d), (aa*d+bb*g-1),(aa+bb*d+g),(-aa*g+bb+d), -(-aa*g+bb+d),(aa*d+bb*g-1),-(aa+bb*d+g), (-aa*g+bb+d),-(aa*d+bb*g-1),-(aa+bb*d+g), -(-aa*g+bb+d),-(aa*d+bb*g-1),(aa+bb*d+g), (-aa*g+bb+d),(aa*d+bb*g-1),(aa+bb*d+g),

-(-aa*d+bb*g+1),-(-aa+bb*d-g),(aa*g+bb-d), -(-aa*d+bb*g+1),(-aa+bb*d-g),-(aa*g+bb-d), (-aa*d+bb*g+1),-(-aa+bb*d-g),-(aa*g+bb-d), (-aa*d+bb*g+1),(-aa+bb*d-g),(aa*g+bb-d), (aa*g+bb-d),-(-aa*d+bb*g+1),-(-aa+bb*d-g), -(aa*g+bb-d),-(-aa*d+bb*g+1),(-aa+bb*d-g), -(aa*g+bb-d),(-aa*d+bb*g+1),-(-aa+bb*d-g), (aa*g+bb-d),(-aa*d+bb*g+1),(-aa+bb*d-g), -(-aa+bb*d-g),(aa*g+bb-d),-(-aa*d+bb*g+1), (-aa+bb*d-g),-(aa*g+bb-d),-(-aa*d+bb*g+1), -(-aa+bb*d-g),-(aa*g+bb-d),(-aa*d+bb*g+1), (-aa+bb*d-g),(aa*g+bb-d),(-aa*d+bb*g+1),

-(-aa*d+bb*g-1),-(aa-bb*d-g),(aa*g+bb+d), -(-aa*d+bb*g-1),(aa-bb*d-g),-(aa*g+bb+d), (-aa*d+bb*g-1),-(aa-bb*d-g),-(aa*g+bb+d), (-aa*d+bb*g-1),(aa-bb*d-g),(aa*g+bb+d), (aa*g+bb+d),-(-aa*d+bb*g-1),-(aa-bb*d-g), -(aa*g+bb+d),-(-aa*d+bb*g-1),(aa-bb*d-g), -(aa*g+bb+d),(-aa*d+bb*g-1),-(aa-bb*d-g), (aa*g+bb+d),(-aa*d+bb*g-1),(aa-bb*d-g), -(aa-bb*d-g),(aa*g+bb+d),-(-aa*d+bb*g-1), (aa-bb*d-g),-(aa*g+bb+d),-(-aa*d+bb*g-1), -(aa-bb*d-g),-(aa*g+bb+d),(-aa*d+bb*g-1), (aa-bb*d-g),(aa*g+bb+d),(-aa*d+bb*g-1),

-(aa+bb*d-g),-(aa*g-bb+d),(aa*d+bb*g+1), -(aa+bb*d-g),(aa*g-bb+d),-(aa*d+bb*g+1), (aa+bb*d-g),-(aa*g-bb+d),-(aa*d+bb*g+1), (aa+bb*d-g),(aa*g-bb+d),(aa*d+bb*g+1), (aa*d+bb*g+1),-(aa+bb*d-g),-(aa*g-bb+d), -(aa*d+bb*g+1),-(aa+bb*d-g),(aa*g-bb+d), -(aa*d+bb*g+1),(aa+bb*d-g),-(aa*g-bb+d), (aa*d+bb*g+1),(aa+bb*d-g),(aa*g-bb+d), -(aa*g-bb+d),(aa*d+bb*g+1),-(aa+bb*d-g), (aa*g-bb+d),-(aa*d+bb*g+1),-(aa+bb*d-g), -(aa*g-bb+d),-(aa*d+bb*g+1),(aa+bb*d-g), (aa*g-bb+d),(aa*d+bb*g+1),(aa+bb*d-g), }; int snubdodeca1t[]={ 5,7,19,31,43,55, 5,15,27,39,51,3, 5,52,4,16,28,40, 5,46,58,10,22,34, 5,9,21,33,45,57, 5,5,17,29,41,53, 5,2,14,26,38,50, 5,6,18,30,42,54, 5,47,59,11,23,35, 5,8,20,32,44,56, 5,12,24,36,48,0, 5,1,13,25,37,49,

3,7,27,19, 3,19,27,15, 3,7,52,27, 3,52,39,27, 3,4,52,7,    3,31,19,23, 3,40,39,52, 3,58,46,40, 3,58,40,28, 3,9,58,28, 3,9,28,21, 3,21,28,16, 3,21,16,14, 3,14,16,26, 3,26,16,4,   3,46,39,40, 3,51,39,46, 3,34,51,46, 3,51,0,3, 3,58,9,10, 3,12,34,22, 3,12,22,17, 3,24,12,17, 3,5,24,17, 3,54,24,5,   3,6,54,5, 3,17,22,29, 3,22,10,29, 3,33,21,14, 3,2,33,14, 3,49,33,2, 3,1,2,50, 3,1,50,32, 3,5,53,6, 3,24,54,36,       3,36,54,42, 3,36,42,47, 3,47,42,59, 3,42,30,59, 3,59,30,8, 3,8,30,20, 3,20,30,18, 3,20,18,13, 3,13,18,25, 3,32,13,1,   3,2,1,49, 3,44,32,50, 3,4,7,55, 3,26,4,55, 3,38,26,55, 3,38,55,43, 3,38,44,50, 3,32,20,13, 3,38,43,44, 3,44,43,56, 3,56,43,31, 3,8,11,59, 3,11,8,56, 3,11,56,31, 3,11,31,23, 3,23,19,15, 3,23,15,35, 3,35,15,3, 3,35,3,48, 3,48,3,0,     3,47,35,48, 3,47,48,36, 3,0,34,12, 3,0,51,34, 3,10,9,57, 3,10,57,29, 3,29,57,41, 3,41,57,45, 3,41,37,53, 3,49,45,33, 3,45,37,41, 3,37,25,53, 3,25,18,6, 3,25,6,53, 3,49,37,45 };  double snubdodeca2v[]={ 2*aa,-2,2*bb, 2*aa,2,-2*bb, -2*aa,-2,-2*bb, -2*aa,2,2*bb, -2*bb,-2*aa,-2, 2*bb,-2*aa,2, 2*bb,2*aa,-2, -2*bb,2*aa,2, 2,2*bb,-2*aa, -2,-2*bb,-2*aa, 2,-2*bb,2*aa, -2,2*bb,2*aa,

(aa+bb*d+g),-(-aa*g+bb+d),(aa*d+bb*g-1), (aa+bb*d+g),(-aa*g+bb+d),-(aa*d+bb*g-1), -(aa+bb*d+g),-(-aa*g+bb+d),-(aa*d+bb*g-1), -(aa+bb*d+g),(-aa*g+bb+d),(aa*d+bb*g-1), -(aa*d+bb*g-1),-(aa+bb*d+g),-(-aa*g+bb+d), (aa*d+bb*g-1),-(aa+bb*d+g),(-aa*g+bb+d), (aa*d+bb*g-1),(aa+bb*d+g),-(-aa*g+bb+d), -(aa*d+bb*g-1),(aa+bb*d+g),(-aa*g+bb+d), (-aa*g+bb+d),(aa*d+bb*g-1),-(aa+bb*d+g), -(-aa*g+bb+d),-(aa*d+bb*g-1),-(aa+bb*d+g), (-aa*g+bb+d),-(aa*d+bb*g-1),(aa+bb*d+g), -(-aa*g+bb+d),(aa*d+bb*g-1),(aa+bb*d+g),

(-aa*d+bb*g+1),-(-aa+bb*d-g),(aa*g+bb-d), (-aa*d+bb*g+1),(-aa+bb*d-g),-(aa*g+bb-d), -(-aa*d+bb*g+1),-(-aa+bb*d-g),-(aa*g+bb-d), -(-aa*d+bb*g+1),(-aa+bb*d-g),(aa*g+bb-d), -(aa*g+bb-d),-(-aa*d+bb*g+1),-(-aa+bb*d-g), (aa*g+bb-d),-(-aa*d+bb*g+1),(-aa+bb*d-g), (aa*g+bb-d),(-aa*d+bb*g+1),-(-aa+bb*d-g), -(aa*g+bb-d),(-aa*d+bb*g+1),(-aa+bb*d-g), (-aa+bb*d-g),(aa*g+bb-d),-(-aa*d+bb*g+1), -(-aa+bb*d-g),-(aa*g+bb-d),-(-aa*d+bb*g+1), (-aa+bb*d-g),-(aa*g+bb-d),(-aa*d+bb*g+1), -(-aa+bb*d-g),(aa*g+bb-d),(-aa*d+bb*g+1),

(-aa*d+bb*g-1),-(aa-bb*d-g),(aa*g+bb+d), (-aa*d+bb*g-1),(aa-bb*d-g),-(aa*g+bb+d), -(-aa*d+bb*g-1),-(aa-bb*d-g),-(aa*g+bb+d), -(-aa*d+bb*g-1),(aa-bb*d-g),(aa*g+bb+d), -(aa*g+bb+d),-(-aa*d+bb*g-1),-(aa-bb*d-g), (aa*g+bb+d),-(-aa*d+bb*g-1),(aa-bb*d-g), (aa*g+bb+d),(-aa*d+bb*g-1),-(aa-bb*d-g), -(aa*g+bb+d),(-aa*d+bb*g-1),(aa-bb*d-g), (aa-bb*d-g),(aa*g+bb+d),-(-aa*d+bb*g-1), -(aa-bb*d-g),-(aa*g+bb+d),-(-aa*d+bb*g-1), (aa-bb*d-g),-(aa*g+bb+d),(-aa*d+bb*g-1), -(aa-bb*d-g),(aa*g+bb+d),(-aa*d+bb*g-1),

(aa+bb*d-g),-(aa*g-bb+d),(aa*d+bb*g+1), (aa+bb*d-g),(aa*g-bb+d),-(aa*d+bb*g+1), -(aa+bb*d-g),-(aa*g-bb+d),-(aa*d+bb*g+1), -(aa+bb*d-g),(aa*g-bb+d),(aa*d+bb*g+1), -(aa*d+bb*g+1),-(aa+bb*d-g),-(aa*g-bb+d), (aa*d+bb*g+1),-(aa+bb*d-g),(aa*g-bb+d), (aa*d+bb*g+1),(aa+bb*d-g),-(aa*g-bb+d), -(aa*d+bb*g+1),(aa+bb*d-g),(aa*g-bb+d), (aa*g-bb+d),(aa*d+bb*g+1),-(aa+bb*d-g), -(aa*g-bb+d),-(aa*d+bb*g+1),-(aa+bb*d-g), (aa*g-bb+d),-(aa*d+bb*g+1),(aa+bb*d-g), -(aa*g-bb+d),(aa*d+bb*g+1),(aa+bb*d-g), }; int snubdodeca2t[]={ 5,7,55,43,31,19, 5,15,3,51,39,27, 5,52,40,28,16,4, 5,46,34,22,10,58, 5,9,57,45,33,21, 5,5,53,41,29,17, 5,2,50,38,26,14, 5,6,54,42,30,18, 5,47,35,23,11,59, 5,8,56,44,32,20, 5,12,0,48,36,24, 5,1,49,37,25,13,

3,7,19,27, 3,19,15,27, 3,7,27,52, 3,52,27,39, 3,4,7,52,    3,31,23,19, 3,40,52,39, 3,58,40,46, 3,58,28,40, 3,9,28,58, 3,9,21,28, 3,21,16,28, 3,21,14,16, 3,14,26,16, 3,26,4,16,   3,46,40,39, 3,51,46,39, 3,34,46,51, 3,51,3,0, 3,58,10,9, 3,12,22,34, 3,12,17,22, 3,24,17,12, 3,5,17,24, 3,54,5,24,   3,6,5,54, 3,17,29,22, 3,22,29,10, 3,33,14,21, 3,2,14,33, 3,49,2,33, 3,1,50,2, 3,1,32,50, 3,5,6,53, 3,24,36,54,       3,36,42,54, 3,36,47,42, 3,47,59,42, 3,42,59,30, 3,59,8,30, 3,8,20,30, 3,20,18,30, 3,20,13,18, 3,13,25,18, 3,32,1,13,   3,2,49,1, 3,44,50,32, 3,4,55,7, 3,26,55,4, 3,38,55,26, 3,38,43,55, 3,38,50,44, 3,32,13,20, 3,38,44,43, 3,44,56,43, 3,56,31,43, 3,8,59,11, 3,11,56,8, 3,11,31,56, 3,11,23,31, 3,23,15,19, 3,23,35,15, 3,35,3,15, 3,35,48,3, 3,48,0,3,     3,47,48,35, 3,47,36,48, 3,0,12,34, 3,0,34,51, 3,10,57,9, 3,10,29,57, 3,29,41,57, 3,41,45,57, 3,41,53,37, 3,49,33,45, 3,45,41,37, 3,37,53,25, 3,25,6,18, 3,25,53,6, 3,49,45,37 };

/*-!,-@,#, -!,@,-#, !,-@,-#, !,@,#, -@,#,-!, @,-#,-!, -@,-#,!, @,#,!,

!,-@,#, !,@,-#, -!,-@,-#, -!,@,#, -#,-!,-@, #,-!,@, #,!,-@, -#,!,@, @,#,-!, -@,-#,-!, @,-#,!, -@,#,!,*/

boolean DEBUG=/*/true;/*/false;/**/

public void paint(Graphics g) { g.setColor(new Color(0xffffff)); g.fillRect(0, 0, 200, 200); double n=Math.random; /*  if(n<.2) drawfig(g, tetrav, tetrat, 3); else if(n<.4) drawfig(g, hexav, hexat, 4); else if(n<.6) drawfig(g, octav, octat, 3); else if(n<.8) drawfig(g, dodecav, dodecat, 5); else drawfig(g, icosav, icosat, 3); */   //drawfig(g, tetrav, tetrat, 3); //drawfig(g, hexav, hexat, 4); //drawfig(g, octav, octat, 3); //drawfig(g, dodecav, dodecat, 5); //drawfig(g, icosav, icosat, 3); //drawfig(g, icosidodecav, icosidodecat, -1); //drawfig(g, cuboctav, cuboctat, -1); //drawfig(g, truncicosav, truncicosat, -1); //drawfig(g, trunctetrav, trunctetrat, -1); //drawfig(g, trunchexav, trunchexat, -1); //drawfig(g, truncoctav, truncoctat, -1); //drawfig(g, truncdodecav, truncdodecat, -1); //drawfig(g, rhombicuboctav, rhombicuboctat, -1); //drawfig(g, snubhexa1v, snubhexa1t, -1); //drawfig(g, snubhexa2v, snubhexa2t, -1); //drawfig(g, rhombicosadodecav, rhombicosadodecat, -1); //drawfig(g, trunccuboctav, trunccuboctat, -1); //drawfig(g, truncicosidodecav, truncicosidodecat, -1); //drawfig(g, snubdodeca1v, snubdodeca1t, -1); drawfig(g, snubdodeca2v, snubdodeca2t, -1); } void drawfig(Graphics g, double vs[], int ts[], int m) { int z=m, y=m; if(m==-1) m=1; double tr[]=randmat; for(int back=(DEBUG?1:-1);back<=1;back+=2) for(int t=0;t*m<ts.length;++t) { if(z==-1) { y=(int)ts[t]; ++t; } double f, td[]; double a1=vs[ts[t*m ]*3], a2=vs[ts[t*m  ]*3+1], a3=vs[ts[t*m  ]*3+2]; f=1/Math.sqrt(a1*a1+a2*a2+a3*a3); a1*=f; a2*=f; a3*=f; td=trans(a1, a2, a3, tr); a1=td[0]; a2=td[1]; a3=td[2]; double b1=vs[ts[t*m+1]*3], b2=vs[ts[t*m+1]*3+1], b3=vs[ts[t*m+1]*3+2]; f=1/Math.sqrt(b1*b1+b2*b2+b3*b3); b1*=f; b2*=f; b3*=f; td=trans(b1, b2, b3, tr); b1=td[0]; b2=td[1]; b3=td[2]; double c1=vs[ts[t*m+2]*3], c2=vs[ts[t*m+2]*3+1], c3=vs[ts[t*m+2]*3+2]; f=1/Math.sqrt(c1*c1+c2*c2+c3*c3); c1*=f; c2*=f; c3*=f; td=trans(c1, c2, c3, tr); c1=td[0]; c2=td[1]; c3=td[2]; double d1=b1-a1, d2=b2-a2, d3=b3-a3; double e1=c1-a1, e2=c2-a2, e3=c3-a3; double f1=e2*d3-d2*e3, f2=e3*d1-d3*e1, f3=e1*d2-d1*e2; double da1=a1/(4+a3), da2=a2/(4+a3), db1=b1/(4+b3)-da1, db2=b2/(4+b3)-da2, dc1=c1/(4+c3)-da1, dc2=c2/(4+c3)-da2; if(back*(db1*dc2-dc1*db2)/*f3*/>0) { g.setColor(new Color((float)Math.random, (float)Math.random, (float)Math.random, (float)(/*.85+.15*/ .75+.25*Math.random)/*(float)(back<0?.90:0.90)*/)); int xa[]=new int[y], ya[]=new int[y]; xa[0]=(int)(a1*3/(4+a3)*100+100); xa[1]=(int)(b1*3/(4+b3)*100+100); xa[2]=(int)(c1*3/(4+c3)*100+100); ya[0]=(int)(a2*3/(4+a3)*100+100); ya[1]=(int)(b2*3/(4+b3)*100+100); ya[2]=(int)(c2*3/(4+c3)*100+100); for(int w=0/*3*/;w<y;++w) { a1=vs[ts[t*m+w]*3]; a2=vs[ts[t*m+w]*3+1]; a3=vs[ts[t*m+w]*3+2]; f=1/Math.sqrt(a1*a1+a2*a2+a3*a3); a1*=f; a2*=f; a3*=f; td=trans(a1, a2, a3, tr); a1=td[0]; a2=td[1]; a3=td[2]; xa[w]=(int)(a1*3/(4+a3)*100+100); ya[w]=(int)(a2*3/(4+a3)*100+100); }       g.fillPolygon(xa, ya, y); }if(z==-1) t+=y-1; }if(!DEBUG)return; g.setColor(new Color(0, 0, 0)); //g.drawString("Hello", 10, 10); for(int num=0;num<vs.length/3;++num) { double a1=vs[num*3], a2=vs[num*3+1], a3=vs[num*3+2]; double f, td[]; f=1/Math.sqrt(a1*a1+a2*a2+a3*a3); a1*=f; a2*=f; a3*=f; td=trans(a1, a2, a3, tr); a1=td[0]; a2=td[1]; a3=td[2]; //double da1=a1/(4+a3), da2=a2/(4+a3); if(a3<0){//1* db1*dc2-dc1*db2 /*f3*/<0) {       /*a3=0;*/ g.drawString(""+num, (int)(a1*3/(4+a3)*100+100), (int)(a2*3/(4+a3)*100+100));        g.fillRect((int)(a1*3/(4+a3)*100+100)-1, (int)(a2*3/(4+a3)*100+100)-1, 3, 3);      }    }  }  double[] randmat {    double[] r=new double[9];    double s, x, y, z;    int i, j;    for(i=0;i<3;++i) {      x=Math.random*2-1;      y=Math.random*2-1;      z=Math.random*2-1;      s=x*x+y*y+z*z;      if(s>1) { --i; continue; }      for(j=0;j<i;++j) {        s=x*r[j*3  ]         +y*r[j*3+1]         +z*r[j*3+2];        x-=s*r[j*3  ];        y-=s*r[j*3+1];        z-=s*r[j*3+2];      }      s=x*x+y*y+z*z;      if(s==0) { --i; continue; }      s=Math.sqrt(s);      x/=s; y/=s; z/=s;      r[i*3  ]=x;      r[i*3+1]=y;      r[i*3+2]=z;    }    if(r[0]*r[4]*r[8]+r[1]*r[5]*r[6]+r[2]*r[3]*r[7]-r[0]*r[5]*r[7]-r[1]*r[3]*r[8]-r[2]*r[4]*r[6]<0) {      r[0]=-r[0]; r[1]=-r[1]; r[2]=-r[2]; }   return(r); } double[] trans(double x, double y, double z, double[] t) { return(new double[]{x*t[0]+y*t[1]+z*t[2],                       x*t[3]+y*t[4]+z*t[5],                        x*t[6]+y*t[7]+z*t[8]}); } } =Graph.html= '''If I use this again, I'll probably convert it to c, first. Probably easier than trying to remember how to compile java, anyway.''' Graph   =Graph.java= import java.awt.*; import java.applet.*; public class Graph extends Applet { double minx=-10, miny=-10, maxx=10, maxy=10, stex=1, stey=1; double addx, addy, scax, scay, delx, dely; int sx, sy; float cr, cg, cb; float gr[]; void drawfunction(function fx, function fy, double st, double en) { double x, y, dx, dy, tx, ty, a, s;   for(a=st;a<=en;) { drawdot(xinpd(tx=fx.y(a)), yinpd(ty=fy.y(a))); x=fx.dydx(a)*scax; y=fy.dydx(a)*scay; s=Math.sqrt(x*x+y*y); do { dx=tx-fx.y(a+.1/s); dy=ty-fy.y(a+.1/s); if(dx*dx*scax*scax+dy*dy*scay*scay<.127201965) break; s*=2; } while(true); a+=.1/s; } }  void drawfunction(function f) { double x, y, s;   for(x=minx;xmaxy-dely*1||y1000) s=1000; x+=.1/scax/s; } }  void drawgrid { double z;   for(z= stey;z<=maxy;z+=stey) drawhorz(yinp(z)); for(z=-stey;z>=miny;z-=stey) drawhorz(yinp(z)); for(z= stex;z<=maxx;z+=stex) drawvert(xinp(z)); for(z=-stex;z>=minx;z-=stex) drawvert(xinp(z)); } void drawaxes { drawhorz(yinp(0)); drawvert(xinp(0)); } void drawhorz(int y) { int x;   for(x=0;x<sx;++x) { subp(x, y-1, cr/2, cg/2, cb/2); subp(x, y, cr  , cg  , cb  ); subp(x, y+1, cr/2, cg/2, cb/2); } }  void drawvert(int x) { int y;   for(y=0;y<sy;++y) { subp(x-1, y, cr/2, cg/2, cb/2); subp(x, y, cr  , cg  , cb  ); subp(x+1, y, cr/2, cg/2, cb/2); } }  void drawdot(double x, double y) { if(x!=x||y!=y) return; int ix=(int)x, iy=(int)y; float ox=(float)(1+ix-x), oy=(float)(1+iy-y); float px=1-ox, py=1-oy; subp(ix-1, iy-1, cr*ox*oy*.05f, cg*ox*oy*.05f, cb*ox*oy*.05f); subp(ix, iy-1, cr   *oy*.05f, cg   *oy*.05f, cb   *oy*.05f); subp(ix+1, iy-1, cr*px*oy*.05f, cg*px*oy*.05f, cb*px*oy*.05f); subp(ix-1, iy, cr*ox   *.05f, cg*ox   *.05f, cb*ox   *.05f); subp(ix, iy  , cr      *.05f, cg      *.05f, cb      *.05f); subp(ix+1, iy, cr*px   *.05f, cg*px   *.05f, cb*px   *.05f); subp(ix-1, iy+1, cr*ox*py*.05f, cg*ox*py*.05f, cb*ox*py*.05f); subp(ix, iy+1, cr   *py*.05f, cg   *py*.05f, cb   *py*.05f); subp(ix+1, iy+1, cr*px*py*.05f, cg*px*py*.05f, cb*px*py*.05f); } int xinp(double x) { return((int)((x+addx)*scax)); } int yinp(double y) { return((int)((y+addy)*scay)); } double xinpd(double x) { return(((x+addx)*scax)); } double yinpd(double y) { return(((y+addy)*scay)); } void subp(int x, int y, float r, float g, float b) { if(x<0||y<0||x>=sx||y>=sy) return; setp(x, y, getpr(x, y)-r, getpg(x, y)-g, getpb(x, y)-b); } void fixp(int x, int y) { if(x<0||y<0||x>=sx||y>=sy) return; float r=getpr(x, y), g=getpg(x, y), b=getpb(x, y); if(r<=0) r=0; else if(r>=1) r=1; if(g<=0) g=0; else if(g>=1) g=1; if(b<=0) b=0; else if(b>=1) b=1; setp(x, y, r, g, b); } void setp(int x, int y, float r, float g, float b) { if(x<0||y<0||x>=sx||y>=sy) return; gr[(x+y*sx)*3]=r; gr[(x+y*sx)*3+1]=g; gr[(x+y*sx)*3+2]=b; } float getpr(int x, int y) { return(gr[(x+y*sx)*3]); } float getpg(int x, int y) { return(gr[(x+y*sx)*3+1]); } float getpb(int x, int y) { return(gr[(x+y*sx)*3+2]); } void setc(float r, float g, float b) { cr=r; cg=g; cb=b; } void cals { delx=maxx-minx; dely=miny-maxy; scax=(sx-1)/delx; scay=(sy-1)/dely; addx=-minx+.5/scax; addy=-maxy+.5/scay; } public void init { int x, y;   sx=getSize.width; sy=getSize.height; gr=new float[sx*sy*3]; cals; for(y=0;y<sy;++y) for(x=0;x<sx;++x) setp(x, y, 1, 1, 1);

minx=-10/3.; miny=-10/3.; maxx=10/3.; maxy=10/3.; stex=1; stey=1; cals; setc(.6f, .6f, .6f); drawfunction(new erf(1)); setc(.1f, .8f, .8f); drawfunction(new erf(2)); setc(.8f, .1f, .8f); drawfunction(new erf(3)); setc(.8f, .8f, .1f); drawfunction(new erf(4)); setc(.1f, .1f, .8f); drawfunction(new erf(5)); /*   setc(.8f, .1f, .1f); drawfunction(new expinvsqlau(5)); setc(.1f, .8f, .1f); drawfunction(new expinvsqlau(6)); setc(.1f, .1f, .1f); drawfunction(new expinvsqlau(7)); setc(.6f, .1f, .81f); drawfunction(new expinvsqlau(50));*/ /*   minx=-1.25; miny=-1.25; maxx=1.25; maxy=1.25; stex=.1; stey=.1; cals; setc(.025f, .025f, .025f); drawgrid; stex=1; stey=1; setc(.3f, .6f, .8f); drawfunction(new fresC, new fresS, -2, 2);

minx=-50; miny=-1.25; maxx=5; maxy=1.25; stex=1; stey=1; cals; setc(.1f, .8f, .8f); drawfunction(new fresS); setc(.8f, .1f, .8f); drawfunction(new fresC);

minx=-1.5; miny=-2.5; maxx=3.5; maxy=2.5; stex=1; stey=1; cals; setc(.3f, .6f, .8f); drawfunction(new paray(new arecip(2)), new parax(new arecip(2)), .05, 50);

minx=-2.5; miny=-1.5; maxx=2.5; maxy=3.5; stex=1; stey=1; cals; setc(.6f, .6f, .6f); drawfunction(new expinvsq); setc(.1f, .8f, .8f); drawfunction(new expinvsqlau(1)); setc(.8f, .1f, .8f); drawfunction(new expinvsqlau(2)); setc(.8f, .8f, .1f); drawfunction(new expinvsqlau(3)); setc(.1f, .1f, .8f); drawfunction(new expinvsqlau(4)); setc(.8f, .1f, .1f); drawfunction(new expinvsqlau(5)); setc(.1f, .8f, .1f); drawfunction(new expinvsqlau(6)); setc(.1f, .1f, .1f); drawfunction(new expinvsqlau(7)); setc(.6f, .1f, .81f); drawfunction(new expinvsqlau(50));

double ax=0, ay=0;//double ax=new multisin.y(123), ay=new multicos.y(123); minx=ax-5/3.; miny=ay-5/3.; maxx=ax+5/3.; maxy=ay+5/3.; stex=.1; stey=.1; cals; setc(.025f, .025f, .025f); drawgrid; stex=1; stey=1; setc(.3f, .6f, .8f); drawfunction(new multisin, new multicos, -3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825, 3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825);

minx=-10; miny=-10; maxx=10; maxy=10; stex=1; stey=1; cals; setc(.6f, .6f, .6f); drawfunction(new sin); setc(.1f, .8f, .8f); drawfunction(new sintay(1)); setc(.8f, .1f, .8f); drawfunction(new sintay(2)); setc(.8f, .8f, .1f); drawfunction(new sintay(3)); setc(.1f, .1f, .8f); drawfunction(new sintay(4)); setc(.8f, .1f, .1f); drawfunction(new sintay(5)); setc(.1f, .8f, .1f); drawfunction(new sintay(6)); setc(.1f, .1f, .1f); drawfunction(new sintay(7));

minx=-2.5; miny=-.5; maxx=2.5; maxy=4.5; stex=1; stey=1; cals; setc(.3f, .6f, .8f); drawfunction(new expinvsq);

minx=-2.5; miny=-.5; maxx=2.5; maxy=4.5; stex=1; stey=1; cals; setc(.3f, .6f, .8f); drawfunction(new expinv);

minx=-1; miny=-7; maxx=9; maxy=3; stex=1; stey=1; cals; setc(.3f, .6f, .8f); drawfunction(new ln);

minx=-5; miny=-1; maxx=5; maxy=9; stex=1; stey=1; cals; setc(.3f, .6f, .8f); drawfunction(new exp);

minx=-5; miny=-5; maxx=5; maxy=5; stex=1; stey=1; cals; setc(.1f, .8f, .8f); drawfunction(new sinh); setc(.8f, .1f, .8f); drawfunction(new cosh); setc(.8f, .8f, .1f); drawfunction(new tanh);

minx=-5; miny=-5; maxx=5; maxy=5; stex=1; stey=1; cals; setc(.1f, .8f, .8f); drawfunction(new csch); setc(.8f, .1f, .8f); drawfunction(new sech); setc(.8f, .8f, .1f); drawfunction(new coth);

setc(.8f, .8f, .8f); drawaxes; setc(.1f, .1f, .1f); drawgrid; for(y=0;y<sy;++y) for(x=0;x<sx;++x) fixp(x, y); } public void paint(Graphics g) { int x, y;   for(y=0;y<sy;++y) for(x=0;x<sx;++x) { g.setColor(new Color(gr[(x+y*sx)*3], gr[(x+y*sx)*3+1], gr[(x+y*sx)*3+2])); g.fillRect(x, y, 1, 1); } } }

abstract class function { abstract double y(double x); abstract double dydx(double x); }

class sinh extends function { double y(double x) { return((Math.exp(x)-Math.exp(-x))/2); } double dydx(double x) { return((Math.exp(x)+Math.exp(-x))/2); } }

class cosh extends function { double y(double x) { return((Math.exp(x)+Math.exp(-x))/2); } double dydx(double x) { return((Math.exp(x)-Math.exp(-x))/2); } }

class tanh extends function { double y(double x) { return((Math.exp(x)-Math.exp(-x))/(Math.exp(x)+Math.exp(-x))); } double dydx(double x) { return(1-y(x)*y(x)); } }

class csch extends function { double y(double x) { return(1/((Math.exp(x)-Math.exp(-x))/2)); } double dydx(double x) { return(-((Math.exp(x)+Math.exp(-x))/2)*y(x)*y(x)); } }

class sech extends function { double y(double x) { return(1/((Math.exp(x)+Math.exp(-x))/2)); } double dydx(double x) { return(-((Math.exp(x)-Math.exp(-x))/2)*y(x)*y(x)); } }

class coth extends function { double y(double x) { return(1/((Math.exp(x)-Math.exp(-x))/(Math.exp(x)+Math.exp(-x)))); } double dydx(double x) { return(1-y(x)*y(x)); } }

class exp extends function { double y(double x) { return(Math.exp(x)); } double dydx(double x) { return(Math.exp(x)); } }

class ln extends function { double y(double x) { return(Math.log(x)); } double dydx(double x) { return(1/x); } }

class expinv extends function { double y(double x) { return(Math.exp(-1/x)); } double dydx(double x) { return(Math.exp(-1/x)/x/x); } }

class expinvsq extends function { double y(double x) { return(Math.exp(-1/x/x)); } double dydx(double x) { return(2*Math.exp(-1/x/x)/x/x/x); } }

class sin extends function { double y(double x) { return(Math.sin(x)); } double dydx(double x) { return(Math.cos(x)); } }

class sintay extends function { int n; sintay(int nn) { n=nn; } double y(double x) { double f=1, r=0, t;   int j, k=1, i;    for(j=0;j<n;++j) { for(i=0,t=1;i<k;++i) t*=x; r+=t*f; ++k; f/=k; ++k; f/=-k; }   return(r); } double dydx(double x) { double f=1, r=0, t;   int j, k=1, i;    for(j=0;j<n;++j) { for(i=0,t=1;i<k-1;++i) t*=x; r+=t*f*k; ++k; f/=k; ++k; f/=-k; }   return(r); } }

/* class multisin extends function { double y(double x) { double r=0, f=1; int p=2; for(p<100;++p) if(isp(p)) { r+=Math.sin(x*p)*p*f; f/=-1.1; }   return(r); } boolean isp(int p) { for(int x=2;x<p;++x) if(p/x*x==p) return(false); return(true); } double dydx(double x) { double r=0, f=1; int p=2; for(p<100;++p) if(isp(p)) { r+=Math.cos(x*p)*p*p*f; f/=-1.1; }   return(r); } }

class multicos extends function { double y(double x) { double r=0, f=1; int p=2; for(p<100;++p) if(isp(p)) { r+=Math.cos(x*p)*p*f; f/=-1.1; }   return(r); } boolean isp(int p) { for(int x=2;x<p;++x) if(p/x*x==p) return(false); return(true); } double dydx(double x) { double r=0, f=1; int p=2; for(p<100;++p) if(isp(p)) { r-=Math.sin(x*p)*p*p*f; f/=-1.1; }   return(r); } }

class multisin extends function { double y(double x) { double r=0, f=1; int p=1, q=-1; for(p<100000;q-=(p-=q)) { r+=Math.sin(x*p)/q; f/=-2; }   return(r); } double dydx(double x) { double r=0, f=1; int p=1, q=-1; for(p<100000;q-=(p-=q)) { r+=Math.cos(x*p)*p/q; f/=-2; }   return(r); } }

class multicos extends function { double y(double x) { double r=0, f=1; int p=1, q=-1; for(p<100000;q-=(p-=q)) { r+=Math.cos(x*p)/q; f/=-2; }   return(r); } double dydx(double x) { double r=0, f=1; int p=1, q=-1; for(p<100000;q-=(p-=q)) { r-=Math.sin(x*p)*p/q; f/=-2; }   return(r); } }

class parax extends function { function r; parax(function rr) { r=rr; } double y(double x) { return(r.y(x)*Math.sin(x)); } double dydx(double x) { return(r.dydx(x)*Math.sin(x)+r.y(x)*Math.cos(x)); } }

class paray extends function { function r; paray(function rr) { r=rr; } double y(double x) { return(r.y(x)*Math.cos(x)); } double dydx(double x) { return(r.dydx(x)*Math.cos(x)-r.y(x)*Math.sin(x)); } }

class expinvsqlau extends function { int n; expinvsqlau(int nn) { n=nn; } double y(double x) { double f=1, r=0, t;   int j, k=0, i;    for(j=0;j<n+1;++j) { for(i=0,t=1;i<k;++i) t/=-x*x; r+=t*f; ++k; f/=k; }   return(r); } double dydx(double x) { double f=1, r=0, t;   int j, k=0, i;    for(j=0;j.00001||p-t>.00001)&&n<1000;++n) { p=t; t+=b/(4*n+3); b*=x4/((2*n+2)*(2*n+3)); }   return(t); } double dydx(double x) { return(Math.sin(x*x)); } }

class fresC extends function { double y(double x) { double t=0, x4=-x*x*x*x, b=x, p=-10; for(int n=0;(t-p>.00001||p-t>.00001)&&n<1000;++n) { p=t; t+=b/(4*n+1); b*=x4/((2*n+1)*(2*n+2)); }   return(t); } double dydx(double x) { return(Math.cos(x*x)); } }

class erf extends function { int e; double w=1/Math.sqrt(3.141592653589793238462643383); erf(int ee) { e=ee; for(ee>1;--ee) w*=ee; } double y(double x) { double t=0, x4=-Math.pow(x, e), b=x*w, p=-10; for(int n=0;(t-p>.00001||p-t>.00001)&&n<1000;++n) { p=t; t+=b/(e*n+1); b*=x4/(n+1); }   return(t); } double dydx(double x) { return(w*Math.exp(-Math.pow(x, e))); } }

class check extends function { erf a=new erf(3); double y(double x) { return(1+(a.y(x+.001)-a.y(x-.001))*500-a.dydx(x)); } double dydx(double x) { return(0); } }