Spirographes
L'art du métier à tisser. Typiquement, un fil brillamment coloré est enroulé entre les ongles et attaché à un morceau de bois.
Ce programme emploie un choix circulaire de 90 trous. Imaginez qu'ils sont numérotés de 1 à 90 dans le sens horaire à partir du haut. Chaque corde est filetée d'un trou de départ à un trou de finition. Les trous de départ grandissent de 1 à 90. Les trous de finition montent par intervalles de 2. Par conséquent, les cordes premières sont filetées de 1 à 2, 2 à 4, 3 à 6, 4 à 8 etc... Ceci donne le modèle classique montré.
Le programme dessine les modèles produits pour une élévation par 4, 3 et finalement 2 étapes.
Ce programme emploie un choix circulaire de 90 trous. Imaginez qu'ils sont numérotés de 1 à 90 dans le sens horaire à partir du haut. Chaque corde est filetée d'un trou de départ à un trou de finition. Les trous de départ grandissent de 1 à 90. Les trous de finition montent par intervalles de 2. Par conséquent, les cordes premières sont filetées de 1 à 2, 2 à 4, 3 à 6, 4 à 8 etc... Ceci donne le modèle classique montré.
Le programme dessine les modèles produits pour une élévation par 4, 3 et finalement 2 étapes.
|
# Commande principale: demarrer
pour new # set defaults, screen, pen et tortue init ftd [400 400] fcfg noir fcc vert levecrayon cachetortue fin pour liss :c repetepour phrase phrase liste "t 0 360 (6-:c) [ fcc angcol :t levecrayon fixexy 190*sin :t 190*cos :t baissecrayon # move pour start point on cercle fixexy 190*sin (:c*:t) 190*cos (:c*:t) # move pour finish point on cercle attends 10] fin pour angcol :t # retourne liste of red, grn, bleu donne "red 127*(1+cos :t) donne "grn 127*(1+cos(120+:t)) donne "blue 127*(1+cos(240+:t)) retourne phrase liste :red :grn :blue fin pour demarrer repetepour [c 4 2 -1] [new liss :c attends 100] fin |
demarrer
