X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=samples%2Ftcl%2Fdrill.tcl;h=6c94899817375cd00fe90c75b337ffe6edc58f15;hb=a110c4a3777de359b6bbe2b3baeb99fe34f2bdf7;hpb=d66f7c0fa2923b0de49f111b4f4b60fae0ca2e7a diff --git a/samples/tcl/drill.tcl b/samples/tcl/drill.tcl index 35082d7f51..6c94899817 100644 --- a/samples/tcl/drill.tcl +++ b/samples/tcl/drill.tcl @@ -76,7 +76,7 @@ vertex vf0 x0 y0 z0 vertex vf1 x1 y1 z1 # -- variant: replace curve by arc with start at x0,y0,z0 and end at x1,y1,z1, -# -- such that tanget at start point is along Y +# -- such that tangent at start point is along Y #dset Rflute ((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0))/(2*(x1-x0)) #circle aflute x0+Rflute y0 0 0 0 1 Rflute #mkedge sflute_1 aflute vf0 vf1