Micro Systèmes n°33 jui/aoû 1983
Micro Systèmes n°33 jui/aoû 1983
  • Prix facial : 21 F

  • Parution : n°33 de jui/aoû 1983

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 198

  • Taille du fichier PDF : 154 Mo

  • Dans ce numéro : spécial NCC'83... les nouveaux produits présentés à Los Angeles.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 138 - 139  |  Aller à la page   OK
Pages suivantes >
138 139
(ECRAN NO 8  : QUELQUES DESSINS) DECIMAL 1 INITT 73 FOIS ! 28 XCOOR 9 5 POLY 22 118 XYCOOR 0 METLECAP 200 FreiNcE 120 20 XYCOOR 90 METLECAP 200 AVANCE KEY DROP 4 INITT 10 10 POLY 5 FOIS ! 50 120 POLY 5 90 120 XYCOOR 60 144 pou (6 80 40 WrOoR 50 90 POLY 7 90 170 WrOOR 40 144 POLY 8 50 FOIS ! 140 50 WrOOR 15 20 POLY KEY DROP 9 INITT 84 FOIS ! 45 METLECAP 1 92 2 SPI KEY DROP 10 INITT 102 FOIS ! 9 122 2 SPI KEY DROP 11 INITT 10 40 270 IPS 180 60 XYCOOR 20 90 200 IPS 12 170 170 XYCnOR 20 5 270 IPS KEY DROP 13 OLS 150 140 XYnOOR 20 20 300 IPS 14 80 180 WrOOR 20 10 300 IPS 15 120 50 XYCOOR 40 10 270 IPS KEY DROP Fig. I (suite). Fig. 2. - Quelques exemples d'exécution. 138 — MICRO-SYSTEMES Juillet-Août 1983
Primitives graphiques utilisées par la tortue DFROM (x0 y0) draw positionne le curseur utilisé par le traceur de vecfrom teurs sur le point (x0,y0) DTO (x Y -) draw trace un vecteur (un segment de droite) joignant le to point (x,y) et le point désigné par DFROM CLS (-) efface l'écran PEN (n) n désigne la couleur utilisée pour le tracé de vecteur ; si n = 0, la trace est « invisible » Fontions et utilitaires trigonométriques TABLE (adr) tableau de 182 octets contenant les valeurs entières des cosinus de 0 à 90 degrés COS (thêta - costhêta) thêta compris entre 0 et 359 représente la valeur de l'angle en degrés, costhêta représente la valeur du SIN cosinus de thêta compris entre — 32767 et 32767 (thêta - sinthêta) identique à COS mais avec le sinus 360 MOD (n1 - n2) n2 représente n1 modulo 360 compris entre 0 et 359 La tortue et ses commandes, les variables THETA (adr) CAP vers lequel pointe la tortue COSTT (adr) cosinus de (THETA) Si Nrf (adr) sinus de (THETA) FLAGC (adr) indicateur signalant si le crayon est levé ou baissé  : (FLAGC)=1  : le crayon est baissé (FLAGC)=0  : le crayon est levé XTORT (adr) coordonnée horizontale de la tortue YTORT (adr) coordonnée verticale de la tortue Les commandes XCOOR (x) x devient la coordonnée horizontale de la tortue YCOOR (y) y devient la coordonnée verticale de la tortue XYCOOR (x y -) (x,y) devient la nouvelle position de la tortue METLCAP (thêta -) oriente la tortue dans la direction thêta DROITE (thêta -) rotation de la tortue de thêta degrés vers la droite GAUCHE (thêta -) rotation de la tortue de thêta degrés vers la gauche AVANCE (n) la tortue avance de n points dans la direction (THETA) RECULE (n) la tortue recule de n points dans la direction (THETA) ORIGINE (-) positionne la tortue au centre de l'écran, dirigée vers le haut (le centre de l'écran varie selon les installations) INITT (-) initialise la tortue  : efface l'écran puis place la tortue en son milieu, dirigée vers le haut LCRAYON (-) lève le crayon, l'écriture n'a pas lieu BCRAYON (-) baisse le crayon, l'écriture a lieu GOMME (-) les vecteurs se feront désormais dans la couleur du fond (pour revoir les vecteurs, l'emploi d'un « n PEN » est obligatoire) COORX (x) renvoie la coordonnée horizontale de la tortue COORY (- Y) renvoie la coordonnée verticale de la tortue COORXY (x Y) renvoie les coordonnées de la tortue CAP (- thêta) renvoie la direction prise par la tortue Applications traduites de Logo CARRE (côté ) trace un carré de côté  : côté POLY (côté angle ) trace un polygone de paramètres  : côté et angle SPI (côté angle inc) trace une spirale, c'est-à-dire un polygone dont le côté est incrémenté de inc à chaque tour IPS (côté angle inc) identique à SPI mais, ici, c'est l'angle qui est incrémenté Tableau I. — Glossaire des commandes de la tortue. Victor possède une résolution graphique de 256 points sur 231 ; mais sur l'axe horizontal et selon l'écran utilisé, le nombre de points visibles varie entre 230 et 240. C'est pour cette raison que le centre de l'écran a été fixé au point (115, 115). Lors du tracé d'un vecteur, les points situés en dehors de l'écran ne sont pas affichés et n'entraînent pas d'erreur  : Si, sur votre machine, un point ne doit pas avoir ses coordonnées hors de l'écran, la présence de tests sera nécessaire dans le mot AVANCE. La teinte d'affichage est choisie dans une palette de 4 couleurs, elles-mêmes choisies parmi 15. La couleur « 0 » de cette palette est en général celle de l'écran. L'origine de l'écran — le point (0,0) — se trouve en bas à gauche. Si, sur votre machine, l'origine se trouve en haut à gauche, quelques modifications dans AVANCE lors du calcul de la nouvelle coordonnée verticale seront nécessaires. Les primitives graphiques utilisées par la tortue sont  : DFROM, DTO, CLS, PEN. Elles sont toutes explicitées dans le glossaire des commandes. Quelques applications L'écran n°7 du programme contient la traduction en Forth des mots Logo définis dans « Micro-Systèmes » * avec une seule différence  : au lieu d'être infinies, toutes les boucles définies en Forth sont exécutées le nombre de fois contenues dans la variable FOIS. L'écran n°8 ne contient aucune définition  : il est directe- ment exécuté et contient le programme ayant permis la réalisation des dessins illustrant cet article (fig. 2). la * Voir « Micro-Systèmes » n°27, page 58. La récursivité n'existe pas à l'origine en Forth mais ces deux mots la donnent:  : MOI (récursion normale) LATEST PFA CFA, ; IMMEDIATE  : REMOI (recursion terminale) COMPILE BRANCH LATEST PFA HERE—, ; IMMEDIATE Juillet-Août 1983 MICRO-SYSTEMES — 139



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


Micro Systèmes numéro 33 jui/aoû 1983 Page 1Micro Systèmes numéro 33 jui/aoû 1983 Page 2-3Micro Systèmes numéro 33 jui/aoû 1983 Page 4-5Micro Systèmes numéro 33 jui/aoû 1983 Page 6-7Micro Systèmes numéro 33 jui/aoû 1983 Page 8-9Micro Systèmes numéro 33 jui/aoû 1983 Page 10-11Micro Systèmes numéro 33 jui/aoû 1983 Page 12-13Micro Systèmes numéro 33 jui/aoû 1983 Page 14-15Micro Systèmes numéro 33 jui/aoû 1983 Page 16-17Micro Systèmes numéro 33 jui/aoû 1983 Page 18-19Micro Systèmes numéro 33 jui/aoû 1983 Page 20-21Micro Systèmes numéro 33 jui/aoû 1983 Page 22-23Micro Systèmes numéro 33 jui/aoû 1983 Page 24-25Micro Systèmes numéro 33 jui/aoû 1983 Page 26-27Micro Systèmes numéro 33 jui/aoû 1983 Page 28-29Micro Systèmes numéro 33 jui/aoû 1983 Page 30-31Micro Systèmes numéro 33 jui/aoû 1983 Page 32-33Micro Systèmes numéro 33 jui/aoû 1983 Page 34-35Micro Systèmes numéro 33 jui/aoû 1983 Page 36-37Micro Systèmes numéro 33 jui/aoû 1983 Page 38-39Micro Systèmes numéro 33 jui/aoû 1983 Page 40-41Micro Systèmes numéro 33 jui/aoû 1983 Page 42-43Micro Systèmes numéro 33 jui/aoû 1983 Page 44-45Micro Systèmes numéro 33 jui/aoû 1983 Page 46-47Micro Systèmes numéro 33 jui/aoû 1983 Page 48-49Micro Systèmes numéro 33 jui/aoû 1983 Page 50-51Micro Systèmes numéro 33 jui/aoû 1983 Page 52-53Micro Systèmes numéro 33 jui/aoû 1983 Page 54-55Micro Systèmes numéro 33 jui/aoû 1983 Page 56-57Micro Systèmes numéro 33 jui/aoû 1983 Page 58-59Micro Systèmes numéro 33 jui/aoû 1983 Page 60-61Micro Systèmes numéro 33 jui/aoû 1983 Page 62-63Micro Systèmes numéro 33 jui/aoû 1983 Page 64-65Micro Systèmes numéro 33 jui/aoû 1983 Page 66-67Micro Systèmes numéro 33 jui/aoû 1983 Page 68-69Micro Systèmes numéro 33 jui/aoû 1983 Page 70-71Micro Systèmes numéro 33 jui/aoû 1983 Page 72-73Micro Systèmes numéro 33 jui/aoû 1983 Page 74-75Micro Systèmes numéro 33 jui/aoû 1983 Page 76-77Micro Systèmes numéro 33 jui/aoû 1983 Page 78-79Micro Systèmes numéro 33 jui/aoû 1983 Page 80-81Micro Systèmes numéro 33 jui/aoû 1983 Page 82-83Micro Systèmes numéro 33 jui/aoû 1983 Page 84-85Micro Systèmes numéro 33 jui/aoû 1983 Page 86-87Micro Systèmes numéro 33 jui/aoû 1983 Page 88-89Micro Systèmes numéro 33 jui/aoû 1983 Page 90-91Micro Systèmes numéro 33 jui/aoû 1983 Page 92-93Micro Systèmes numéro 33 jui/aoû 1983 Page 94-95Micro Systèmes numéro 33 jui/aoû 1983 Page 96-97Micro Systèmes numéro 33 jui/aoû 1983 Page 98-99Micro Systèmes numéro 33 jui/aoû 1983 Page 100-101Micro Systèmes numéro 33 jui/aoû 1983 Page 102-103Micro Systèmes numéro 33 jui/aoû 1983 Page 104-105Micro Systèmes numéro 33 jui/aoû 1983 Page 106-107Micro Systèmes numéro 33 jui/aoû 1983 Page 108-109Micro Systèmes numéro 33 jui/aoû 1983 Page 110-111Micro Systèmes numéro 33 jui/aoû 1983 Page 112-113Micro Systèmes numéro 33 jui/aoû 1983 Page 114-115Micro Systèmes numéro 33 jui/aoû 1983 Page 116-117Micro Systèmes numéro 33 jui/aoû 1983 Page 118-119Micro Systèmes numéro 33 jui/aoû 1983 Page 120-121Micro Systèmes numéro 33 jui/aoû 1983 Page 122-123Micro Systèmes numéro 33 jui/aoû 1983 Page 124-125Micro Systèmes numéro 33 jui/aoû 1983 Page 126-127Micro Systèmes numéro 33 jui/aoû 1983 Page 128-129Micro Systèmes numéro 33 jui/aoû 1983 Page 130-131Micro Systèmes numéro 33 jui/aoû 1983 Page 132-133Micro Systèmes numéro 33 jui/aoû 1983 Page 134-135Micro Systèmes numéro 33 jui/aoû 1983 Page 136-137Micro Systèmes numéro 33 jui/aoû 1983 Page 138-139Micro Systèmes numéro 33 jui/aoû 1983 Page 140-141Micro Systèmes numéro 33 jui/aoû 1983 Page 142-143Micro Systèmes numéro 33 jui/aoû 1983 Page 144-145Micro Systèmes numéro 33 jui/aoû 1983 Page 146-147Micro Systèmes numéro 33 jui/aoû 1983 Page 148-149Micro Systèmes numéro 33 jui/aoû 1983 Page 150-151Micro Systèmes numéro 33 jui/aoû 1983 Page 152-153Micro Systèmes numéro 33 jui/aoû 1983 Page 154-155Micro Systèmes numéro 33 jui/aoû 1983 Page 156-157Micro Systèmes numéro 33 jui/aoû 1983 Page 158-159Micro Systèmes numéro 33 jui/aoû 1983 Page 160-161Micro Systèmes numéro 33 jui/aoû 1983 Page 162-163Micro Systèmes numéro 33 jui/aoû 1983 Page 164-165Micro Systèmes numéro 33 jui/aoû 1983 Page 166-167Micro Systèmes numéro 33 jui/aoû 1983 Page 168-169Micro Systèmes numéro 33 jui/aoû 1983 Page 170-171Micro Systèmes numéro 33 jui/aoû 1983 Page 172-173Micro Systèmes numéro 33 jui/aoû 1983 Page 174-175Micro Systèmes numéro 33 jui/aoû 1983 Page 176-177Micro Systèmes numéro 33 jui/aoû 1983 Page 178-179Micro Systèmes numéro 33 jui/aoû 1983 Page 180-181Micro Systèmes numéro 33 jui/aoû 1983 Page 182-183Micro Systèmes numéro 33 jui/aoû 1983 Page 184-185Micro Systèmes numéro 33 jui/aoû 1983 Page 186-187Micro Systèmes numéro 33 jui/aoû 1983 Page 188-189Micro Systèmes numéro 33 jui/aoû 1983 Page 190-191Micro Systèmes numéro 33 jui/aoû 1983 Page 192-193Micro Systèmes numéro 33 jui/aoû 1983 Page 194-195Micro Systèmes numéro 33 jui/aoû 1983 Page 196-197Micro Systèmes numéro 33 jui/aoû 1983 Page 198