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;; French version of the constant
26;;
27
28;; Color taken from geo/couleur.h
29(define zwart black)
30(define donkergrijs dark-grey)
31(define grijs grey)
32(define wit white)
33(define donkergroen dark-green)
34(define groen green)
35(define donkerblauw dark-blue)
36(define blauw blue)
37(define rood red)
38(define geel yellow)
39
40
41;; Thickness taken from geo/drgeo_drgeoStyle.h
42(define streepje dashed)
43(define dun small)
44
45
46;; PointType taken from geo/drgeo_drgeoStyle.h
47(define rond round)
48(define kruis cross)
49(define holrond round-empty)
50(define rec-leeg rec-empty) ;; FIXME ? wat wordt bedoeld ?
51
52;; to avoid ' define some synonyms
53;; related to style
54(define kleur 'color)
55(define dikte 'thickness)
56(define vorm 'shape)
57(define grootte 'size)
58(define verbergen 'masked) ;; verborgen ??
59;; related to point
60(define willekeurig 'free)
61(define op-kromme 'on-curve)
62(define midden-2ptn 'middle-2pts)
63(define midden-lijnstuk 'middle-segment)
64;; related to segment
65(define grenspunten 'extremities)
66;;related to line
67(define evenwijdig 'parallel)
68(define orthogonaal 'orthogonal) ;; was orthog.
69(define loodrecht 'orthogonal) ;; was perpend.
70;; related to circle
71(define middelpunt-straal 'center-radius)
72(define middelpunt-lijnstuk 'center-segment)
73;; related to numeric
74(define lengte-lijnstuk 'segment-length)
75(define norm-vector 'vector-norm)
76(define punt-rechte 'point-line)
77(define punt-cirkel 'point-circle)
78(define omtrek-cirkel 'circle-length)
79(define rico-rechte 'line-slope)
80(define lengte-boog 'arc-length)
81;; related to  angle
82(define meetkundig 'geometric)
83(define geori�nteerd 'oriented)
84;; related to transformation
85(define homothetie 'scale)
86(define symmetrie 'symmetry)
87
88
89;;
90;; Some Macro to get cooool way
91;; to define object:
92;;
93;; (soit point "A" libre 1 2) is as
94;; (define A (Point "A" free 1 2))
95;;
96(define-macro (weze func . Largs)
97`(define ,(string->symbol (car Largs)) (,func ,@Largs)))
98
99
100;;
101;; Define synonyme in your languale file
102;; (i.e. drgeo_scm_interface_constant_fr.scm)
103
104(define nieuwe-figuur new-figure)
105(define zend send)
106(define Rechte Line)
107(define Halfrechte Ray)
108(define Cirkel Circle)
109(define Cirkelboog Arc)
110(define Plaats Locus)
111(define Vector Vector)
112(define Getal Numeric)
113(define Veelhoek Polygon)