(defun translat( ima xc yc r rs)

  (setq r (- r rs))
  (print "hallo")

  (setq pi 3.14159265)

  (setq si (round (* 2 pi r)))
  (print si)

  (setq newim (image si r))
  (setq intervall (/ 1.0 r))


  (dotimes (y r NIL)
    (setq cnt 0)
    (setq myy (+ y rs))
    (dotimes (x si NIL)

      (setq xn (round (+ xc (* myy (cos (float cnt))) )))
      (setq yn (round (+ yc (* myy (sin (float cnt))) )))

      (setq cnt (+ cnt intervall))
      ;(print cnt)

      ;(print  xn)
      ;(print  y)
      ;(print  x)

      (putpixel newim x y (getpixel ima xn yn))
    )
  )
  newim
)


(defun round(n)
  
  (setq i 0)
  (loop
    (progn
      (if (<  (-  n (float i) ) 0.5) 
	(return i)
      )
    )
    (setq i (+ 1 i))
  )
)

;(setq tim (readim "pics\\schwe1-1.tif" 640 480))
;(translat tim 284 230 200)
(chdir "C:\\Dokumente\ und\ Einstellungen\\admin\\Eigene\ Dateien\\Eigene\ Dokumente\\uni\\imatges\\practica2")

(setq tima (readim "pics\\schwe1-1.tif" 640 480))
(display (translat tima 284 230 200 0))