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

scheme -> racket

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2013-07-13 12:53:42 -04:00
parent d238adf746
commit 6f551d4c9d
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lang-slide/main.rkt
View File

@ -4,9 +4,9 @@
langs-with-colors) langs-with-colors)
(require "draw-plain.ss" (require "draw-plain.ss"
"orig-colors.rkt" "orig-colors.rkt"
slideshow slideshow/code racket/draw slideshow/code
scheme/runtime-path scheme/runtime-path
racket/gui/base) slideshow)
(define-runtime-path lang-colors.rktd "lang-colors.rktd") (define-runtime-path lang-colors.rktd "lang-colors.rktd")
(define (color->name c) (define (color->name c)
@ -99,5 +99,6 @@
(inset (lang-pict 550 color?) 14 10 -10 10)) (inset (lang-pict 550 color?) 14 10 -10 10))
(module+ main (module+ main
(require slideshow)
(slide (langs-pict #f)) (slide (langs-pict #f))
(slide (langs-pict #t))) (slide (langs-pict #t)))

4
lang-slide/mk-img.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/gui #lang racket/base
(require "main.rkt" slideshow) (require "main.rkt" racket/draw slideshow/pict racket/class)
(define the-margin 32) (define the-margin 32)