blob: 3d35313913fcab275745f39d4a228a00a33be8cc (
plain)
1
2
3
4
5
|
#lang racket
(require (lib "turtles.ss" "graphics"))
(define carre (lambda (lgr) (begin (turtles #t) (draw lgr) (turn 90) (draw lgr) (turn 90 ) (draw lgr) (turn 90) (draw lgr))))
(define hexagone ( lambda (lgr) (begin (turtles #t ) ( draw lgr )(turn 60) ( draw lgr )(turn 60)( draw lgr )(turn 60)( draw lgr )(turn 60)( draw lgr )(turn 60)( draw lgr )(turn 60))))
(define figure ( lambda (n lgt) (let ( angle (/ 360 n)) (begin
|
