getting minimal set of values we need from the image library to run our image exercise

examples/image-library-example.rkt

@@ -47,7 +47,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 "simple text functionality" 
 (text "hello world" 20 'black)
-(text (string-copy "hello world") 30 'purple)
+(text "hello world" 30 'purple)
 (text "hello world" 40 'red)
 
 

examples/image-program.rkt

@@ -1,9 +0,0 @@
-#lang planet dyoo/whalesong
-(require (planet dyoo/whalesong/image))
-
-(is-color? "red")
-(is-color? "blue")
-(is-color? 42)
-
-(is-color? (make-color 3 4 5 0))
-(is-color? "color")

image/private/color.rkt

@@ -1,6 +1,15 @@
 #lang s-exp "../../lang/base.rkt"
 
-(provide [struct-out color])
+(provide (except-out [struct-out color] color make-color)
+         [rename-out [-color make-color]
+                     [-color color]])
 
 (define-struct color (red green blue alpha)
   #:extra-constructor-name make-color)
+
+(define -color
+  (case-lambda
+    [(r g b)
+     (color r g b 255)]
+    [(r g b a)
+     (color r g b a)]))

image/private/js-impl.js

@@ -1,6 +1,6 @@
-EXPORTS['is-color?'] =
+EXPORTS['image-color?'] =
     plt.runtime.makePrimitiveProcedure(
-        'is-color?',
+        'image-color?',
         1,
         function(MACHINE) {
             var elt = MACHINE.env[MACHINE.env.length - 1];

image/private/main.rkt

@@ -10,6 +10,56 @@
  #:javascript ("colordb.js"
                "kernel.js"
                "js-impl.js")
- #:provided-values (is-color?))
+ #:provided-values (text
+                    text/font
+                    image-url
+                    open-image-url
+                    overlay
+                    overlay/xy
+                    overlay/align
+                    underlay
+                    underlay/xy
+                    underlay/align
+                    beside
+                    beside/align
+                    above
+                    above/align
+                    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?
+                    step-count?
+                    
+                    ))
 
 

image/private/racket-impl.rkt

@@ -1,6 +1,86 @@
 #lang s-exp "../../lang/base.rkt"
 
-(provide is-color?)
+(require 2htdp/image
+         (for-syntax racket/base))
+
+(provide text
+         text/font
+         image-url
+         open-image-url
+         overlay
+         overlay/xy
+         overlay/align
+         underlay
+         underlay/xy
+         underlay/align
+         beside
+         beside/align
+         above
+         above/align
+         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?
+
+         ;; 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?
+         )
 
 (define (is-color? x)
   true)
+
+
+
+(define-syntax (define-stubs stx)
+  (syntax-case stx ()
+    [(_ f ...)
+     (syntax/loc stx
+       (begin
+         (define f (lambda args (error 'f))) ...))]))
+
+
+
+(define-stubs
+  image-url
+  open-image-url
+  color-list->image
+           )
+
+
+
+(define (my-step-count? x)
+  (and (integer? x)
+       (>= x 1)))
+
+(provide (rename-out [my-step-count? step-count?]))

js-assembler/runtime-src/runtime.js

@@ -1609,6 +1609,15 @@ if(this['plt'] === undefined) { this['plt'] = {}; }
         });
 
 
+    installPrimitiveProcedure(
+        'integer?',
+        1,
+        function(MACHINE) {
+            return plt.baselib.numbers.isInteger(MACHINE.env[MACHINE.env.length - 1]);
+        });
+
+
+
     installPrimitiveProcedure(
         'imag-part',
         1,

lang/kernel.rkt

@@ -263,7 +263,7 @@ vector?
 ;;  complex?
 ;;  real?
 ;;  rational?
-;;  integer?
+integer?
 exact?
 ;;  inexact?
 ;;  odd?