PasteRack.org | ||
Paste # 75973 | ||
2017-09-16 15:39:55 | ||
Fork as a new paste. | ||
Paste viewed 37 times. | ||
Tweet | ||
Embed: | ||
#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]