Plasma effect: Difference between revisions

=={{header|Julia}}==

{{trans|Perl}}==

<lang julia>using Luxor, Colors

Drawing(800, 800)

background("white")

origin()

function drawpoint(p, hue)

sethue(hue)

circle(p, 1, :fill)

end

function plasma(wid, hei)

for x in 1:wid, y in 1:hei

sethue(parse(Colorant, HSV(180 + 45sin(x/19) + 45sin(y/9) +

45sin((x+y)/25) + 45sin(sqrt(x^2 + y^2)/8), 1, 1)))

circle(Point(x, y), 1, :fill)

end

end

@png begin plasma(800, 800) end

</lang>