# =========================================================================== # # From: # # www.contextfreeart.org/gallery2/#design/4111 # # HEIGHT: 800 # WIDTH: 800 # # =========================================================================== #
n = 8000
A = -0.99
R(i) = rand(i)+1 xP = R(10) yP = R(10) xF = R(3)+2 yF = R(3)+2 xA = R(7)+3 yA = min(R(7)+3, (xA/2) )
sA = 0.05 sF = R(10)
CF::Background = [ b -1 ]
startshape LASER []
sine(t,amp,freq,phase) = amp*sin( (freq*360*t) + (360*phase) )
shape LASER {
loop i=n [] { t = i/n X = sine ( t, xA, xF, xP ) Y = sine ( t, yA, yF, yP ) S = sine ( t, sA, sF, 0 )+sA+0.03 DOT [ s S x X y Y ] }
}
shape DOT {
CIRCLE [ a A b 1 sat 1 h 120 ] DOT [ s 0.8 ]
}
# runcfdg laser