analemma.rb

####################################################
#NOTE: This cannot be run directly within Sonic Pi!#
#Save this file and use run_file "[path]"          #
####################################################

######
#DATA#
######
elevation = [0.1758565917858, 0.17903335602451, 0.18221012026322, 0.18561379623327, 0.18901747220331, \
           0.1926480599047, 0.19627864760608, 0.19990923530747, 0.20376673474019, 0.20785114590424, \
           0.2119355570683, 0.21601996823236, 0.22033129112775, 0.22464261402315, 0.22895393691854, \
           0.23349217154527, 0.23825731790334, 0.24279555253007, 0.24756069888813, 0.2523258452462, \
           0.2573179033356, 0.26208304969367, 0.26730201951441, 0.27229407760381, 0.27728613569322, \
           0.28250510551396, 0.2877240753347, 0.29316995688677, 0.29838892670751, 0.30383480825959, \
           0.30928068981166, 0.31472657136374, 0.32017245291582, 0.32584524619923, 0.33129112775131, \
           0.33696392103472, 0.34263671431813, 0.34830950760154, 0.35398230088496, 0.35965509416837, \
           0.36532788745178, 0.37100068073519, 0.37690038574994, 0.38257317903336, 0.38824597231677, \
           0.39414567733152, 0.39981847061493, 0.40571817562968, 0.41139096891309, 0.41706376219651, \
           0.42296346721126, 0.42863626049467, 0.43430905377808, 0.44020875879283, 0.44588155207624, \
           0.45155434535966, 0.45722713864307, 0.46289993192648, 0.46857272520989, 0.47424551849331, \
           0.47969140004538, 0.4853641933288, 0.49081007488087, 0.49625595643295, 0.50192874971636, \
           0.50737463126844, 0.51259360108918, 0.51803948264125, 0.52348536419333, 0.52870433401407, \
           0.53392330383481, 0.53914227365555, 0.54436124347629, 0.54958021329703, 0.55479918311777, \
           0.55979124120717, 0.56478329929657, 0.56977535738598, 0.57476741547538, 0.57953256183345, \
           0.58452461992285, 0.58928976628092, 0.59405491263898, 0.59882005899705, 0.60335829362378, \
           0.60812343998185, 0.61266167460858, 0.61719990923531, 0.6215112321307, 0.62604946675743, \
           0.63036078965283, 0.63467211254822, 0.63898343544361, 0.64329475833901, 0.64737916950306, \
           0.65169049239846, 0.65577490356251, 0.65985931472657, 0.66371681415929, 0.66780122532335, \
           0.67165872475607, 0.67551622418879, 0.67937372362151, 0.68323122305423, 0.68686181075562, \
           0.69071931018834, 0.69434989788972, 0.69798048559111, 0.70138416156115, 0.70501474926254, \
           0.70841842523259, 0.71204901293397, 0.71545268890402, 0.71885636487406, 0.72203312911278, \
           0.72543680508282, 0.72861356932153, 0.73179033356025, 0.73496709779896, 0.73814386203767, \
           0.74132062627638, 0.74449739051509, 0.74744724302246, 0.75062400726118, 0.75357385976855, \
           0.75652371227593, 0.7594735647833, 0.76219650555934, 0.76514635806671, 0.76786929884275, \
           0.77081915135013, 0.77354209212616, 0.7762650329022, 0.77898797367824, 0.78148400272294, \
           0.78420694349898, 0.78692988427502, 0.78942591331972, 0.79192194236442, 0.79441797140912, \
           0.79691400045382, 0.79941002949853, 0.80167914681189, 0.80417517585659, 0.80644429316996, \
           0.80871341048332, 0.81098252779669, 0.81325164511005, 0.81552076242342, 0.81778987973678, \
           0.81983208531881, 0.82187429090084, 0.82391649648287, 0.8259587020649, 0.82800090764693, \
           0.82981620149762, 0.83163149534831, 0.833446789199, 0.83526208304969, 0.83707737690039, \
           0.83866575901974, 0.84048105287043, 0.84206943498979, 0.84343090537781, 0.84501928749716, \
           0.84638075788518, 0.8477422282732, 0.84910369866122, 0.8502382573179, 0.85137281597459, \
           0.85250737463127, 0.85364193328795, 0.8545495802133, 0.85545722713864, 0.85636487406399, \
           0.857045609258, 0.85772634445201, 0.85840707964602, 0.85886090310869, 0.85931472657136, \
           0.8595416383027, 0.85999546176537, 0.85999546176537, 0.86022237349671, 0.86022237349671, \
           0.85999546176537, 0.85976855003404, 0.8595416383027, 0.85908781484003, 0.85863399137735, \
           0.85795325618335, 0.85727252098934, 0.85659178579533, 0.85568413886998, 0.8545495802133, \
           0.85341502155662, 0.8520535511686, 0.85069208078058, 0.84933061039256, 0.8477422282732, \
           0.84592693442251, 0.84411164057182, 0.84229634672113, 0.84002722940776, 0.83798502382573, \
           0.83571590651237, 0.83321987746767, 0.83072384842296, 0.82800090764693, 0.82505105513955, \
           0.82232811436351, 0.8191513501248, 0.81597458588609, 0.81279782164738, 0.80939414567733, \
           0.80576355797595, 0.80213297027456, 0.79827547084184, 0.79441797140912, 0.79033356024507, \
           0.78624914908101, 0.78216473791695, 0.77762650329022, 0.77308826866349, 0.76855003403676, \
           0.76378488767869, 0.75901974132063, 0.75402768323122, 0.74903562514182, 0.74404356705242, \
           0.73859768550034, 0.7333787156796, 0.72793283412752, 0.72226004084411, 0.7165872475607, \
           0.71091445427729, 0.70501474926254, 0.69911504424779, 0.69321533923304, 0.68708872248695, \
           0.68096210574087, 0.67460857726344, 0.66825504878602, 0.6619015203086, 0.65532108009984, \
           0.64874063989108, 0.64216019968232, 0.63535284774223, 0.62877240753347, 0.62196505559337, \
           0.61493079192194, 0.60812343998185, 0.60108917631042, 0.59405491263898, 0.58702064896755, \
           0.57998638529612, 0.57272520989335, 0.56569094622192, 0.55842977081915, 0.55116859541638, \
           0.54390742001362, 0.53664624461085, 0.52915815747674, 0.52189698207397, 0.51463580667121, \
           0.5071477195371, 0.49988654413433, 0.49262536873156, 0.48513728159746, 0.47787610619469, \
           0.47038801906059, 0.46312684365782, 0.45586566825505, 0.44860449285228, 0.44111640571818, \
           0.43385523031541, 0.42659405491264, 0.41955979124121, 0.41229861583844, 0.40503744043567, \
           0.39800317676424, 0.39096891309281, 0.38393464942138, 0.37690038574994, 0.37009303380985, \
           0.36305877013842, 0.35625141819832, 0.34944406625823, 0.34286362604947, 0.33628318584071, \
           0.32970274563195, 0.32312230542319, 0.31676877694577, 0.31041524846835, 0.30406171999092, \
           0.29793510324484, 0.29180848649875, 0.285908781484, 0.27978216473792, 0.2741093714545, \
           0.26820966643976, 0.26276378488768, 0.25709099160427, 0.25164511005219, 0.24642614023145, \
           0.24120717041071, 0.23598820058997, 0.23099614250057, 0.2262309961425, 0.22146584978443, \
           0.21670070342637, 0.21216246879964, 0.20785114590424, 0.20353982300885, 0.19945541184479, \
           0.19537100068074, 0.19151350124801, 0.18765600181529, 0.18402541411391, 0.18062173814386, \
           0.17721806217381, 0.1740412979351, 0.17086453369639, 0.16791468118902, 0.16519174041298, \
           0.16246879963694, 0.15997277059224, 0.15770365327888, 0.15543453596551, 0.15339233038348, \
           0.15135012480145, 0.14953483095076, 0.14794644883141, 0.14658497844339, 0.14522350805537, \
           0.14408894939868, 0.142954390742, 0.14204674381666, 0.14136600862265, 0.14068527342864, \
           0.14023144996596, 0.14000453823463, 0.13977762650329, 0.13977762650329, 0.14000453823463, \
           0.14023144996596, 0.14068527342864, 0.14113909689131, 0.14204674381666, 0.14272747901067, \
           0.14386203766735, 0.14499659632403, 0.14635806671205, 0.14771953710007, 0.14930791921942, \
           0.15089630133878, 0.15271159518947, 0.1547538007715, 0.15679600635353, 0.15906512366689, \
           0.1615611527116, 0.16383027002496, 0.166553210801, 0.16927615157704, 0.17222600408441]

azimuth = [0.00181529385069, 0.00113455865668, 0.00068073519401, 0.00022691173134, 0, \
         0, 0, 0.00022691173134, 0.00045382346267, 0.00113455865668, \
         0.00158838211936, 0.0024960290447, 0.00340367597005, 0.00453823462673, 0.00567279328341, \
         0.00703426367143, 0.00862264579079, 0.01021102791014, 0.01202632176084, 0.01406852734286, \
         0.01611073292489, 0.01837985023826, 0.02087587928296, 0.023598820059, 0.02632176083504, \
         0.02927161334241, 0.03222146584978, 0.0353982300885, 0.03880190605854, 0.04243249375993, \
         0.04606308146131, 0.04992058089403, 0.05377808032675, 0.05808940322215, 0.0621738143862, \
         0.06671204901293, 0.07125028363966, 0.07601542999773, 0.08100748808713, 0.08599954617654, \
         0.09121851599728, 0.09666439754935, 0.10211027910143, 0.10778307238484, 0.11345586566826, \
         0.119355570683, 0.12548218742909, 0.13160880417518, 0.1379623326526, 0.14454277286136, \
         0.15112321307012, 0.15793056501021, 0.16473791695031, 0.17177218062174, 0.17903335602451, \
         0.18629453142728, 0.19355570683004, 0.20104379396415, 0.20875879282959, 0.21647379169503, \
         0.22441570229181, 0.23235761288859, 0.2405264352167, 0.24869525754482, 0.25686407987293, \
         0.26525981393238, 0.27388245972317, 0.28250510551396, 0.29112775130474, 0.29997730882687, \
         0.30882686634899, 0.31767642387111, 0.32675289312458, 0.33582936237804, 0.34513274336283, \
         0.35420921261629, 0.36351259360109, 0.37304288631722, 0.38234626730202, 0.39187656001815, \
         0.40140685273429, 0.41116405718176, 0.42069434989789, 0.43045155434536, 0.44020875879283, \
         0.4499659632403, 0.45972316768777, 0.46948037213524, 0.47946448831405, 0.48922169276152, \
         0.49920580894032, 0.50896301338779, 0.5189471295666, 0.52870433401407, 0.53868845019288, \
         0.54867256637168, 0.55842977081915, 0.56841388699796, 0.57817109144543, 0.5879282958929, \
         0.5979124120717, 0.60766961651917, 0.61742682096664, 0.62695711368278, 0.63671431813025, \
         0.64624461084638, 0.65577490356251, 0.66530519627865, 0.67483548899478, 0.68413886997958, \
         0.69344225096438, 0.70274563194917, 0.71182210120263, 0.72089857045609, 0.72997503970955, \
         0.73882459723168, 0.7476741547538, 0.75652371227592, 0.76514635806671, 0.77354209212616, \
         0.78193782618561, 0.79033356024506, 0.79850238257318, 0.80667120490129, 0.81461311549807, \
         0.82255502609485, 0.83004311322895, 0.8377581120944, 0.8452461992285, 0.85250737463127, \
         0.8595416383027, 0.86657590197413, 0.87361016564556, 0.88019060585432, 0.88677104606308, \
         0.8931245745405, 0.89947810301793, 0.90560471976401, 0.91150442477876, 0.91717721806217, \
         0.92262309961425, 0.92806898116633, 0.93328795098707, 0.93828000907647, 0.94327206716587, \
         0.9478103017926, 0.95234853641933, 0.95665985931473, 0.96074427047878, 0.9646017699115, \
         0.96845926934423, 0.97186294531427, 0.97526662128432, 0.9782164737917, 0.98116632629907, \
         0.98388926707511, 0.98638529611981, 0.98865441343318, 0.9906966190152, 0.99273882459723, \
         0.99432720671659, 0.99568867710461, 0.99705014749263, 0.99795779441797, 0.99886544134332, \
         0.99931926480599, 0.99977308826866, 1, 1, 0.99954617653733, \
         0.99909235307465, 0.99841161788065, 0.99773088268663, 0.99659632402995, 0.99523485364193, \
         0.99364647152258, 0.99205808940322, 0.99001588382119, 0.98797367823917, 0.9857045609258, \
         0.98298162014976, 0.98025867937372, 0.97753573859769, 0.97435897435897, 0.97095529838893, \
         0.96755162241888, 0.9639210347175, 0.96006353528477, 0.95597912412072, 0.95189471295666, \
         0.94758339006127, 0.94304515543454, 0.93828000907647, 0.9335148627184, 0.928522804629, \
         0.92330383480826, 0.91808486498752, 0.91263898343544, 0.90719310188337, 0.90152030859996, \
         0.89562060358521, 0.88972089857046, 0.88382119355571, 0.87769457680962, 0.8713410483322, \
         0.86498751985478, 0.85863399137735, 0.8520535511686, 0.84547311095984, 0.83866575901974, \
         0.83185840707965, 0.82505105513955, 0.81824370319946, 0.81120943952802, 0.80417517585659, \
         0.79714091218516, 0.78987973678239, 0.78284547311096, 0.77558429770819, 0.76832312230542, \
         0.76106194690266, 0.75380077149989, 0.74653959609712, 0.73927842069435, 0.73179033356025, \
         0.72452915815748, 0.71704107102337, 0.7097798956206, 0.70251872021784, 0.69503063308373, \
         0.68776945768096, 0.68028137054686, 0.67302019514409, 0.66575901974132, 0.65849784433855, \
         0.65123666893578, 0.64397549353302, 0.63671431813025, 0.62945314272748, 0.62219196732471, \
         0.61515770365328, 0.60789652825051, 0.60086226457908, 0.59382800090765, 0.58679373723622, \
         0.57975947356478, 0.57272520989335, 0.56569094622192, 0.55888359428182, 0.55207624234173, \
         0.54526889040163, 0.53846153846154, 0.53165418652144, 0.52484683458135, 0.51826639437259, \
         0.51145904243249, 0.50487860222374, 0.49829816201498, 0.49171772180622, 0.4853641933288, \
         0.47878375312004, 0.47243022464261, 0.46584978443386, 0.45949625595643, 0.45314272747901, \
         0.44701611073293, 0.4406625822555, 0.43430905377808, 0.428182437032, 0.42205582028591, \
         0.41592920353982, 0.40980258679374, 0.40367597004765, 0.39754935330157, 0.39164964828682, \
         0.38552303154073, 0.37962332652598, 0.37372362151123, 0.36782391649648, 0.36192421148173, \
         0.35602450646698, 0.35012480145224, 0.34422509643749, 0.33855230315407, 0.33265259813932, \
         0.32697980485591, 0.3213070115725, 0.31540730655775, 0.30973451327434, 0.30406171999092, \
         0.29838892670751, 0.29294304515544, 0.28727025187202, 0.28159745858861, 0.27615157703653, \
         0.27070569548446, 0.26503290220104, 0.25958702064897, 0.25414113909689, 0.24869525754482, \
         0.24324937599274, 0.23780349444066, 0.23258452461992, 0.22713864306785, 0.22191967324711, \
         0.21647379169503, 0.21125482187429, 0.20603585205355, 0.20081688223281, 0.19559791241207, \
         0.19060585432267, 0.18538688450193, 0.18039482641253, 0.17517585659179, 0.17018379850238, \
         0.16519174041298, 0.16042659405491, 0.15543453596551, 0.15066938960744, 0.14567733151804, \
         0.14091218515997, 0.13614703880191, 0.13160880417518, 0.12684365781711, 0.12230542319038, \
         0.11776718856365, 0.11322895393692, 0.10891763104152, 0.10460630814613, 0.10029498525074, \
         0.09598366235534, 0.09189925119129, 0.08758792829589, 0.08373042886317, 0.07964601769911, \
         0.07578851826639, 0.07193101883367, 0.06807351940095, 0.06444293169957, 0.06081234399818, \
         0.05740866802814, 0.05377808032675, 0.05060131608804, 0.04719764011799, 0.04402087587928, \
         0.04107102337191, 0.0378942591332, 0.03517131835716, 0.03222146584978, 0.02949852507375, \
         0.02700249602904, 0.02450646698434, 0.02223734967098, 0.01996823235761, 0.01769911504425, \
         0.01565690946222, 0.01384161561153, 0.01202632176084, 0.01021102791014, 0.00862264579079, \
         0.00726117540277, 0.00589970501475, 0.00476514635807, 0.00363058770138, 0.00272294077604]

###########
#FUNCTIONS#
###########
define :gong do |note, release, pan|
    use_synth :pretty_bell
    play note, release: release, pan: pan, amp: (1-(((note-40)/36) * 0.9))
end

define :pad do |note, release, attack, pan|
    use_synth :blade
    play note, release: release, amp: 0.2, attack: attack
end

define :melody do |note1, pan1, note2, pan2, note3, pan3, sleeptime|
    use_synth :tech_saws
    use_octave 2
    in_thread do
      with_fx :echo, phase: ((sleeptime / 6) + (pan2 / 10)), max_phase: sleeptime, decay: (sleeptime * 4) do
        sleep (sleeptime / 4)
        play note1, pan: pan1, release: (sleeptime / 18), amp: (1-(((note1-40)/36) * 0.4))
        sleep (sleeptime / 24)
        play note2, pan: pan2, release: (sleeptime / 18), amp: (1-(((note2-40)/36) * 0.4))
        sleep (sleeptime / 24)
        play note3, pan: pan3, release: (sleeptime / 18), amp: (1-(((note3-40)/36) * 0.4))
      end
    end
end


#####################
#INITALIZE VARIABLES#
#####################
i = 96
sleeptime = 2.45

######
#MAIN#
######
with_fx :gverb, mix: 0.2 do
    365.times do
        gong ((elevation[i % 365] * 36) + 40), (sleeptime * 8.3), ((azimuth[i % 365]*2) - 1) if i % 8 == 0
        gong ((azimuth[i % 365]  * 36) + 40), (sleeptime * 8.3), ((elevation[i % 365]*2) - 1) if i % 8 == 4

        pad ((elevation[(i + 182) % 365] * 18) + 58), (sleeptime * 8.3), sleeptime, -0.5
        pad ((azimuth[(i + 182) % 365] * 18) + 58), (sleeptime * 8.3), sleeptime, 0.5
      

        melody ((elevation[(i - 1) % 365]  * 36) + 40), (((azimuth[(i - 1) % 365]*2) - 1) * -1), \
            ((elevation[i % 365]  * 36) + 40), (((azimuth[i % 365]*2) - 1) * -1), \
            ((elevation[(i + 1) % 365]  * 36) + 40), (((azimuth[(i + 1) % 365]*2) - 1) * -1), sleeptime if i % 2 == 0
        
        melody ((azimuth[(i - 1) % 365]  * 36) + 40), ((elevation[(i - 1) % 365]*2) - 1), \
            ((azimuth[i % 365]  * 36) + 40), ((elevation[i % 365]*2) - 1), \
            ((azimuth[(i + 1) % 365]  * 36) + 40), ((elevation[(i + 1) % 365]*2) - 1), sleeptime if i % 2 == 1
        
        difference = (elevation[i % 365] - azimuth[i % 365])
        if difference > 0.05
            sample :bd_fat if difference < 0.1
        end
        
        i += 1

        i = 0 if i == 365

        sleep sleeptime
    end
end