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

Revert "Add output of a few front page examples in explanations."

Browse Source 
This reverts commit a5bc367b89.
This commit is contained in:
Sam Tobin-Hochstadt 2014-04-07 17:48:03 -04:00
parent 5055a61a56
commit d273f3130b
3 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
pkgs/plt-services/meta/new-web/www/img/cos-deriv.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 26 KiB

BIN
pkgs/plt-services/meta/new-web/www/img/sierp.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 6.2 KiB

10
pkgs/plt-services/meta/new-web/www/index.rkt
View File

@ -114,13 +114,11 @@
[(zero? n) (triangle 2 'solid 'red)] [(zero? n) (triangle 2 'solid 'red)]
[else (define t (sierpinski (- n 1))) [else (define t (sierpinski (- n 1)))
(freeze (above t (beside t t)))]))} (freeze (above t (beside t t)))]))}
(list
@desc{The @elemcode{2htdp/image} library provides easy-to-use functions @desc{The @elemcode{2htdp/image} library provides easy-to-use functions
for constructing images, and DrRacket can display an image result as for constructing images, and DrRacket can display an image result as
easily as it can display a number result. In this case, a easily as it can display a number result. In this case, a
@elemcode{sierpinski} function is defined and called (at the same time) @elemcode{sierpinski} function is defined and called (at the same time)
to generate a Sierpinski triangle of depth 8. It looks like} to generate a Sierpinski triangle of depth 8.})
@img[width: "50%" src: (copyfile #:site www-site (build-path img-dir "sierp.png"))]))
(graphical-example #:title "GUI Programming"; --------------------------------------------- (graphical-example #:title "GUI Programming"; ---------------------------------------------
@code{#lang racket/gui ; A GUI guessing game @code{#lang racket/gui ; A GUI guessing game
(define f (new frame% [label "Guess"])) (define f (new frame% [label "Guess"]))
@ -225,11 +223,9 @@
(define (thrice f) (lambda (x) (f (f (f x))))) (define (thrice f) (lambda (x) (f (f (f x)))))
(plot (list (function ((thrice deriv) sin) -5 5) (plot (list (function ((thrice deriv) sin) -5 5)
(function cos -5 5 #:color 'blue)))} (function cos -5 5 #:color 'blue)))}
(list
@desc{This program uses the @elemcode{plot} library to draw plots of @desc{This program uses the @elemcode{plot} library to draw plots of
functions. Note that the plots are actual values, which DrRacket shows functions. Note that the plots are actual value, which DrRacket shows
in graphical form. It looks like} in graphical form.})
@img[width: "50%" src: (copyfile #:site www-site (build-path img-dir "cos-deriv.png"))]))
(generic-example #:title "Sending email"; ----------------------------------------------- (generic-example #:title "Sending email"; -----------------------------------------------
@code{#lang racket ; Sending email from racket @code{#lang racket ; Sending email from racket
(require net/sendmail) (require net/sendmail)