Current section
Files
Jump to
Current section
Files
src/noise_simplex.erl
-module(noise_simplex).
-define(LutMask, 127).
-define(F2, 0.5).
-define(G2, 0.25).
-define(Grad2D, {
{0.465254262011416, -0.885177084927198},
{0.999814701091156, -0.0192500255065206},
{0.562013227349949, 0.827128244157878},
{0.540531763173497, -0.841323607775599},
{-0.97869393624958, 0.20532457024989},
{-0.022259068317433, 0.999752236245381},
{-0.763453105361241, -0.645863264100288},
{-0.877652307360767, 0.479297848299283},
{-0.429945697678765, 0.902854748587789},
{-0.880336026899474, 0.474350587374832},
{-0.999734062007074, 0.0230609033395389},
{0.961877124516138, -0.273481987217745},
{0.485111864938318, 0.874452101887844},
{-0.307899752943979, 0.951418804805243},
{-0.991765219175154, 0.128069317303008},
{0.937814305853532, -0.347137332674633},
{-0.398552509901734, -0.917145515635893},
{0.701222178891205, -0.712942813857514},
{0.873193936119955, 0.487372906431349},
{-0.514304676201594, -0.857607544298191},
{0.0428414754286589, 0.999081882521696},
{-0.88038067821201, 0.474267710719338},
{0.14177264550869, 0.989899245875795},
{-0.887664663265946, -0.46049044027966},
{0.999983713358517, -0.00570727760945115},
{-0.623600504016441, -0.781743187620104},
{0.888019464508127, -0.459805861918592},
{0.600087177175954, -0.79993460969569},
{-0.560441030370991, 0.828194331951567},
{0.958552181052623, -0.284917033887514},
{0.6683586377581, 0.743839183785136},
{0.709718808827001, 0.704485068966819},
{0.695776987881928, 0.718257880662615},
{0.154316110318401, -0.988021527142096},
{-0.725364342269412, -0.688365143629501},
{-0.999918869545931, 0.0127379090116007},
{0.805508244111792, 0.592584566680519},
{-0.996506623245929, 0.0835137702836865},
{-0.73969279786535, -0.67294469667732},
{0.695504007775371, -0.718522216196824},
{-0.999983227160896, 0.00579183881678425},
{-0.714924640549655, 0.699201514825981},
{-0.835103934916504, -0.550092190352645},
{0.84959050330652, 0.527442865807639},
{-0.171610706906682, 0.985164841676249},
{0.3561994988697, 0.934409929851441},
{-0.409182557485348, -0.912452538299801},
{0.463529807851185, 0.886081326534672},
{-0.962925769084928, -0.269766497608949},
{0.744285209959416, 0.66786190656128},
{-0.691027420259623, 0.722828544296177},
{0.981612661017864, 0.190883691627725},
{0.928340009081787, 0.371732198683444},
{-0.120562843572988, 0.992705696946278},
{0.789437446513116, -0.61383101749818},
{0.999774655712189, -0.0212282310985648},
{-0.902267580211854, 0.431176545858708},
{-0.912180652347305, -0.4097883081339},
{-0.770294485489921, -0.637688329533965},
{0.20063205075057, 0.979666667908846},
{-0.982785937329741, -0.184747940142514},
{0.857295252061123, -0.514825068147866},
{-0.6880675701609, -0.725646621223357},
{0.703885918434739, -0.710313039320893},
{0.80736694412922, -0.590049673779628},
{0.501306939228223, -0.865269526033149},
{0.994382489412099, -0.105846420584718},
{0.496494368044017, -0.868039942917705},
{0.077642279257408, -0.996981281906393},
{0.951970808735996, -0.30618879684687},
{-0.761381916275718, -0.648303615267041},
{0.925704511866975, 0.378247480770363},
{0.307462004306155, 0.951560358520699},
{-0.722833511616144, -0.6910222243059},
{0.365487416741135, -0.930816280585966},
{-0.452581511359919, 0.891723037481466},
{-0.696052038963733, -0.717991336336609},
{-0.731589205376628, -0.681745725748533},
{-0.584030912612065, 0.811731416857521},
{-0.622817071437575, -0.782367493909303},
{-0.250124556053565, -0.968213667771224},
{-0.972374793807189, -0.233425063710878},
{-0.970811073944879, 0.239845489234194},
{0.972096169972212, -0.234582685476477},
{-0.56398693111627, -0.825783713529185},
{-0.697050386134155, 0.717022146931478},
{-0.0346220968223854, -0.999400475490992},
{-0.218763172462792, -0.975777984161364},
{-0.526228595935678, 0.850343145335791},
{0.878475471267297, 0.477787448957902},
{-0.543258510315468, 0.839565477476188},
{-0.424638392098636, 0.905363040970795},
{-0.511241626148254, -0.859437024855975},
{0.310536598007565, -0.950561424263518},
{0.647207900842245, 0.762313539881967},
{-0.998374197564832, 0.0569996634795082},
{-0.384499699032222, 0.923125116895933},
{0.793017652527103, -0.609198656252953},
{-0.108016962369769, 0.994149051118799},
{-0.931126682943364, 0.364695901143526},
{-0.801286360381044, -0.598281011454734},
{0.875902620980454, -0.482487925817394},
{-0.731473336626206, 0.681870044660216},
{-0.315759562725525, -0.948839237461956},
{-0.0770741115938651, -0.997025366438596},
{-0.822418334736048, 0.568883188967635},
{-0.998852401248829, -0.0478944727442276},
{0.996841343178929, -0.0794187416749304},
{-0.632437179039341, 0.774611654036241},
{0.719989390873874, 0.693985069745068},
{0.99256596306396, -0.121707883750037},
{0.851153933233715, -0.524916166583558},
{0.952866133004913, 0.303391055524489},
{0.983070281370671, 0.183228878416556},
{0.751614346163695, 0.659602815822462},
{0.549915829679874, 0.83522007894177},
{0.529779603383605, 0.8481353499523},
{-0.738299650910558, -0.67447285005799},
{-0.888225309084572, -0.459408097775406},
{0.69138401830353, 0.722487466489534},
{0.895582660271765, -0.4448951546382},
{-0.823764839572624, -0.566931644101728},
{0.481527438369519, 0.876431016165727},
{-0.393245292146023, 0.9194335974963},
{0.511430719572624, 0.859324513252955},
{0.709782009015835, 0.704421393540433},
{-0.123429256704187, -0.992353373848979},
{-0.796333188996483, -0.60485820826264}
}).
-define(F3, 1 / 3).
-define(G3, 1 / 6).
-define(Grad3D, {
{0.969192790963703, -0.204588387787502, -0.137145636191962},
{0.0105050866706296, 0.869235070511719, -0.494287401565657},
{-0.00713466534361336, -0.0561560433951495, -0.998396512083569},
{-0.99998707996014, 0.00085789886042815, 0.00501038145637507},
{-0.729044421579981, -0.0724223391156089, 0.680624151907743},
{-0.769477416524206, 0.638612501748049, 0.00886442724220208},
{-0.148489274637499, -0.733777362959066, 0.662964340614538},
{0.00192647521945516, -0.688227670545063, 0.725492220626345},
{0.307853961011481, -0.888296843306306, 0.340814695782903},
{-0.136873983993337, 0.99058218544213, 0.0035279442294635},
{0.981422965662359, 0.0873011939299262, -0.170843390299155},
{0.977985182924792, 0.0274298762917452, 0.206863684261352},
{-4.10904184278805E-08, -0.984715746607902, -0.174169165992265},
{-0.00576047279073815, -0.00207046110763061, 0.999981264896512},
{0.385796494451913, -0.382885124111844, 0.839380751865608},
{0.196898025871543, -0.533803208609833, 0.822365674068256},
{-0.953574229510659, -0.197141111727736, -0.227665480211439},
{0.958192898763756, -0.00565943080050262, 0.286067019423289},
{-0.000021414243574488, 0.308183457620683, 0.951326944846192},
{-0.00156590253858546, -0.936777289401244, -0.349922645753741},
{0.010162930999189, 0.907036729301754, 0.420928837846829},
{-0.0468274165634939, 0.74026530347444, -0.670682095727837},
{-0.958782958606567, 0.0676203469753538, -0.275975953591197},
{0.000771226398681087, -0.963152702156633, 0.268954043543163},
{-0.939601847652347, 0.341933173840782, -0.0151681414637957},
{0.0836248033533964, 0.431468628956066, 0.898243683245743},
{-0.97637082132863, 0.118948680332271, 0.180419596234078},
{0.103518422502263, 0.000465187240855595, -0.994627427634827},
{-0.141353740004181, 0.0778654829014707, -0.98689213532146},
{0.0700630230682292, 0.912644877864809, -0.402703985212052},
{0.991874945122624, -0.0502217417385342, 0.116884001876814},
{-0.707119760481927, 0.700142261026601, -0.0989063125414175},
{0.0976913606831578, 0.99518571412564, -0.00786081726752686},
{0.865756754070504, 0.268594575188625, 0.422282129577546},
{0.0124864728918991, -0.922679395826772, -0.385365826859963},
{-0.0174011080646746, -0.984212730893662, 0.176132057800279},
{0.983085383617433, 0.183144250425653, 0.00114544916535278},
{0.84177325324929, -0.000849099388075524, 0.539830593005191},
{-0.773202768542597, 0.634158480426922, -0.000707404184135718},
{-0.399463762408861, 0.520122522942901, -0.754918050949683},
{-0.0543404007696243, 0.853240000077495, -0.51867969221086},
{0.0787561128671418, -0.0445112338899157, -0.995899706167069},
{-0.149110911377271, -0.855893524471146, -0.495189065788614},
{0.128579845943545, 0.95447163354276, 0.26916746456314},
{-6.48712081276198E-06, -0.417292224145094, 0.908772358528778},
{-0.18395289837094, 0.967255425062472, 0.174866445804071},
{-0.0956465003848313, -0.995413983868259, -0.00165761384418054},
{-0.493402767926647, 0.252656257103973, 0.83229713705415},
{0.941743815026262, -0.00313821941824732, 0.336316426061328},
{-0.406002839825049, -0.660621950516609, -0.631458892208849},
{-0.0151930656231186, 0.000118750826499392, 0.999884571665756},
{0.681786958463344, -0.719431781259153, 0.132606392695014},
{0.973323591185432, -0.228922756390528, 0.0153479134887209},
{-0.810634856852843, -0.585551171144037, 0.000977152504195713},
{-0.181398855060402, -0.831693356111209, 0.524767202465292},
{-0.733900500867695, 0.679256981569713, 8.84021970721802E-05},
{0.271727663466327, -0.889119678670303, -0.368280156821335},
{0.298233653375395, -0.0312311598898426, -0.953981814630813},
{-0.752318728102205, -0.00392703305301813, 0.658787605953604},
{0.00665991896444102, -0.893539727653096, 0.448934739784101},
{-0.17274029679022, 0.981849574845414, 0.0783083791219516},
{0.740984319707759, -1.24163939998686E-09, 0.671522328703395},
{-0.91345982474963, 0.00101800775270491, 0.40692764986984},
{0.166118424599226, -0.966950978532905, -0.193417874362556},
{-0.371630916510155, 0.92837704130171, -0.00255559732836468},
{0.114876798169617, 0.991537470331245, 0.0604712011738797},
{0.42509283827761, -0.861877415693766, -0.276520160498508},
{0.0914177278602429, 0.937282941514681, 0.336368081985282},
{-0.138897098096673, 0.574329772420649, -0.806754552916541},
{4.20730659972853E-05, -0.973522779481066, 0.228590017413966},
{-0.19883302527571, -0.769560727972852, -0.606829229702725},
{0.0747279815185906, 0.375429090417211, 0.92383371168553},
{0.0360592551928224, 0.999349653582228, 1.40580077597545E-07},
{-0.630789398266975, 0.775912761477526, 0.00800759703705387},
{0.999468273136104, 0.0122075383077114, -0.0302348640281232},
{0.0234858830298487, 0.722121551769761, -0.691367397096465},
{0.044647769484317, -0.998966611124733, -0.00850214902496602},
{-0.155624581702642, 0.0567240593672596, -0.98618627584183},
{-0.564856042306962, 0.825189463979779, 2.46592673497201E-06},
{-0.00280893077197093, -0.849678682544325, 0.527293320968186},
{0.85760478967376, 0.0912484314080345, -0.506149926893406},
{-0.983676972673489, -0.138789081908023, -0.11453036355067},
{-0.995791780173427, 0.0916344946719056, 0.00136011957614869},
{0.0705163298667096, 0.9883873876068, -0.134602448870495},
{0.151288867759186, -0.946777269461834, -0.28412053871999},
{-0.479182164834798, 2.28582795501955E-06, 0.877715473772117},
{-0.920617168247744, -0.0874211800038508, -0.380554288918466},
{0.647008224881357, -0.0116892424293656, -0.76239341454875},
{0.00348600295131339, 0.00264876419739902, 0.999990415869897},
{0.293662611616922, 0.774229458412962, -0.560652313170918},
{-0.0230822002633608, -0.133701316157593, -0.99075282996756},
{0.0891587773276397, -0.70303221860981, -0.705546888606285},
{-0.716380181025389, -0.675240051032385, 0.175642562369752},
{-0.110229513550145, -0.0380431704478986, 0.993177814655951},
{0.901899360101853, -0.423583957873496, -0.0845823556073773},
{-0.188144760211676, 0.981876973408649, 0.0227850454193412},
{-0.992971049488398, -0.00105311622549315, -0.118352802350111},
{0.974825103742426, -0.22297088847484, 2.51166485428216E-06},
{0.917736330268161, 0.253456586759036, -0.305810050087285},
{0.754361752313554, 0.655909079393725, -0.0268631013715986},
{-0.00493426945610691, 0.999852337890823, -0.0164607229243032},
{0.172163344055272, 0.977404359568319, -0.122639719750783},
{0.20654798485596, 0.00802290795582379, 0.978403578744413},
{-0.0189935909416278, -0.956252765802595, -0.291924461801387},
{-0.298030174309119, -0.101625749247146, -0.949131298762838},
{-0.525057139557522, -0.851050276233871, 0.00533174661105069},
{0.00362214069523366, 0.401488407244411, -0.915856942401558},
{0.7517944143271, 0.19472711592481, 0.629989292694866},
{0.501284099317453, -0.0225214021165674, 0.864989617404853},
{-0.985033512468648, 0.1680612553394, -0.0382673982316817},
{0.00137633273570574, -0.0442369494900767, -0.999020118920542},
{-0.724166817672979, -0.688818418185576, 0.033340770082758},
{-0.0128146550963728, -0.0397993929245446, 0.99912551410601},
{0.802033957950016, 0.595775400910827, -0.0423462154693413},
{-0.902335114745471, -0.411652900762455, -0.127801525777801},
{7.40750655087705E-05, -0.890177016591854, 0.455614830360591},
{-0.0563694832642116, 0.998393830705426, -0.00567804243293261},
{0.804825783463094, 0.0873894235068948, -0.587042202002675},
{0.902405167679558, 0.0887442050097385, -0.421650778989461},
{0.0138828478418606, -0.26021714739708, 0.965450310858268},
{-0.0235002961872274, -0.1428517727679, -0.989465061079056},
{0.543378228613975, 0.00830368325812741, 0.839446930730399},
{-0.956960500295924, 0.0113747804839107, 0.289995198653906},
{-0.00858337504492301, -0.949962410388146, -0.312246288244364},
{-0.731827611403257, 0.00140870300297461, -0.681488343806152},
{0.844453636307317, 0.498643416559842, -0.195583228444764},
{-0.997648624781726, 0.000128342870118087, -0.0685361583343983},
{0.00700544496566235, -0.020878882722484, 0.999757468587804}
}).
-define(F4, (math:sqrt(5.0) - 1.0) / 4.0).
-define(G4, (5.0 - math:sqrt(5.0)) / 20.0).
-define(Grad4D, {
{0.0179285344989033,0.0677944464204167,
0.900387877028038,0.429399757319696},
{0.151459767976519,0.41940331430838,
0.025942750707592,-0.894699822464143},
{0.979529859361997,0.130367466451577,
-0.00937681736873056,-0.153093610595927},
{0.0188035720634411,0.957989228554963,
-0.269676405489343,0.0958003130092474},
{-0.0012369876892,-7.87528807201163E-05,
0.000149907955282427,-0.999999220593219},
{-0.0515998001407824,-0.944373511413844,
0.324801510463498,0.000332213707707317},
{0.0625583127110917,0.368853467530968,
0.927379950072298,7.21458539681357E-05},
{-0.0332301888025581,0.00487951365898265,
-0.999435388671684,0.000921286751161818},
{0.254162385940239,-0.00247502010266267,
0.000438725101563024,0.967158292819196},
{-0.759302539566954,-0.650633735433763,
-0.0116359665914368,2.04111122123566E-06},
{-4.48759951174869E-08,0.358287711147997,
-0.933611212169481,0.000143358851029576},
{-0.834876133401752,-0.194359576306317,
-0.0344898444893627,-0.513825503066234},
{0.992418907081551,4.57210674843702E-06,
-1.83490711870738E-06,0.122901232063752},
{-0.42938540950326,0.513195588850885,
-0.743126271370401,-0.00466931352956133},
{0.570845731350832,1.65553932296542E-05,
0.0011349034293071,0.821056552692115},
{2.31617888342864E-05,0.994847097173254,
-0.0961577881592109,-0.0321392670390731},
{0.0285107567449309,-0.0502599346018885,
-0.998329141978559,2.92045363529652E-10},
{0.693061667730217,0.081528197183571,
-0.606560258101509,0.380924311483053},
{-0.471772182045896,-0.105811692623359,
0.875348441445287,3.33769803143138E-06},
{0.362766768879719,0.923039277394957,
-0.128057658031582,-1.49328116922925E-06},
{0.062046368142898,-0.815075843570167,
0.576022235980786,-3.29295020122024E-05},
{-0.921787687217261,0.28869133264405,
0.0732935586853114,-0.248179024911652},
{-5.47319853185622E-06,0.973767617716296,
0.225257152279963,-0.0321844994352065},
{0.232218374389583,-0.08472237319722,
-0.137241903519584,0.95919831421558},
{-0.0167570140621457,0.358790865544362,
0.933267510677344,0.000266074731502954},
{0.0107254303176227,-0.737658920753904,
1.52650004111161E-06,-0.675088351087735},
{-3.71325911057143E-06,-0.448149367809768,
0.893952928186452,0.00321034340618395},
{-0.0163066755437812,-0.0444639669567192,
-0.998877894427004,-5.06860474025719E-07},
{0.085934337625112,-8.88863502634554E-05,
0.996300798791311,6.62916977146475E-06},
{0.018848679157187,-0.168704308520019,
0.583111361978302,0.794458761115151},
{-0.14092365680382,-0.0262056616259223,
0.00425806403039333,-0.989664415416913},
{0.000019585584043321,0.0708482693257697,
0.094787939700978,0.992973196434421},
{-3.61195284939247E-07,0.573786610288797,
-0.00565371182001549,-0.818985324285984},
{0.555482972457819,-0.831524637330389,
0.00233255322693632,6.33832316941843E-05},
{0.800371000342067,0.168341324992158,
8.13736079413595E-08,-0.575384619286367},
{-0.151943784159287,-3.17003100215728E-06,
-0.973809705113584,0.169138241305451},
{-3.28617107642979E-10,-2.51664008452886E-05,
-0.999999889743206,0.000468913880721174},
{0.144708070244843,-0.392246876333683,
-0.14750809340107,0.896350001279446},
{-0.499891693213082,0.000469340668710032,
-0.0432191264563471,0.865008775611117},
{-0.74530243187983,-0.0130445109718722,
0.0435702095816092,0.665173483088833},
{-0.796157099668477,0.000124118278989671,
-0.00217167212139707,-0.605086060889134},
{0.947484791701284,0.0724121319093247,
3.87510235633725E-05,-0.311494865359736},
{0.999997268027888,-0.00183696890994059,
0.00144542293102575,0.000015314536027456},
{0.246103794412299,0.967730041656212,
0.05414322404818,-1.18997457774053E-05},
{4.28260722805506E-05,-0.999999938144512,
-0.00024875421527231,-0.000244945380014729},
{0.345932094721763,-0.00182445228148537,
-2.01050360940934E-07,0.938257777593794},
{0.232629530802398,-0.0123421039259699,
-0.000333195046776704,-0.972487050222468},
{-0.0413343034477463,-0.845558019383741,
-0.532041468453896,0.0159683142427982},
{4.876953380543E-11,-0.509395810571092,
-0.760866765012863,-0.401992131852703},
{0.01457871782159,0.00352273519283274,
2.46006626805202E-08,0.999887519335769},
{-0.2197566484112,-0.269663250455668,
0.936190779005179,-0.0503544649304871},
{-0.0865455281910523,0.0990053597028644,
-2.66646365439371E-05,0.991316200608683},
{-0.989058271919771,-0.130356511156493,
-0.0535910970499983,-0.0435764737348075},
{0.900013078389142,-0.00043287841542218,
-2.83509325586139E-08,-0.435862674869937},
{-0.771015568252326,-4.76900694356318E-05,
-0.0219363831312084,0.636438360199416},
{-0.078643371273305,0.996901923608738,
-6.16073674743889E-06,0.00133222446022512},
{5.20470758906282E-05,0.997256243992129,
0.0740268623204818,6.90275154123082E-05},
{-0.115896931950432,-0.300911764975683,
0.431409257232567,-0.842559234497932},
{-1.05936323695781E-10,-0.0143409648185513,
-0.999897162703251,2.73141203266667E-05},
{7.36602805763734E-06,0.0490840386576873,
-0.187410880606716,0.981054493351418},
{-0.149217229776082,0.096219097342591,
0.984104045608208,-0.00391549001869267},
{0.0301779956805262,-2.03984355987402E-05,
-0.999544181133284,-0.00084742150235282},
{0.101389753295397,0.00105726742868962,
0.994846219323528,3.15683454673068E-06},
{-0.0132313717977117,0.159525525289995,
0.593084588401323,-0.789067302948319},
{-0.999950751279126,-2.28154321862005E-06,
-3.35621991002035E-07,0.00992446527495385},
{-0.446140024906362,-0.89496104730281,
-0.000949959838625011,-0.00170281047488805},
{-0.25830870420065,-5.99271603499866E-11,
-0.962897969373127,-0.0781288289384209},
{-0.0141578535996954,-0.590108238154547,
0.772903767582682,-0.232790868592566},
{-0.0408946388040428,-0.487869969082088,
-2.38283754617856E-06,-0.871957866974805},
{0.993390567418713,0.114783068234581,
0.000166763855068009,-7.22479963187292E-13},
{-0.150270957910884,0.98861713652712,
0.00724343322227505,0.00152618760893165},
{-0.0292187624948691,0.984282454781429,
-2.54315254401317E-06,-0.174167485832589},
{0.605498435491149,0.0295366828327539,
-0.261172160527168,0.75119127494306},
{-0.00453574210785455,0.0164722766698647,
-0.00759597400463439,-0.99982518088102},
{-0.161906996023123,-0.968938255461586,
0.00479280806368259,0.186873782892868},
{0.0718297493332595,-0.15117444225596,
-0.95710224645937,0.236520749495151},
{1.55364291766971E-08,0.751515349174519,
-0.513260578427611,-0.414473471512055},
{-0.0832231266679871,-0.016036973751982,
-0.150197717417989,0.985016432524305},
{-0.0499060179903397,0.113056945464528,
0.760889993198006,0.637003873380466},
{-0.912217939109183,-0.000236556733323175,
0.409698193304452,-0.00240125204303045},
{-0.0201341577237124,0.822200561754789,
-0.0353638581788924,-0.567741357906546},
{0.981833737365851,-0.189743278357464,
1.93574210616191E-05,1.06610391592544E-05},
{-3.1713467661518E-06,-0.999998467923194,
-3.10580174237511E-07,-0.00175046882587876},
{0.999785072721677,0.00661572799000603,
-0.000560396757787285,-0.0196399201003463},
{0.947369318875243,0.10413625625988,
0.014573335884325,0.302381599419074},
{0.000539050555161111,0.363169172188698,
-0.0860769990608411,0.927738439447755},
{0.0218600193860152,0.0136508664574171,
-0.957380820600311,0.287676481040908},
{0.0452753695684423,-3.62412965753121E-05,
0.412640274130687,-0.909768181331025},
{-6.91937018588465E-08,0.000924049891480408,
-0.998173949198153,0.0603979575313267},
{0.0524759516860929,0.0348710315338021,
-0.997989141515491,-0.00692524884613554},
{-0.000620065691267785,-0.297909553995998,
-0.954593871695887,-0.000230818326052339},
{-6.96674135940915E-05,-0.867754661790055,
0.496992798829057,3.74443548432658E-07},
{-0.0482481401493802,0.00489619615662811,
-0.995799001490995,0.0776691242699415},
{-0.151673443794422,-0.974774864011805,
-0.000484445743305936,-0.163734224432859},
{-0.049803009786826,0.0811460037036778,
-0.0626532599996605,-0.993483545566061},
{-0.0609700565049769,0.169557563496092,
0.340322391745786,0.922883283274476},
{-0.907810279284789,-9.09566645872125E-05,
-6.82944907490262E-07,-0.419381077960479},
{-0.0974613227620325,0.995239313157134,
5.15261588579082E-11,-1.05825987794001E-05},
{-0.0186861500087666,0.00438118107716855,
0.992023504204221,-0.124583306091132},
{-0.930838673636572,-0.0110467691436416,
-0.00188202425659556,0.365258525620815},
{-0.0567494686643164,-2.42763994429726E-09,
0.975143948519116,-0.214181645975711},
{0.0304023604642125,-0.632969000014441,
0.773579295645911,0.00100739609776072},
{0.000108520483850958,0.0583209179359306,
-0.00851497409325953,-0.998261565908758},
{-0.02385578591046,-0.129946314819517,
0.0562422070557562,-0.989637141021354},
{-0.00504915323521923,-0.0089236566539032,
-0.000176312774898594,0.999947420276354},
{9.54792136888334E-10,0.95741607332861,
-0.000200174641238177,0.288711659726688},
{0.994168345296552,0.107836831627415,
0.000720385221359334,1.00702166459814E-07},
{-0.442903722280488,0.0490533033131452,
-0.286717020869704,0.848070407553381},
{-0.579123085419419,0.000412386634095739,
0.000548850089152674,-0.81523983013291},
{-0.99748331906203,-0.00315622682426633,
-0.0314712268933373,-0.0634557192304806},
{-0.999910167988914,0.00277348539595252,
-0.0131131747511067,-9.15373542722021E-05},
{0.989849756616008,-0.102100397263962,
-0.0925741321036343,-0.0346842654676267},
{-0.0502665295186573,-0.0019502335925594,
0.995313667448867,-0.0825843568030342},
{-0.775008311628356,0.00458914577239442,
0.631802950284916,0.012887538916389},
{-0.917122758231958,3.16141922995542E-09,
0.00144102092010558,-0.398602270178826},
{0.298077607094876,0.0476089996782551,
0.875582290533107,0.377145563149066},
{0.263407146338272,-0.473950966620194,
0.840230003541957,-0.000835251815231092},
{-0.55558964464076,0.00104388539977359,
-0.000884120434714965,-0.831455516189702},
{0.857295578944858,-0.0176694994052872,
-0.51054240707814,-0.0638633673339165},
{0.0864515147611175,-0.35114135064002,
0.922138824225689,0.137425893927874},
{0.968780126999011,0.203315714499582,
-0.141786558529076,-0.00493534089860906},
{-0.0103473943005527,-0.0446849068409796,
-0.625161129502578,-0.779146810742919},
{-0.810284066914716,-0.582923322911606,
-0.0599165375134594,0.00708089275712812},
{-0.914614581816782,0.366353079295109,
0.00173954895166334,-0.171063035131932},
{-0.0017333110902601,0.0325427046350465,
-0.999147497892685,0.0253425622715693},
{0.000847670819166468,0.0188099412466175,
0.999636928304481,0.019273793982079},
{0.100715508011326,0.994914522159042,
-0.000565737742910064,0.00107702547448881},
{-0.414687299306508,-0.734201866849646,
-0.536852323837964,-0.0277784970462061}
}).
-define(Simplex4D, {
{0,1,2,3}, {0,1,3,2}, {0,0,0,0}, {0,2,3,1}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0},
{1,2,3,0}, {0,2,1,3}, {0,0,0,0}, {0,3,1,2}, {0,3,2,1}, {0,0,0,0}, {0,0,0,0},
{0,0,0,0}, {1,3,2,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0},
{0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {1,2,0,3}, {0,0,0,0}, {1,3,0,2}, {0,0,0,0},
{0,0,0,0}, {0,0,0,0}, {2,3,0,1}, {2,3,1,0}, {1,0,2,3}, {1,0,3,2}, {0,0,0,0},
{0,0,0,0}, {0,0,0,0}, {2,0,3,1}, {0,0,0,0}, {2,1,3,0}, {0,0,0,0}, {0,0,0,0},
{0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {2,0,1,3},
{0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {3,0,1,2}, {3,0,2,1}, {0,0,0,0}, {3,1,2,0},
{2,1,0,3}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {3,1,0,2}, {0,0,0,0}, {3,2,0,1},
{3,2,1,0}
}).
%% API exports
-export([raw/2]).
%%====================================================================
%% API functions
%%====================================================================
raw(Seed, {X, Y}) ->
T = (X + Y) * ?F2,
{I, J} = {trunc(X + T), trunc(Y + T)},
TT = (I + J) * ?G2,
{X0, Y0} = {X - (I - TT), Y - (I - TT)},
{I1, J1} = if X0 > Y0 -> {1, 0}; true -> {0, 1} end,
{X1, Y1} = {X0 - I1 + ?G2, Y0 - J1 + ?G2},
{X2, Y2} = {X0 - 1.0 + 2.0 * ?G2, Y0 - 1.0 + 2.0 * ?G2},
T0 = 0.6 - X0 * X0 - Y0 * Y0,
N0 = if
T0 < 0 -> 0.0;
true -> math:pow(T0, 4) * dot(gcoord(Seed, {I, J}), {X0, Y0})
end,
T1 = 0.6 - X1 * X1 - Y1 * Y1,
N1 = if
T1 < 0 -> 0.0;
true -> math:pow(T1, 4) * dot(gcoord(Seed, {I + I1, J + J1}), {X1, Y1})
end,
T2 = 0.6 - X2 * X2 - Y2 * Y2,
N2 = if
T2 < 0 -> 0.0;
true -> math:pow(T2, 4) * dot(gcoord(Seed, {I + 1, J + 1}), {X2, Y2})
end,
27.7 * (N0 + N1 + N2);
raw(Seed, {X, Y, Z}) ->
T = (X + Y + Z) * ?F3,
{I, J, K} = {trunc(X + T), trunc(Y + T), trunc(Z + T)},
TT = (I + J + K) * ?G3,
{X0, Y0, Z0} = {X - (I - TT), Y - (J - TT), Z - (K - TT)},
{I1, J1, K1, I2, J2, K2} = if
X0 >= Y0 -> if
Y0 >= Z0 -> {1, 0, 0, 1, 1, 0};
X0 >= Z0 -> {1, 0, 0, 1, 0, 1};
true -> {0, 0, 1, 1, 0, 1}
end;
Y0 < Z0 -> {0, 0, 1, 0, 1, 1};
X0 < Z0 -> {0, 1, 0, 0, 1, 1};
true -> {0, 1, 0, 1, 1, 0}
end,
{X1, Y1, Z1} = {X0 - I1 + ?G3, Y0 - J1 + ?G3, Z0 - K1 + ?G3},
X2 = X0 - I2 + 2.0 * ?G3,
Y2 = Y0 - J2 + 2.0 * ?G3,
Z2 = Z0 - K2 + 2.0 * ?G3,
X3 = X0 - 1.0 + 3.0 * ?G3,
Y3 = Y0 - 1.0 + 3.0 * ?G3,
Z3 = Z0 - 1.0 + 3.0 * ?G3,
T0 = 0.6 - X0 * X0 - Y0 * Y0 - Z0 * Z0,
N0 = if
T0 < 0 -> 0.0;
true -> math:pow(T0, 4) * dot(gcoord(Seed, {I, J, K}), {X0, Y0, Z0})
end,
T1 = 0.6 - X1 * X1 - Y1 * Y1 - Z1 * Z1,
N1 = if
T1 < 0 -> 0.0;
true -> math:pow(T1, 4) * dot(
gcoord(Seed, {I + I1, J + J1, K + K1}),
{X1, Y1, Z1}
)
end,
T2 = 0.6 - X2 * X2 - Y2 * Y2 - Z2 * Z2,
N2 = if
T2 < 0 -> 0.0;
true -> math:pow(T2, 4) * dot(
gcoord(Seed, {I + I2, J + J2, K + K2}),
{X2, Y2, Z2}
)
end,
T3 = 0.6 - X3 * X3 - Y3 * Y3 - Z3 * Z3,
N3 = if
T3 < 0 -> 0.0;
true -> math:pow(T3, 4) * dot(
gcoord(Seed, {I + 1, J + 1, K + 1}),
{X3, Y3, Z3}
)
end,
40.0 * (N0 + N1 + N2 + N3);
raw(Seed, {X, Y, Z, W}) ->
T = (X + Y + Z + W) * ?F4,
{I, J, K, L} = {trunc(X + T), trunc(Y + T), trunc(Z + T), trunc(W + T)},
TT = (I + J + K + L) * ?G4,
{X0, Y0, Z0, W0} = {X - (I - TT), Y - (J - TT), Z - (K - TT), W - (L - TT)},
C = (
(if X0 > Y0 -> 32; true -> 0 end)
+ (if X0 > Z0 -> 16; true -> 0 end)
+ (if Y0 > Z0 -> 8; true -> 0 end)
+ (if X0 > W0 -> 4; true -> 0 end)
+ (if Y0 > W0 -> 2; true -> 0 end)
+ (if Z0 > W0 -> 1; true -> 0 end)
),
CC = element(C + 1, ?Simplex4D),
{C0, C1, C2, C3} = {
element(1, CC),
element(2, CC),
element(3, CC),
element(4, CC)
},
I1 = if C0 >= 3 -> 1; true -> 0 end,
J1 = if C1 >= 3 -> 1; true -> 0 end,
K1 = if C2 >= 3 -> 1; true -> 0 end,
L1 = if C3 >= 3 -> 1; true -> 0 end,
I2 = if C0 >= 2 -> 1; true -> 0 end,
J2 = if C1 >= 2 -> 1; true -> 0 end,
K2 = if C2 >= 2 -> 1; true -> 0 end,
L2 = if C3 >= 2 -> 1; true -> 0 end,
I3 = if C0 >= 1 -> 1; true -> 0 end,
J3 = if C1 >= 1 -> 1; true -> 0 end,
K3 = if C2 >= 1 -> 1; true -> 0 end,
L3 = if C3 >= 1 -> 1; true -> 0 end,
X1 = X0 - I1 + ?G4,
Y1 = Y0 - J1 + ?G4,
Z1 = Z0 - K1 + ?G4,
W1 = W0 - L1 + ?G4,
X2 = X0 - I2 + 2.0 * ?G4,
Y2 = Y0 - J2 + 2.0 * ?G4,
Z2 = Z0 - K2 + 2.0 * ?G4,
W2 = W0 - L2 + 2.0 * ?G4,
X3 = X0 - I3 + 3.0 * ?G4,
Y3 = Y0 - J3 + 3.0 * ?G4,
Z3 = Z0 - K3 + 3.0 * ?G4,
W3 = W0 - L3 + 3.0 * ?G4,
X4 = X0 - 1.0 + 4.0 * ?G4,
Y4 = Y0 - 1.0 + 4.0 * ?G4,
Z4 = Z0 - 1.0 + 4.0 * ?G4,
W4 = W0 - 1.0 + 4.0 * ?G4,
T0 = 0.6 - X0 * X0 - Y0 * Y0 - Z0 * Z0 - W0 * W0,
N0 = if
T0 < 0 -> 0.0;
true -> math:pow(T0, 4) * dot(
gcoord(Seed, {I, J, K, L}),
{X0, Y0, Z0, W0}
)
end,
T1 = 0.6 - X1 * X1 - Y1 * Y1 - Z1 * Z1 - W1 * W1,
N1 = if
T1 < 0 -> 0.0;
true -> math:pow(T1, 4) * dot(
gcoord(Seed, {I + I1, J + J1, K + K1, L + L1}),
{x1, y1, z1, w1}
)
end,
T2 = 0.6 - X2 * X2 - Y2 * Y2 - Z2 * Z2 - W2 * W2,
N2 = if
T2 < 0 -> 0.0;
true -> math:pow(T2, 4) * dot(
gcoord(Seed, {I + I2, J + J2, K + K2, L + L2}),
{X2, Y2, Z2, W2}
)
end,
T3 = 0.6 - X3 * X3 - Y3 * Y3 - Z3 * Z3 - W3 * W3,
N3 = if
T3 < 0 -> 0.0;
true -> math:pow(T3, 4) * dot(
gcoord(Seed, {I + I3, J + I3, K + K3, L + L3}),
{X3, Y3, Z3, W3}
)
end,
T4 = 0.6 - X4 * X4 - Y4 * Y4 - Z4 * Z4 - W4 * W4,
N4 = if
T4 < 0 -> 0.0;
true -> math:pow(T4, 4) * dot(
gcoord(Seed, {I + 1, J + 1, K + 1, L + 1}),
{X4, Y4, Z4, W4}
)
end,
44.5 * (N0 + N1 + N2 + N3 + N4).
%%====================================================================
%% Internal functions
%%====================================================================
coord(Seed, Position) ->
Hash = trunc(seed_hash(Seed, Position)),
((Hash bxor (Hash bsr 16)) rem ?LutMask) + 1.
dot(G, {X, Y}) -> element(1, G) * X + element(2, G) * Y;
dot(G, {X, Y, Z}) -> element(1, G) * X + element(2, G) * Y + element(3, G) * Z;
dot(G, {X, Y, Z, W}) ->
element(1, G) * X
+ element(2, G) * Y
+ element(3, G) * Z
+ element(4, G) * W.
gcoord(Seed, {I, J}) -> element(coord(Seed, {I, J}), ?Grad2D);
gcoord(Seed, {I, J, K}) -> element(coord(Seed, {I, J, K}), ?Grad3D);
gcoord(Seed, {I, J, K, L}) -> element(coord(Seed, {I, J, K, L}), ?Grad4D).
seed_hash(Seed, {X, Y}) -> (((Seed bxor X) * 15485863) bxor Y) * 10057189;
seed_hash(Seed, {X, Y, Z}) -> (seed_hash(Seed, {X, Y}) bxor Z) * 987391;
seed_hash(Seed, {X, Y, Z, W}) -> (seed_hash(Seed, {X, Y, Z}) bxor W) * 418493.