From 9fe033ea88c2f705ec18c232873d056e0c229d72 Mon Sep 17 00:00:00 2001 From: Gaspard Coulet Date: Wed, 28 Apr 2021 23:05:53 +0200 Subject: Initial commit --- sem_4/progaapp/TP1/tortue.bak | 5 +++++ 1 file changed, 5 insertions(+) create mode 100644 sem_4/progaapp/TP1/tortue.bak (limited to 'sem_4/progaapp/TP1/tortue.bak') diff --git a/sem_4/progaapp/TP1/tortue.bak b/sem_4/progaapp/TP1/tortue.bak new file mode 100644 index 0000000..3d35313 --- /dev/null +++ b/sem_4/progaapp/TP1/tortue.bak @@ -0,0 +1,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 \ No newline at end of file -- cgit v1.2.3