source: 2014/koodauskerho/38/VilhoP/LippuJaJuna.rkt @ 5823

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

DrRacket?-tehtäviä

Line 
1#lang racket
2(require 2htdp/image)
3
4(define (pallo sÀde vÀri)
5  (circle sÀde "solid" vÀri))
6
7(define (laatikko leveys korkeus vÀri)
8  (rectangle leveys korkeus "solid" vÀri))
9
10(define rengas (circle 10 "solid" "gray"))
11
12(define renkaat (overlay/offset rengas 40 0 rengas))
13
14(define liitin (rectangle 5 5 "solid" "gray"))
15
16(define vaunu (overlay/offset (laatikko 60 30 "blue") 0 20 renkaat))
17
18(define juna (beside vaunu liitin vaunu liitin vaunu))
19
20
21(define risti (overlay/offset (laatikko 60 10 "blue") -10 0 (laatikko 10 30 "blue")))
22(define lippu (overlay/offset risti 0 0 (laatikko 60 30 "white")))
Note: See TracBrowser for help on using the repository browser.