Browse Source

d2s minor efficiency updates

master
Crystalize 8 months ago
parent
commit
40a220d81d
  1. 4
      disc2strip.xml

4
disc2strip.xml

@ -22,13 +22,13 @@
let
scale = dot(p_in, p_in)
rin = p_in * scale
r_factor = exp(log(dot(rin, rin)) * 2)
r_factor = exp(log(dot(rin, rin)) * 2.0)
theta = atan2(rin.y, rin.x)
phi = theta - pi() * floor(theta / pi())
phi2 = if phi > 0.5 * pi()
then phi - pi()
else phi
amp = ((1 / cos(phi2) - 1) + 1.0) * r_factor * weight
amp = (1 / cos(phi2)) * r_factor * weight
in
rin * amp
]]>

Loading…
Cancel
Save