(define pi 3.141592653589793)
(define d (log 2.890053638264))
(define (st x)
   (let ((x (car x))(y (cadr x))(b (caddr x)))
   (let* ((o (> b (/ pi 2)))(a (if o (- pi b) (- b))))
   (let ((cenx (+ x (* y (tan b))))(L (log (tan (+ (/ a 2) (/ pi 4))))))
   (let* ((nL ((if o - +) L d))(na (- (* 2 (atan (exp nL))) (/ pi 2))))
   (let* ((dx (- cenx x))(r (sqrt (+ (* y y)(* dx dx)))))
   (let ((nx (+ cenx (* r (sin na))))(ny (* r (cos na))))
   (let* ((pnb (if o (- pi na) (- na)))(tnb (+ pnb (/ pi 2)))
      (nb (if (> tnb (* 1.5 pi)) (- tnb (* 2 pi)) tnb)))
   (list nx ny nb)))))))))
(st (st (st (st (st '(0 1 .1))))))