suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mocking up the image library so the repl can be run under textual environments.

Browse Source
This commit is contained in:
Danny Yoo 2013-03-05 16:38:29 -07:00
parent 511c3a0c20
commit 48b1ca271d
1 changed files with 83 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
whalesong/image/private/racket-impl.rkt
View File

@ -1,7 +1,6 @@
#lang s-exp "../../lang/base.rkt" #lang s-exp "../../lang/base.rkt"
(require 2htdp/image (require (for-syntax racket/base))
(for-syntax racket/base))
(provide text (provide text
text/font text/font
@ -51,9 +50,6 @@
y-place? y-place?
angle? angle?
side-count? side-count?
image-color?
image? image?
;; Something funky is happening on the Racket side of things with regards ;; Something funky is happening on the Racket side of things with regards
;; to step-count? See: http://bugs.racket-lang.org/query/?cmd=view&pr=12031 ;; to step-count? See: http://bugs.racket-lang.org/query/?cmd=view&pr=12031
@ -62,14 +58,20 @@
bitmap/url bitmap/url
name->color name->color
step-count?
image-url
open-image-url
color-list->bitmap
) )
(provide (rename-out (my-color-list->bitmap color-list->bitmap))) ;(provide (rename-out (my-color-list->bitmap color-list->bitmap)))
(define (my-color-list->bitmap x w h) ;(define (my-color-list->bitmap x w h)
(color-list->bitmap x w h)) ; (color-list->bitmap x w h))
(set! my-color-list->bitmap my-color-list->bitmap) ;(set! my-color-list->bitmap my-color-list->bitmap)
(define-syntax (define-stubs stx) (define-syntax (define-stubs stx)
@ -77,29 +79,91 @@
[(_ f ...) [(_ f ...)
(syntax/loc stx (syntax/loc stx
(begin (begin
(define f (lambda args (error 'f))) ...))])) (begin (define f (lambda args (error 'f "stub definition")))
(set! f f))
...))]))
(define-stubs color-list->image) (define-stubs
text
text/font
overlay
overlay/xy
overlay/align
underlay
underlay/xy
underlay/align
beside
beside/align
above
above/align
empty-scene
place-image
place-image/align
rotate
scale
scale/xy
flip-horizontal
flip-vertical
frame
crop
line
add-line
scene+line
circle
square
rectangle
regular-polygon
ellipse
triangle
right-triangle
isosceles-triangle
star
radial-star
star-polygon
rhombus
image->color-list
color-list->image
image-width
image-height
image-baseline
image-color?
mode?
x-place?
y-place?
angle?
side-count?
image?
;; Something funky is happening on the Racket side of things with regards
;; to step-count? See: http://bugs.racket-lang.org/query/?cmd=view&pr=12031
;; step-count?
bitmap/url
name->color
step-count?
image-url
open-image-url
color-list->bitmap
)
(define (my-step-count? x) ;(define (my-step-count? x)
(and (integer? x) ; (and (integer? x)
(>= x 1))) ; (>= x 1)))
(define image-url (procedure-rename bitmap/url 'image-url)) ;(define image-url (procedure-rename bitmap/url 'image-url))
(define open-image-url (procedure-rename bitmap/url 'open-image-url)) ;(define open-image-url (procedure-rename bitmap/url 'open-image-url))
(define (name->color n) #;(define (name->color n)
(error 'name->color "not implemented yet")) (error 'name->color "not implemented yet"))
(provide (rename-out [my-step-count? step-count?] #;(provide (rename-out [my-step-count? step-count?]
[bitmap/url image-url] [bitmap/url image-url]
[bitmap/url open-image-url])) [bitmap/url open-image-url]))