Skip to content

Instantly share code, notes, and snippets.

@gcr
Created January 28, 2014 23:59
Show Gist options
  • Select an option

  • Save gcr/8679108 to your computer and use it in GitHub Desktop.

Select an option

Save gcr/8679108 to your computer and use it in GitHub Desktop.
(define (pin-over2 base f1 p1 f2 p2)
(define-values (x1 y1) (f1 base p1))
(define-values (x2 y2) (f2 p2 p2))
(panorama (pin-over base (- x1 x2) (- y1 y2) p2)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment