Discussion :

[thomas9501]

Je vous explique mon cas :
J'utilise un programme turtle codé en C et contrôlé par la console avec du code Lisp (avec guile) qui permet de dessiner des choses dans une fenêtre graphique.

Lorsque je tappe ce bout de code, toujours la même erreur s'affiche et arrête le programme et je ne sais pas pourquoi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
(load "useful-macros.scm")
 
(define FillRect
	(lambda (X Y W H)
	((pen-up)
	(goto X Y)
	(pen-down)
	(for i 0 (- H 1)
		(goto (+ X (- W 1)) (+ Y i))
		(goto X (+ Y i))))))
 
(FillRect 10 10 50 20)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Backtrace:
In unknown file:
   ?: 0* [primitive-load "test.scm"]
In test.scm:
  33: 1* [FillRect 10 10 50 20]
  26: 2  [#<unspecified> #<unspecified> #<unspecified> #<unspecified>]
 
test.scm:26:9: In expression ((pen-up) (goto X Y) (pen-down) ...):
test.scm:26:9: Wrong type to apply: #<unspecified>
ABORT: (misc-error)

Je précise que les opérateurs pen-up, pen-down, goto sont défini et compris par le programme et le for est défini dans le fichier lancé au tout début.

Je suis en train de m'arracher les cheveux dessus et je suis persuadé que c'est une erreur toute bête mais je ne trouve pas. Merci de m'aider

[thomas9501]

Problème résolu, il suffisait simplement d'enlever les parenthèses en rouge :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
(load "useful-macros.scm")

(define FillRect
	(lambda (X Y W H)
	((pen-up)
	(goto X Y)
	(pen-down)
	(for i 0 (- H 1)
		(goto (+ X (- W 1)) (+ Y i))
		(goto X (+ Y i))))))

(FillRect 10 10 50 20)

[jack-ft]

Problème résolu, il suffisait simplement d'enlever les parenthèses en rouge :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
(load "useful-macros.scm")

(define FillRect
	(lambda (X Y W H)
	((pen-up)
	(goto X Y)
	(pen-down)
	(for i 0 (- H 1)
		(goto (+ X (- W 1)) (+ Y i))
		(goto X (+ Y i))))))

(FillRect 10 10 50 20)

Bonjour,

Lorsqu'on programme en lisp (comme moi depuis plus de 20 ans), on a intérêt à utiliser un éditeur comme emacs ou xemacs (disponible sur toutes les plateformes), qui permet d'avoir le code en coloration syntaxique avec l'indentation automatique du code (commande "M-x indent-sexp") et d'obtenir la forme suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
(define FillRect
  (lambda (X Y W H)
    ((pen-up)
     (goto X Y)
     (pen-down)
     (for i 0 (- H 1)
          (goto (+ X (- W 1)) (+ Y i))
          (goto X (+ Y i))))))

Celle-ci fait clairement apparaître les problèmes de parenthèses qui sont souvent difficiles à voir à l'oeil nu!

Ceci dit, j'ai fait pas mal de LOGO et, pour ma part, pour respecter l'esprit turtle geometry, j'aurais plutôt fait quelque chose comme ceci.

Pour remplir un rectangle indépendamment de son orientation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
(define FillRectWH
  (lambda (W H)
    (repeat H
      (right 90)
      (forward W)
      (backward W)
      (left 90)
      (forward 1))
    (backward H)))

Et, pour remplir un rectangle "horizontal"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
(define FillRect
  (lambda (X Y W H)
    (pen-up)
    (goto X Y)
    (fcap 0) ; pour se tourner vers le nord
    (pen-down)
    (FillRectWH W H)))

Qu'en penses-tu?

)jack(