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

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

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