PasteRack.org
Paste # 633
2017-09-16 15:49:16

Fork as a new paste.

Paste viewed 44 times.


Embed:

Note drop

  1. #lang racket
  2. (require 2htdp/image)
  3. (require 2htdp/universe)
  4. (define note (rectangle 32 32 "outline" "black"))
  5. (define SCREEN_WIDTH 100)
  6. (define SCREEN_HEIGHT 100)
  7. (define NOTE_HALF_HEIGHT (/ (image-height note) 2))
  8.  
  9.  
  10. (define (note-drop height)
  11.   (cond
  12.     [(<= (+ height NOTE_HALF_HEIGHT) SCREEN_HEIGHT)
  13.      (place-image note 50 (+ height NOTE_HALF_HEIGHT) (empty-scene SCREEN_WIDTH SCREEN_HEIGHT))]
  14.     [(> (+ height NOTE_HALF_HEIGHT) SCREEN_HEIGHT)
  15.      (place-image note 50 (- SCREEN_HEIGHT NOTE_HALF_HEIGHT) (empty-scene SCREEN_WIDTH SCREEN_HEIGHT))]))
  16. (animate note-drop)

=>