(defun lochblech(filename / fh b w h i p r row col)
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq fh(open filename "r"))
  (setq w(atoi(read-line fh)))
  (setq h(atoi(read-line fh)))
  (setq row 0)
  (setq p '(0 0))
  (setq r (/ 1 255.0))
  (repeat h
    (setq col 0)
    (repeat w
      (setq p(list(* 1.1 col)(* 1.1 row)))
      (setq b(1+(atoi(read-line fh))))
      ;(command "_circle" p (* b r))
      (command "_donut" 0 (* b r) p "")
      (setq col(1+ col))
    )
    (setq row(1- row))
  )
  (close fh)
)