/usr/share/oce-0.18/src/DrawResources/Geometry.tcl is in oce-draw 0.18.2-2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | # Copyright (c) 1999-2014 OPEN CASCADE SAS
#
# This file is part of Open CASCADE Technology software library.
#
# This library is free software; you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License version 2.1 as published
# by the Free Software Foundation, with special exception defined in the file
# OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
# distribution for complete text of the license and disclaimer of any warranty.
#
# Alternatively, this file may be used under the terms of Open CASCADE
# commercial license or contractual agreement.
proc cmp {} {
dtyp .
set name [lastrep id x y b]
global $name
lastrep id x1 y1 z1 b
cfindp $name id x y pole
if {[dval pole] == 0} return
dset x0 x1 y0 y1 z0 z1 b 0
draw id 6 $name
while {[dval b] == 0} {
pick id x2 y2 z2 b nowait
dset dx x2-x1 dy y2-y1 dz z2-z1 x1 x2 y1 y2 z1 z2
draw id 6 $name
cmovep $name pole dx dy dz
draw id 6 $name
}
draw id 6 $name
if {[dval b] == 1} return;
dset dx x0-x2 dy y0-y2 dz z0-z2
cmovep $name pole dx dy dz
}
proc smp {} {
dtyp .
set name [lastrep id x y b]
global $name
lastrep id x1 y1 z1 b
sfindp $name id x y upole vpole
if {[dval upole] == 0} return
dset x0 x1 y0 y1 z0 z1 b 0
draw id 6 $name
while { [dval b] == 0} {
pick id x2 y2 z2 b nowait
dset dx x2-x1 dy y2-y1 dz z2-z1 x1 x2 y1 y2 z1 z2
draw id 6 $name
movep $name upole vpole dx dy dz
draw id 6 $name
}
draw id 6 $name
if {[dval b] == 1} return
dset dx x0-x2 dy y0-y2 dz z0-z2
movep $name upole vpole dx dy dz
}
#################################################
# smooth
#################################################
proc smooth {name tol {file ""}} {
if {$file == ""} {
uplevel #0 "bsmooth $name $tol"
} else {
global Draw_DataDir
uplevel #0 "bsmooth $name $tol $Draw_DataDir/$file"
}
return $name
}
help smooth {smooth cname tol [filename] } "DRAW Variables management"
#################################################
# beziersmooth
#################################################
proc beziersmooth {name tol deg option {file ""}} {
if {$file == ""} {
uplevel #0 "bzsmooth $name $tol $deg $option"
} else {
global Draw_DataDir
uplevel #0 "bzsmooth $name $tol $deg $option $Draw_DataDir/$file"
}
return $name
}
help beziersmooth { beziersmooth cname tol deg [-GR -VA -PR] [filename] } "DRAW Variables management"
|