# =========================================================================== # # 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