PasteRack.org
Paste # 75973
2017-09-16 15:39:55

Fork as a new paste.

Paste viewed 37 times.


Embed:

Note drop

#lang racket
(require 2htdp/image)
(require 2htdp/universe)
(define note .)
(define SCREEN_WIDTH 100)
(define SCREEN_HEIGHT 100)
(define NOTE_HALF_HEIGHT (/ (image-height note) 2))


(define (note-drop height)
  (cond
    [(<= (+ height NOTE_HALF_HEIGHT) SCREEN_HEIGHT)
     (place-image note 50 (+ height NOTE_HALF_HEIGHT) (empty-scene SCREEN_WIDTH SCREEN_HEIGHT))]
    [(> (+ height NOTE_HALF_HEIGHT) SCREEN_HEIGHT)
     (place-image note 50 (- SCREEN_HEIGHT NOTE_HALF_HEIGHT) (empty-scene SCREEN_WIDTH SCREEN_HEIGHT))]))

=>

prog:4:14: read: unexpected `)'
  context...:
   /home/pasterack/racket68/collects/syntax/module-reader.rkt:186:17: body
   /home/pasterack/racket68/collects/syntax/module-reader.rkt:183:2: wrap-internal
   /home/pasterack/racket68/collects/racket/../syntax/module-reader.rkt:65:9: lang:read-syntax
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:112:0: get-tokens
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:56:0: typeset-code15
   /home/pasterack/pasterack/tmp/75973/75973code.scrbl: [running body]
   loop
   ...cket/cmdline.rkt:179:51
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/run.rkt: [running body]