Sphere in Codea

sphere.lua

-- Use this function to perform your initial setup
function setup()
    local vertex = {}
vertex[1] = vec3(0.382683, 0.923880, 0.00000e+0)
vertex[2] = vec3(0.353553, 0.923880, 0.146447)
vertex[3] = vec3(0.270598, 0.923880, 0.270598)
vertex[4] = vec3(0.146447, 0.923880, 0.353553)
vertex[5] = vec3(2.34318e-17, 0.923880, 0.382683)
vertex[6] = vec3(-0.146447, 0.923880, 0.353553)
vertex[7] = vec3(-0.270598, 0.923880, 0.270598)
vertex[8] = vec3(-0.353553, 0.923880, 0.146447)
vertex[9] = vec3(-0.382683, 0.923880, 4.68637e-17)
vertex[10] = vec3(-0.353553, 0.923880, -0.146447)
vertex[11] = vec3(-0.270598, 0.923880, -0.270598)
vertex[12] = vec3(-0.146447, 0.923880, -0.353553)
vertex[13] = vec3(-7.02955e-17, 0.923880, -0.382683)
vertex[14] = vec3(0.146447, 0.923880, -0.353553)
vertex[15] = vec3(0.270598, 0.923880, -0.270598)
vertex[16] = vec3(0.353553, 0.923880, -0.146447)
vertex[17] = vec3(0.707107, 0.707107, 0.00000e+0)
vertex[18] = vec3(0.653281, 0.707107, 0.270598)
vertex[19] = vec3(0.500000, 0.707107, 0.500000)
vertex[20] = vec3(0.270598, 0.707107, 0.653281)
vertex[21] = vec3(4.32964e-17, 0.707107, 0.707107)
vertex[22] = vec3(-0.270598, 0.707107, 0.653281)
vertex[23] = vec3(-0.500000, 0.707107, 0.500000)
vertex[24] = vec3(-0.653281, 0.707107, 0.270598)
vertex[25] = vec3(-0.707107, 0.707107, 8.65927e-17)
vertex[26] = vec3(-0.653281, 0.707107, -0.270598)
vertex[27] = vec3(-0.500000, 0.707107, -0.500000)
vertex[28] = vec3(-0.270598, 0.707107, -0.653281)
vertex[29] = vec3(-1.29889e-16, 0.707107, -0.707107)
vertex[30] = vec3(0.270598, 0.707107, -0.653281)
vertex[31] = vec3(0.500000, 0.707107, -0.500000)
vertex[32] = vec3(0.653281, 0.707107, -0.270598)
vertex[33] = vec3(0.923880, 0.382683, 0.00000e+0)
vertex[34] = vec3(0.853553, 0.382683, 0.353553)
vertex[35] = vec3(0.653281, 0.382683, 0.653281)
vertex[36] = vec3(0.353553, 0.382683, 0.853553)
vertex[37] = vec3(5.65694e-17, 0.382683, 0.923880)
vertex[38] = vec3(-0.353553, 0.382683, 0.853553)
vertex[39] = vec3(-0.653281, 0.382683, 0.653281)
vertex[40] = vec3(-0.853553, 0.382683, 0.353553)
vertex[41] = vec3(-0.923880, 0.382683, 1.13139e-16)
vertex[42] = vec3(-0.853553, 0.382683, -0.353553)
vertex[43] = vec3(-0.653281, 0.382683, -0.653281)
vertex[44] = vec3(-0.353553, 0.382683, -0.853553)
vertex[45] = vec3(-1.69708e-16, 0.382683, -0.923880)
vertex[46] = vec3(0.353553, 0.382683, -0.853553)
vertex[47] = vec3(0.653281, 0.382683, -0.653281)
vertex[48] = vec3(0.853553, 0.382683, -0.353553)
vertex[49] = vec3(1.00000, 6.12303e-17, 0.00000e+0)
vertex[50] = vec3(0.923880, 6.12303e-17, 0.382683)
vertex[51] = vec3(0.707107, 6.12303e-17, 0.707107)
vertex[52] = vec3(0.382683, 6.12303e-17, 0.923880)
vertex[53] = vec3(6.12303e-17, 6.12303e-17, 1.00000)
vertex[54] = vec3(-0.382683, 6.12303e-17, 0.923880)
vertex[55] = vec3(-0.707107, 6.12303e-17, 0.707107)
vertex[56] = vec3(-0.923880, 6.12303e-17, 0.382683)
vertex[57] = vec3(-1.00000, 6.12303e-17, 1.22461e-16)
vertex[58] = vec3(-0.923880, 6.12303e-17, -0.382683)
vertex[59] = vec3(-0.707107, 6.12303e-17, -0.707107)
vertex[60] = vec3(-0.382683, 6.12303e-17, -0.923880)
vertex[61] = vec3(-1.83691e-16, 6.12303e-17, -1.00000)
vertex[62] = vec3(0.382683, 6.12303e-17, -0.923880)
vertex[63] = vec3(0.707107, 6.12303e-17, -0.707107)
vertex[64] = vec3(0.923880, 6.12303e-17, -0.382683)
vertex[65] = vec3(0.923880, -0.382683, 0.00000e+0)
vertex[66] = vec3(0.853553, -0.382683, 0.353553)
vertex[67] = vec3(0.653281, -0.382683, 0.653281)
vertex[68] = vec3(0.353553, -0.382683, 0.853553)
vertex[69] = vec3(5.65694e-17, -0.382683, 0.923880)
vertex[70] = vec3(-0.353553, -0.382683, 0.853553)
vertex[71] = vec3(-0.653281, -0.382683, 0.653281)
vertex[72] = vec3(-0.853553, -0.382683, 0.353553)
vertex[73] = vec3(-0.923880, -0.382683, 1.13139e-16)
vertex[74] = vec3(-0.853553, -0.382683, -0.353553)
vertex[75] = vec3(-0.653281, -0.382683, -0.653281)
vertex[76] = vec3(-0.353553, -0.382683, -0.853553)
vertex[77] = vec3(-1.69708e-16, -0.382683, -0.923880)
vertex[78] = vec3(0.353553, -0.382683, -0.853553)
vertex[79] = vec3(0.653281, -0.382683, -0.653281)
vertex[80] = vec3(0.853553, -0.382683, -0.353553)
vertex[81] = vec3(0.707107, -0.707107, 0.00000e+0)
vertex[82] = vec3(0.653281, -0.707107, 0.270598)
vertex[83] = vec3(0.500000, -0.707107, 0.500000)
vertex[84] = vec3(0.270598, -0.707107, 0.653281)
vertex[85] = vec3(4.32964e-17, -0.707107, 0.707107)
vertex[86] = vec3(-0.270598, -0.707107, 0.653281)
vertex[87] = vec3(-0.500000, -0.707107, 0.500000)
vertex[88] = vec3(-0.653281, -0.707107, 0.270598)
vertex[89] = vec3(-0.707107, -0.707107, 8.65927e-17)
vertex[90] = vec3(-0.653281, -0.707107, -0.270598)
vertex[91] = vec3(-0.500000, -0.707107, -0.500000)
vertex[92] = vec3(-0.270598, -0.707107, -0.653281)
vertex[93] = vec3(-1.29889e-16, -0.707107, -0.707107)
vertex[94] = vec3(0.270598, -0.707107, -0.653281)
vertex[95] = vec3(0.500000, -0.707107, -0.500000)
vertex[96] = vec3(0.653281, -0.707107, -0.270598)
vertex[97] = vec3(0.382683, -0.923880, 0.00000e+0)
vertex[98] = vec3(0.353553, -0.923880, 0.146447)
vertex[99] = vec3(0.270598, -0.923880, 0.270598)
vertex[100] = vec3(0.146447, -0.923880, 0.353553)
vertex[101] = vec3(2.34318e-17, -0.923880, 0.382683)
vertex[102] = vec3(-0.146447, -0.923880, 0.353553)
vertex[103] = vec3(-0.270598, -0.923880, 0.270598)
vertex[104] = vec3(-0.353553, -0.923880, 0.146447)
vertex[105] = vec3(-0.382683, -0.923880, 4.68637e-17)
vertex[106] = vec3(-0.353553, -0.923880, -0.146447)
vertex[107] = vec3(-0.270598, -0.923880, -0.270598)
vertex[108] = vec3(-0.146447, -0.923880, -0.353553)
vertex[109] = vec3(-7.02955e-17, -0.923880, -0.382683)
vertex[110] = vec3(0.146447, -0.923880, -0.353553)
vertex[111] = vec3(0.270598, -0.923880, -0.270598)
vertex[112] = vec3(0.353553, -0.923880, -0.146447)
vertex[113] = vec3(0.00000e+0, 1.00000, 0.00000e+0)
vertex[114] = vec3(0.00000e+0, -1.00000, 0.00000e+0)
local vertexlist = {
17, 1, 2, 17, 2, 18, 18, 2, 3, 18, 3, 19, 
19, 3, 4, 19, 4, 20, 20, 4, 5, 20, 5, 21, 
21, 5, 6, 21, 6, 22, 22, 6, 7, 22, 7, 23, 
23, 7, 8, 23, 8, 24, 24, 8, 9, 24, 9, 25, 
25, 9, 10, 25, 10, 26, 26, 10, 11, 26, 11, 27, 
27, 11, 12, 27, 12, 28, 28, 12, 13, 28, 13, 29, 
29, 13, 14, 29, 14, 30, 30, 14, 15, 30, 15, 31, 
31, 15, 16, 31, 16, 32, 32, 1, 17, 32, 16, 1, 
33, 17, 18, 33, 18, 34, 34, 18, 19, 34, 19, 35, 
35, 19, 20, 35, 20, 36, 36, 20, 21, 36, 21, 37, 
37, 21, 22, 37, 22, 38, 38, 22, 23, 38, 23, 39, 
39, 23, 24, 39, 24, 40, 40, 24, 25, 40, 25, 41, 
41, 25, 26, 41, 26, 42, 42, 26, 27, 42, 27, 43, 
43, 27, 28, 43, 28, 44, 44, 28, 29, 44, 29, 45, 
45, 29, 30, 45, 30, 46, 46, 30, 31, 46, 31, 47, 
47, 31, 32, 47, 32, 48, 48, 17, 33, 48, 32, 17, 
49, 33, 34, 49, 34, 50, 50, 34, 35, 50, 35, 51, 
51, 35, 36, 51, 36, 52, 52, 36, 37, 52, 37, 53, 
53, 37, 38, 53, 38, 54, 54, 38, 39, 54, 39, 55, 
55, 39, 40, 55, 40, 56, 56, 40, 41, 56, 41, 57, 
57, 41, 42, 57, 42, 58, 58, 42, 43, 58, 43, 59, 
59, 43, 44, 59, 44, 60, 60, 44, 45, 60, 45, 61, 
61, 45, 46, 61, 46, 62, 62, 46, 47, 62, 47, 63, 
63, 47, 48, 63, 48, 64, 64, 33, 49, 64, 48, 33, 
65, 49, 50, 65, 50, 66, 66, 50, 51, 66, 51, 67, 
67, 51, 52, 67, 52, 68, 68, 52, 53, 68, 53, 69, 
69, 53, 54, 69, 54, 70, 70, 54, 55, 70, 55, 71, 
71, 55, 56, 71, 56, 72, 72, 56, 57, 72, 57, 73, 
73, 57, 58, 73, 58, 74, 74, 58, 59, 74, 59, 75, 
75, 59, 60, 75, 60, 76, 76, 60, 61, 76, 61, 77, 
77, 61, 62, 77, 62, 78, 78, 62, 63, 78, 63, 79, 
79, 63, 64, 79, 64, 80, 80, 49, 65, 80, 64, 49, 
81, 65, 66, 81, 66, 82, 82, 66, 67, 82, 67, 83, 
83, 67, 68, 83, 68, 84, 84, 68, 69, 84, 69, 85, 
85, 69, 70, 85, 70, 86, 86, 70, 71, 86, 71, 87, 
87, 71, 72, 87, 72, 88, 88, 72, 73, 88, 73, 89, 
89, 73, 74, 89, 74, 90, 90, 74, 75, 90, 75, 91, 
91, 75, 76, 91, 76, 92, 92, 76, 77, 92, 77, 93, 
93, 77, 78, 93, 78, 94, 94, 78, 79, 94, 79, 95, 
95, 79, 80, 95, 80, 96, 96, 65, 81, 96, 80, 65, 
97, 81, 82, 97, 82, 98, 98, 82, 83, 98, 83, 99, 
99, 83, 84, 99, 84, 100, 100, 84, 85, 100, 85, 101, 
101, 85, 86, 101, 86, 102, 102, 86, 87, 102, 87, 103, 
103, 87, 88, 103, 88, 104, 104, 88, 89, 104, 89, 105, 
105, 89, 90, 105, 90, 106, 106, 90, 91, 106, 91, 107, 
107, 91, 92, 107, 92, 108, 108, 92, 93, 108, 93, 109, 
109, 93, 94, 109, 94, 110, 110, 94, 95, 110, 95, 111, 
111, 95, 96, 111, 96, 112, 112, 81, 97, 112, 96, 81, 
113, 1, 16, 113, 2, 1, 113, 3, 2, 113, 4, 3, 
113, 5, 4, 113, 6, 5, 113, 7, 6, 113, 8, 7, 
113, 9, 8, 113, 10, 9, 113, 11, 10, 113, 12, 11, 
113, 13, 12, 113, 14, 13, 113, 15, 14, 113, 16, 15, 
114, 97, 98, 114, 98, 99, 114, 99, 100, 114, 100, 101, 
114, 101, 102, 114, 102, 103, 114, 103, 104, 114, 104, 105, 
114, 105, 106, 114, 106, 107, 114, 107, 108, 114, 108, 109, 
114, 109, 110, 114, 110, 111, 114, 111, 112, 114, 112, 97 }
faces = {}
colors = {}
cc = 0
for i=1,table.getn(vertexlist) do
   table.insert(faces, vertex[vertexlist[i]])
cc = cc + 16
if (cc>255) then cc=cc-255 end
   table.insert(colors, color(cc,cc,cc))
   -- colors here, perhaps from noise()
end
m = mesh()
m.vertices = faces
m.colors = colors
end

-- This function gets called once every frame
function draw()
    -- This sets a dark background color 
    background(40, 40, 50)

    -- This sets the line thickness
    strokeWidth(5)

    -- Do your drawing here
    translate(WIDTH/2, HEIGHT/2)
    --rotate(ElapsedTime*10,0,1,0) -- why doesn't this work?
    rotate(ElapsedTime*10)
    scale(100)
    m:draw()
    
end