PasteRack.org
Paste # 5791
2014-03-27 13:45:23

Forked from paste # 8308.

Fork as a new paste.

Paste viewed 3814 times.


Embed:

rotating a length-scaled arrow

  1. #lang racket
  2.  
  3. (require slideshow/pict)
  4.  
  5. (for/list [(i 25)]
  6.   (frame (rotate (scale (arrow 50 0) 2 1) (* pi (/ i 12)))
  7.          #:segment 5
  8.          #:color "blue"
  9.          #:line-width 1))

=>

'(image image image image image image image image image image image image image image image image image image image image image image image image image)