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)