svn: r9441
This commit is contained in:
Matthias Felleisen
parent
910a0ff677
commit
ca3e7cb8c7
|
|
@ -1,71 +0,0 @@
|
|||
{ (define LIBNAME "Arrows")
|
||||
(include "head.tinc") }
|
||||
|
||||
<p>A shape is a class of data for which <code>move</code> and
|
||||
<code>draw</code> operations can be drawn. </p>
|
||||
|
||||
<p>The teachpack <code>arrow.ss</code> implements controller for moving
|
||||
shapes across a canvass. It provides three operations:
|
||||
<menu>
|
||||
<li> <code>{(idx control-left-right)} : shape number move draw -> true </code>:
|
||||
|
||||
<br> It consumes a shape, a number, a <code>move</code> function and a
|
||||
<code>draw</code> function. The
|
||||
move function consumes a number and a shape and re-draws the shape on
|
||||
some canvas and produces a shape that is translated by N pixels left or
|
||||
right.
|
||||
<br><br>
|
||||
|
||||
<li> <code>{(idx control-up-down)} : shape number move -> true</code>:
|
||||
|
||||
<br> It is like <code>control-left-right</code> but controls movements by
|
||||
N pixels up or down.
|
||||
<br><br>
|
||||
|
||||
<li> <code>{(idx control)} : shape number move-lr move-ud -> true</code>:
|
||||
|
||||
<br> It consumes a shape, a number, two <code>move</code> functions, and a
|
||||
draw function. The <code>move</code> functions consume a number and a
|
||||
shape and re-draw the shape on some canvas and produces a shape that is
|
||||
translated by N pixels left or right and up or down, respectively.
|
||||
|
||||
</menu>
|
||||
|
||||
<p>Example:
|
||||
<pre>
|
||||
;; A shape is a structure:
|
||||
;; (make-posn num num)
|
||||
|
||||
;; RAD : the radius of the simple disk moving across a canvas
|
||||
(define RAD 10)
|
||||
|
||||
;; move : number shape -> shape or false
|
||||
;; to move a shape by delta according to translate
|
||||
;; effect: to redraw it
|
||||
(define (move delta sh)
|
||||
(cond
|
||||
[(and (clear-solid-disk sh RAD)
|
||||
(draw-solid-disk (translate sh delta) RAD))
|
||||
(translate sh delta)]
|
||||
[else false]))
|
||||
|
||||
;; translate : shape number -> shape
|
||||
;; to translate a shape by delta in the x direction
|
||||
(define (translate sh delta)
|
||||
(make-posn (+ (posn-x sh) delta) (posn-y sh)))
|
||||
|
||||
;; draw-it : shape -> true
|
||||
;; to draw a shape on the canvas: a disk with radius
|
||||
(define (draw-it sh)
|
||||
(draw-solid-disk sh RAD))
|
||||
|
||||
;; TESTS:
|
||||
|
||||
;; this creates the canvas
|
||||
(start 100 50)
|
||||
|
||||
;; this creates the controller GUI
|
||||
(control-left-right (make-posn 10 20) 10 move draw-it)
|
||||
</pre>
|
||||
|
||||
{(include "foot.tinc")}
|
||||
|
|
@ -22,10 +22,14 @@
|
|||
@include-section["gui.scrbl"]
|
||||
@include-section["arrow-gui.scrbl"]
|
||||
@include-section["elevator.scrbl"]
|
||||
@include-section["show-queen.scrbl"]
|
||||
|
||||
@;-- what do those do? --
|
||||
|
||||
@;include-section["guess-gui.scrbl"]
|
||||
@;include-section["lkip-gui.scrbl"]
|
||||
|
||||
|
||||
@;include-section["Simplified Scheme Web Servlets"]
|
||||
@;include-section["Scheme Web Servlets"]
|
||||
@;include-section["queen.scrbl"]
|
||||
|
||||
|
|
|
|||
|
|
@ -1,11 +0,0 @@
|
|||
<html>
|
||||
<head>
|
||||
<title>Teachpacks for How to Design Programs</title>
|
||||
</head>
|
||||
<body bgcolor="#ffffff" text="#000000" link="#009900" vlink="#007700" alink="#cc0000">
|
||||
<h1>Teachpacks for How to Design Programs</h1>
|
||||
|
||||
<ul>
|
||||
{ LIBLINKS ; libraries should be set before processing this file }</ul>
|
||||
|
||||
{(include "foot.tinc")}
|
||||
|
|
@ -1,57 +0,0 @@
|
|||
#lang scribble/doc
|
||||
|
||||
@(require scribble/manual
|
||||
(for-label scheme/base))
|
||||
|
||||
@title[#:tag "questions"]{Questions concerning scribble}
|
||||
|
||||
Here are my questions. Feel free to point me to specific pieces of
|
||||
documentations. As a matter of fact, I'd almost prefer that.
|
||||
|
||||
@itemize{
|
||||
|
||||
@item{
|
||||
world.ss imports image.ss and re-exports all the bindings.
|
||||
|
||||
So in world.scrbl, I have to require @scheme[(for-label "world.ss")] but
|
||||
when I do so, I don't get bindings for functions from
|
||||
@scheme[image.ss].
|
||||
|
||||
If I require @scheme[(for-label "image.ss")] in addition, I get an
|
||||
import conflict. What is the proper solution?
|
||||
}
|
||||
|
||||
@item{
|
||||
I'd like to make graphical examples. I looked at the "quick" guide to
|
||||
see how you do this, but I can't figure out how to run all this under
|
||||
mred's control.
|
||||
}
|
||||
|
||||
@item{
|
||||
For the teachpack definitions, I like to spell out data definitions like
|
||||
in HowToDesign. For example,
|
||||
|
||||
|
||||
;; {Mode} is one of the following two symbols or strings:
|
||||
|
||||
;; -- @scheme['solid]
|
||||
|
||||
;; -- @scheme['outline]
|
||||
|
||||
;; -- @scheme["solid"]
|
||||
|
||||
;; -- @scheme["outline"]
|
||||
|
||||
I want the two semi-colons, I want the scheme mode for the constants,
|
||||
and I want the first part to look like an ordinary test line.
|
||||
[slatex and thtml do this for me]
|
||||
|
||||
I would also like to use @scheme[Mode] as if it were some exported
|
||||
variable so that I can jump to its definition from other places in the
|
||||
documentation. But I also don't want to introduce a (fake) visible
|
||||
definition. I don't think deftech and defterm are the right tools. But
|
||||
perhaps that's all there is to it.
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
26
collects/teachpack/htdp/Docs/show-queen.scrbl
Normal file
26
collects/teachpack/htdp/Docs/show-queen.scrbl
Normal file
|
|
@ -0,0 +1,26 @@
|
|||
#lang scribble/doc
|
||||
|
||||
@(require scribble/manual
|
||||
(for-label scheme
|
||||
teachpack/htdp/show-queen))
|
||||
|
||||
@title[#:tag "show-queen"]{8 Queens: show-queen.ss}
|
||||
|
||||
@declare-exporting[teachpack/htdp/show-queen]
|
||||
|
||||
The teachpack provides the operation @scheme[show-queen], which implements
|
||||
a GUI for exploring the n-queens problem.
|
||||
|
||||
@defproc[(show-queen [board (list-of (list-of boolean?))]) true]{The
|
||||
function @scheme[show-queen] consumes a list of
|
||||
lists of booleans that describes a @scheme[board]. Each of the inner
|
||||
lists must have the same length as the outer list. The
|
||||
@scheme[true]s correspond to positions where queens are,
|
||||
and the @scheme[false]s correspond to empty squares. The
|
||||
function returns nothing.
|
||||
|
||||
In the GUI window that @scheme[show-queen] opens, the
|
||||
red and orange dots show where the queens are. The green dot
|
||||
shows where the mouse cursor is. Each queen that threatens
|
||||
the green spot is shown in red, and the queens that do not
|
||||
threaten the green spot are shown in orange.}
|
||||
|
|
@ -1,21 +0,0 @@
|
|||
{ (define LIBNAME "Show Queen")
|
||||
(include "head.tinc") }
|
||||
|
||||
<p>The teachpack <code>show-queen.ss</code> provides the
|
||||
operation <code>{(idx show-queen)}</code>. It implements a GUI for
|
||||
exploring the n-queens problem.</p>
|
||||
|
||||
<p>The function <code>show-queen</code> consumes a list of
|
||||
lists of booleans that describes a board. Each of the inner
|
||||
lists must have the same length as the outer list. The
|
||||
<code>true</code>s correspond to positions where queens are,
|
||||
and the <code>false</code>s correspond to empty squares. The
|
||||
function returns nothing.
|
||||
|
||||
<p>In the GUI window that <code>show-queen</code> opens, the
|
||||
red and orange dots show where the queens are. The green dot
|
||||
shows where the mouse cursor is. Each queen that threatens
|
||||
the green spot is shown in red, and the queens that do not
|
||||
threaten the green spot are shown in orange.
|
||||
|
||||
{(include "foot.tinc")}
|
||||
Loading…
Reference in New Issue
Block a user