source: 2014/koodauskerho/38/VilhoP/PitkäJuna.rkt @ 5823

Revision 5823, 612 bytes checked in by jotapoti, 7 years ago (diff)

DrRacket?-tehtäviä

Line 
1#lang racket
2(require 2htdp/image)
3
4(define pallo (circle 20 "solid" "red"))
5
6(define (kuvio luku)
7  (cond
8    [(= luku 1) pallo]
9    [(= luku 2) laatikko]
10    [else empty-image]))
11
12(define (juna lkm)
13  (cond
14    [(<= lkm 0) empty-image]
15    [(= lkm 1) vaunu]
16    [else (beside vaunu liitin (juna (- lkm 1)))]))
17
18(define (laatikko leveys korkeus vÀri)
19  (rectangle leveys korkeus "solid" vÀri))
20
21(define rengas (circle 10 "solid" "gray"))
22
23(define renkaat (overlay/offset rengas 40 0 rengas))
24
25(define liitin (rectangle 5 5 "solid" "gray"))
26
27(define vaunu (overlay/offset (laatikko 60 30 "blue") 0 20 renkaat))
Note: See TracBrowser for help on using the repository browser.