; CHAOS BY RICHARD RUSCHER  6075 SO. 34TH STREET GREENFIELD, WI 53221
; RELEASED AS PUBLIC DOMAIN BUT PLEASE GIVE CREDIT WHERE CREDIT IS DUE.
(DEFUN C:CHAOS()
   (SETVAR "LUNITS" 2)
   (SETVAR "PDMODE" 0)
   (SETVAR "CMDECHO" 0)
   (COMMAND "PLINE" "0,0" "11,0" "11,8.5" "0,8.5" "C" )
   (COMMAND "ZOOM" "E")
      (SETQ PTA ".25,.25")
   (COMMAND "POINT" PTA)
      (SETQ PTB "5.5,8.25")
   (COMMAND "POINT" PTB)
      (SETQ PTC "10.75,.25")
   (COMMAND "POINT" PTC)
   (SETQ P1 (GETPOINT "Pick a starting point anywhere on the screen"))(terpri)
   (COMMAND "POINT" P1)
   (setq d (getint "Enter number of dots: [1000 min.] "))(terpri)
    (setq a 1)
     (while (< a d)
      (SETQ X (RTOS (GETVAR "CDATE") 2 15)
            Y (SUBSTR X 24 1))
          (IF (< Y "7")
           (IF (> Y "0")
            (PROGN
             (SETQ NEW Y)
               (IF(= new "6") (setq p2 '(10.75 0.25)))
                (IF(= new "5") (setq p2 '(10.75 0.25)))
                 (IF(= new "4") (setq p2 '(5.5 8.25)))
                  (IF(= new "3") (setq p2 '(5.5 8.25)))
                   (IF(= new "2") (setq p2 '(0.25 0.25)))
                    (IF(= new "1") (setq p2 '(0.25 0.25)))
                  (setq ang (angle p1 p2))
                  (setq dist (distance p1 p2))
                  (setq p3 (polar p1 ang ( / dist 2)))
                 ; (COMMAND "COLOR" (ATOI Y))
                  (command "point" p3)
                  (setq p1 p3)
             (setq a (1+ a))
             )
            )
            (PRINC)
           )
     )
   (PRINC)
)