home *** CD-ROM | disk | FTP | other *** search
/ Freelog 3 / Freelog003.iso / Logs / Educ / WinGeom / TRANSFO1.MAC < prev    next >
Text File  |  1993-04-07  |  633b  |  60 lines
  1.  
  2. def_macro 'SymΘtrie axiale',symetrie_axiale
  3. obj_initiaux dp
  4. obj_finaux p
  5.  
  6.   nomme A
  7.   nomme D0
  8.   D0
  9.   A
  10.   droite_perpendiculaire
  11.   nomme D1
  12.   D1
  13.   D0
  14.   inter
  15.   nomme_inter B
  16.   B
  17.   A
  18.   homothΘtie -1
  19.   nomme C
  20.   C
  21.  
  22. fin_macro
  23.  
  24.  
  25. def_macro 'Translation vecteur AB',translation_vecteur_
  26. obj_initiaux ppp
  27. obj_finaux p
  28.  
  29.   nomme B
  30.   nomme C
  31.   nomme A
  32.   B
  33.   C
  34.   milieu
  35.   nomme D
  36.   D
  37.   A
  38.   homothΘtie -1
  39.   nomme E
  40.   E
  41.  
  42. fin_macro
  43.  
  44.  
  45. def_macro 'SymΘtrie centrale',symetrie_centrale
  46. obj_initiaux pp
  47. obj_finaux p
  48.  
  49.   nomme B
  50.   nomme A
  51.   A
  52.   B
  53.   homothΘtie -1
  54.   nomme C
  55.   C
  56.  
  57. fin_macro
  58.  
  59. fin.
  60.