1;; 2;; Dr Geo 3;; (C) Copyright OFSET 2003 4;; Author: hilaire@ofset.org 5;; 6;; 7;; 8;; 9;; This program is free software; you can redistribute it and/or modify 10;; it under the terms of the GNU General Public Licences as by published 11;; by the Free Software Foundation; either version 2; or (at your option) 12;; any later version 13;; 14;; This program is distributed in the hope that it will entertaining, 15;; but WITHOUT ANY WARRANTY; without even the implied warranty of 16;; MERCHANTABILTY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General 17;; Publis License for more details. 18;; 19;; You should have received a copy of the GNU General Public License along 20;; with this program; if not, write to the Free Software Foundation, Inc. 21;; 675 Mass Ave, Cambridge, MA 02139, USA. 22;; 23 24;; 25;; Spanish version out of the french one by Adrian Soto 2004. 26;; (adrianmatematico@yahoo.com.mx) 27 28;; I think it might be nice to have a version of the commands having no 29;; accents nor e\~nes, so I included it. Some adjectives have both masculin 30;; and femenin versions. I am not sure if it is a good idea. 31 32 33 34;; Color taken from geo/couleur.h 35(define negro black) 36(define gris-oscuro dark-grey) 37(define gris-obscuro dark-grey) 38(define gris grey) 39(define blanco white) 40(define verde-oscuro dark-green) 41(define verde-obscuro dark-green) 42(define verde green) 43(define azul-oscuro dark-blue) 44(define azul-obscuro dark-blue) 45(define azul blue) 46(define rojo red) 47(define rojo-oscuro bordeaux) 48(define rojo-obscuro bordeaux) 49(define amarillo yellow) 50(define anaranjado orange) 51(define naranja orange) 52 53 54 55;; Thickness taken from geo/drgeo_drgeoStyle.h 56(define punteado dashed) 57(define peque�o small) 58(define pequeno small) 59(define grande large) 60(define normal normal) 61;; "normal" is the same in english, french and spanish. 62 63 64 65 66;; PointType taken from geo/drgeo_drgeoStyle.h 67(define redondo round) 68(define redonda round) 69(define cruz cross) 70(define cuadrado rec) 71(define cuadrada rec) 72(define redondo-vac�o round-empty) 73(define redondo-vacio round-empty) 74(define redonda-vac�a round-empty) 75(define redonda-vacia round-empty) 76(define cuadrado-vac�o rec-empty) 77(define cuadrado-vacio rec-empty) 78(define cuadrada-vac�a rec-empty) 79(define cuadrada-vacia rec-empty) 80(define rec-vac�a rec-empty) 81(define rec-vacia rec-empty) 82 83 84;; to avoid ' define some synonyms 85;; related to style 86(define color 'color) 87(define grosor 'thickness) 88(define forma 'shape) 89(define tama�o 'size) 90(define tamano 'size) 91(define enmascarado 'masked) 92(define oculto 'masked) 93(define ocultar 'masked) 94 95;; related to point 96(define libre 'free) 97(define sobre-la-curva 'on-curve) 98(define sobre-curva 'on-curve) 99(define en-curva 'on-curve) 100(define en-linea 'on-curve) 101(define mitad-2pts 'middle-2pts) 102(define mitad-segmento 'middle-segment) 103(define intersecci�n 'intersection) 104(define interseccion 'intersection) 105(define intersecci�n2 'intersection2) 106(define interseccion2 'intersection2) 107 108;; related to segment 109(define extremos 'extremities) 110 111;;related to line, ray, circle, vector 112(define 2puntos '2points) 113(define 2pts '2points) 114(define 3points '3points) 115(define 3pts '3points) 116;;related to line 117(define paralela 'parallel) 118(define ortogonal 'orthogonal) 119(define perpendicular 'orthogonal) 120;; related to circle 121(define centro-radio 'center-radius) 122(define centro-segmento 'center-segment) 123;; related to poligon 124(define npuntos 'npoints) 125;; related to numeric 126(define longitud-segmento 'segment-length) 127(define norma-vector 'vector-norm) 128(define longitud-vector 'vector-norm) 129(define punto-recta 'point-line) 130(define punto-c�rculo 'point-circle) 131(define punto-circulo 'point-circle) 132(define punto-punto 'point-point) 133(define per�metro-c�rculo 'circle-length) 134(define perimetro-circulo 'circle-length) 135(define longitud-c�rculo 'circle-length) 136(define longitud-circulo 'circle-length) 137(define pendiente-l�nea 'line-slope) 138(define pendiente-linea 'line-slope) 139(define pendiente-recta 'line-slope) 140(define longitud-arco 'arc-length) 141 142;; related to angle 143(define geom�trico 'geometric) 144(define geometrico 'geometric) 145(define orientado 'oriented) 146 147;; related to transformation 148(define rotaci�n 'rotation) 149(define rotacion 'rotation) 150(define homotecia 'scale) 151(define escala 'scale) 152(define simetr�a 'symmetry) 153(define simetria 'symmetry) 154;;(define media-vuelta 'symmetry) 155(define reflexion 'reflexion) 156(define translaci�n 'translation) 157(define translaci�n 'translation) 158(define traslaci�n 'translation) 159(define traslacion 'translation) 160 161;;(define media-vuelta 'symmetry) 162 163 164 165 166;; 167;; Some Macro to get cooool way 168;; to define object: 169;; 170;; (sea Punto "A" libre 1 2) is as 171;; (define A (Punto "A" libre 1 2)) 172;; 173(define-macro (sea func . Largs) 174`(define ,(string->symbol (car Largs)) (,func ,@Largs))) 175 176 177;; 178;; Define synonyme in your languale file 179;; (i.e. drgeo_scm_interface_constant_fr.scm) 180 181(define nueva-figura new-figure) 182(define figura-nueva new-figure) 183(define enviar send) 184(define env�a send) 185(define envia send) 186(define Punto Point) 187(define Recta Line) 188(define L�nea Line) 189(define Linea Line) 190(define Segmento Segment) 191(define Semirrecta Ray) 192(define Rayo Ray) 193(define C�rculo Circle) 194(define Circulo Circle) 195(define Arco Arc) 196(define Arco Arc) 197(define Lugar-geom�trico Locus) 198(define Lugar-geometrico Locus) 199(define Vector Vector) 200(define Num�rico Numeric) 201(define Numerico Numeric) 202(define N�mero Numeric) 203(define Numero Numeric) 204(define �ngulo Angle) 205(define Angulo Angle) 206(define Pol�gono Polygon) 207(define Poligono Polygon)