Lines Matching refs:punkt

597   let punkt u t =
604   let punkt i j = punkt
607   let punkt w i j = dreh (punkt i j) w  in
608   let punkt oben i j = if oben
609     then punkt (0.1-.oeffnung) i j
610     else let x,y = punkt (-0.1) i j  in x,-.y  in
615         let x,y = punkt oben i j  in
619     let x,y = punkt oben i 0  in
633       (function i -> zug (function j -> punkt oben i j) extrema.(i))  in
635       (function i -> zug (function j -> punkt oben i (j+extrema.(i)))
639         [Strecke (punkt oben i 0, punkt oben (i+1) 0)])  in
642         (punkt oben i extrema.(i), punkt oben (i+1) extrema.(i+1))])  in
645         [Strecke (punkt oben i costreifen, punkt oben (i+1) costreifen)])  in