diff options
| author | Gaspard Coulet <gaspard.coulet@mines-ales.org> | 2021-04-28 23:05:53 +0200 |
|---|---|---|
| committer | Gaspard Coulet <gaspard.coulet@mines-ales.org> | 2021-04-28 23:05:53 +0200 |
| commit | 9fe033ea88c2f705ec18c232873d056e0c229d72 (patch) | |
| tree | 0647dc8c51610c7336c88c04de2068ea14b21e17 /sem_4/progaapp/TP1/tortue.rkt | |
Initial commit
Diffstat (limited to 'sem_4/progaapp/TP1/tortue.rkt')
| -rw-r--r-- | sem_4/progaapp/TP1/tortue.rkt | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/sem_4/progaapp/TP1/tortue.rkt b/sem_4/progaapp/TP1/tortue.rkt new file mode 100644 index 0000000..bab2885 --- /dev/null +++ b/sem_4/progaapp/TP1/tortue.rkt @@ -0,0 +1,6 @@ +#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))) (letrec ((f (lambda(i) (if (not (= i 0)) (begin (draw lgt) (turn angle) (f (- i 1))) (turn ( / 360 (/ n 2)) ))))) (f n) + )))) |