home *** CD-ROM | disk | FTP | other *** search
/ Freelog 3 / Freelog003.iso / Logs / Educ / WinGeom / CUBESEC.GEO < prev    next >
Text File  |  1994-01-16  |  4KB  |  391 lines
  1. repΦre -10 10 -10 10
  2. quadriller 0
  3. def_macro 'Cube',cube
  4. obj_initiaux pp
  5. obj_finaux ppppppssssssssssss
  6.  
  7.   nomme B
  8.   nomme A
  9.   A
  10.   B
  11.   rotation 1.570796
  12.   nomme C
  13.   B
  14.   A
  15.   rotation -1.57079
  16.   nomme D
  17.   A
  18.   B
  19.   homothΘtie 0.333333
  20.   nomme E
  21.   A
  22.   E
  23.   rotation 0.785398
  24.   nomme F
  25.   E
  26.   gommer
  27.   C
  28.   D
  29.   homothΘtie 0.333333
  30.   nomme G
  31.   C
  32.   G
  33.   rotation 0.785398
  34.   nomme H
  35.   G
  36.   gommer
  37.   F
  38.   H
  39.   rotation -1.57079
  40.   nomme I
  41.   H
  42.   F
  43.   rotation 1.570796
  44.   nomme J
  45.   A
  46.   C
  47.   segment
  48.   nomme _s0
  49.   B
  50.   A
  51.   segment
  52.   nomme _s1
  53.   I
  54.   B
  55.   segment
  56.   nomme _s2
  57.   J
  58.   I
  59.   segment
  60.   nomme _s3
  61.   H
  62.   J
  63.   segment
  64.   nomme _s4
  65.   C
  66.   H
  67.   segment
  68.   nomme _s5
  69.   D
  70.   B
  71.   segment
  72.   nomme _s6
  73.   C
  74.   D
  75.   segment
  76.   nomme _s7
  77.   D
  78.   J
  79.   segment
  80.   nomme _s8
  81.   F
  82.   I
  83.   segment
  84.   nomme _s9
  85.   H
  86.   F
  87.   segment
  88.   nomme _s10
  89.   F
  90.   A
  91.   segment
  92.   nomme _s11
  93.   _s10
  94.   tracΘ 1
  95.   _s9
  96.   tracΘ 1
  97.   _s11
  98.   tracΘ 1
  99.   _s0
  100.   _s1
  101.   _s2
  102.   _s3
  103.   _s4
  104.   _s5
  105.   _s6
  106.   _s7
  107.   _s8
  108.   _s9
  109.   _s10
  110.   _s11
  111.   J
  112.   H
  113.   F
  114.   I
  115.   C
  116.   D
  117.  
  118. fin_macro
  119.  
  120. point A(-4.62;-5.54)
  121. point B(3.914;-5.54)
  122. A
  123. B
  124. macro cube
  125. nomme C
  126. nomme D
  127. nomme E
  128. nomme F
  129. nomme G
  130. nomme H
  131. nomme _s0
  132. nomme _s1
  133. nomme _s2
  134. nomme _s3
  135. nomme _s4
  136. nomme _s5
  137. nomme _s6
  138. nomme _s7
  139. nomme _s8
  140. nomme _s9
  141. nomme _s10
  142. nomme _s11
  143. _s10
  144. pt_sur_objet I _s10 0.507884
  145. _s6
  146. pt_sur_objet J _s6 0.485574
  147. _s8
  148. pt_sur_objet K _s8 0.722824
  149. commente 'On se propose de tracer la section du cube par (IJK)'
  150. commente 'Commenτons par l''intersection de (IJK) et (ABCD)'
  151. commente 'Soit L sur (CH)'
  152. C
  153. H
  154. droite_2_pts
  155. nomme D0
  156. D0
  157. pt_sur_objet L D0 4.48558
  158. J
  159. L
  160. droite_2_pts
  161. nomme D1
  162. K
  163. L
  164. droite_2_pts
  165. nomme D2
  166. D
  167. C
  168. droite_2_pts
  169. nomme D3
  170. C
  171. B
  172. droite_2_pts
  173. nomme D4
  174. D1
  175. D3
  176. inter
  177. nomme_inter M
  178. D4
  179. D2
  180. inter
  181. nomme_inter N
  182. J
  183. K
  184. droite_2_pts
  185. nomme D5
  186. M
  187. N
  188. droite_2_pts
  189. nomme D6
  190. D5
  191. D6
  192. inter
  193. nomme_inter O
  194. commente 'La droite cherchΘe est alors (OI)'
  195. I
  196. O
  197. droite_2_pts
  198. nomme D7
  199. _s11
  200. D7
  201. inter
  202. nomme_inter P
  203. commente 'D''o¿ le premier segment [IP] de la section'
  204. P
  205. I
  206. segment
  207. nomme _s12
  208. commente 'On cache les traits de construction...'
  209. D7
  210. gommer
  211. D6
  212. gommer
  213. D5
  214. gommer
  215. D3
  216. gommer
  217. D1
  218. gommer
  219. D2
  220. gommer
  221. D0
  222. gommer
  223. D4
  224. gommer
  225. O
  226. gommer
  227. M
  228. gommer
  229. L
  230. gommer
  231. N
  232. gommer
  233. commente '[PJ] est Θvident...'
  234. P
  235. J
  236. segment
  237. nomme _s13
  238. commente 'L''intersection avec (BCHE) est // α [PJ]...'
  239. _s13
  240. K
  241. droite_parallΦle
  242. nomme D8
  243. _s9
  244. D8
  245. inter
  246. nomme_inter Q
  247. commente 'On obtient alors [KQ] et [IQ]...'
  248. Q
  249. I
  250. segment
  251. nomme _s14
  252. K
  253. Q
  254. segment
  255. nomme _s15
  256. commente 'De mΩme pour [JR] et [RK]...'
  257. _s14
  258. J
  259. droite_parallΦle
  260. nomme D9
  261. D9
  262. _s7
  263. inter
  264. nomme_inter R
  265. R
  266. K
  267. segment
  268. nomme _s16
  269. J
  270. R
  271. segment
  272. nomme _s17
  273. commente 'On cache les traits de construction...'
  274. D8
  275. gommer
  276. D9
  277. gommer
  278. commente 'Puis on colorie la section...'
  279. _s17
  280. couleur 255 0 0
  281. _s16
  282. couleur 255 0 0
  283. _s15
  284. couleur 255 0 0
  285. _s14
  286. couleur 255 0 0
  287. _s12
  288. couleur 255 0 0
  289. _s13
  290. couleur 255 0 0
  291. _s16
  292. tracΘ 1
  293. _s14
  294. tracΘ 1
  295. _s13
  296. tracΘ 1
  297. _s15
  298. tracΘ -1
  299. _s12
  300. tracΘ -1
  301. _s17
  302. tracΘ -1
  303. _s8
  304. tracΘ -1
  305. _s3
  306. tracΘ -1
  307. _s7
  308. tracΘ -1
  309. _s5
  310. tracΘ -1
  311. _s10
  312. tracΘ -1
  313. _s11
  314. tracΘ -1
  315. _s4
  316. tracΘ -1
  317. _s9
  318. tracΘ -1
  319. _s6
  320. tracΘ -1
  321. commente 'Vous pouvez essayer de dΘplacer I,J et K ...'
  322. _s4
  323. gommer
  324. _s5
  325. gommer
  326. _s3
  327. gommer
  328. _s14
  329. tracΘ -1
  330. _s13
  331. tracΘ -1
  332. _s16
  333. tracΘ -1
  334. _s11
  335. gommer
  336. _s6
  337. gommer
  338. G
  339. J
  340. segment
  341. nomme _s18
  342. P
  343. A
  344. segment
  345. nomme _s19
  346. _s7
  347. gommer
  348. _s8
  349. gommer
  350. G
  351. R
  352. segment
  353. nomme _s20
  354. K
  355. E
  356. segment
  357. nomme _s21
  358. _s9
  359. gommer
  360. _s10
  361. gommer
  362. E
  363. Q
  364. segment
  365. nomme _s22
  366. A
  367. I
  368. segment
  369. nomme _s23
  370. D
  371. gommer
  372. H
  373. gommer
  374. C
  375. gommer
  376. B
  377. gommer
  378. _s21
  379. tracΘ -1
  380. _s22
  381. tracΘ -1
  382. _s23
  383. tracΘ -1
  384. _s19
  385. tracΘ -1
  386. _s20
  387. tracΘ -1
  388. _s18
  389. tracΘ -1
  390. fin.
  391.