; Season's Greetings in LISP-Style :)	
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Hit ESCAPE to Exit			
; REDRAW or PAN to Clean		
;					
; Set DELAY at your choice		
; And have fun from LISP...		
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Copyleft : Vaidas Guogis, vg@kitox.com
; 2009.12.18 	   	   www.kitox.com



(setvar "cmdecho" 0)
(setq h	 (getvar "viewsize")
      b	 (* (getvar "viewsize")
	    (/ (car (getvar "screensize")) (cadr (getvar "screensize")))
	 )
      l	 (* h 0.01)
      a	 0
      bl (list (- (car (getvar "viewctr")) (* b 0.5))
	       (- (cadr (getvar "viewctr")) (* h 0.5))
	 )
      p	 (polar bl (/ PI 33) (/ h 33))
)

(while (= (logand (getvar "cmdactive") 0) 0)
  (repeat 6
    (grdraw p (polar p a l) 7)
    (setq a (+ a (/ PI 3)))
  )

  (setq	a (+ a (/ PI 12))
	x (+ (* (abs (- (car p) (fix (car p)))) b)
	     (car bl)
	  )
  )
  (command "_delay" 1)
  (setq	y (+ (* (abs (- (cadr p) (fix (cadr p)))) h)
	     (cadr bl)
	  )
	p (list x y)
  )
)