Skip to content

Instantly share code, notes, and snippets.

@gcr

gcr/pin-over2.rkt

Created January 28, 2014 23:59
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save gcr/8679108 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save gcr/8679108 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
pin-over2.rkt
(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