mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
f423143109
Found via `codespell -q 3 -S "*.fr" -L aadd,abnd,abord,acount,adn,afile,aline,alo,alocation,alog,als,anc,ane,anid,anormal,anout,ans,anumber,aother,aparent,apoints,aprogram,asender,asign,asnd,ba,bbuild,bloc,bord,bu,caf,cas,childrens,childs,classe,clen,commun,cylindre,don,dout,dum,ede,entites,fo,fonction,guid,hist,identic,ii,indx,inout,invalide,ist,iterm,llength,lod,mape,modeling,methode,mye,myu,nam,nd,nin,normale,normales,ons,parametre,parametres,periode,pres,reste,resul,secont,serie,shs,slin,som,somme,syntaxe,sur,te,thei,theis,ther,theres,thes,thev,thex,thet,tol,transfert,va,vas,verifie,vertexes,weight`
39 lines
1.2 KiB
Plaintext
Executable File
39 lines
1.2 KiB
Plaintext
Executable File
puts "================"
|
|
puts "OCC23863"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Wrong distance value between circle and cylinder
|
|
#######################################################################
|
|
|
|
pcylinder b1 10 10
|
|
explode b1 f
|
|
copy b1_1 b1
|
|
circle b2 0 10 10 1 0 0 5
|
|
mkedge b2 b2
|
|
|
|
distmini d b1 b2
|
|
|
|
regexp {([-0-9.+eE]+)$} [dump d_val] full dist
|
|
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [ maxtolerance d ] full toler
|
|
set good_dist 0
|
|
if { [expr abs( ${dist} - ${good_dist} )] > ${toler} } {
|
|
puts "Faulty : the distance is ${dist}. It is bad value"
|
|
}
|
|
|
|
regexp { +Point 3D : +([-0-9.+eE]+), +([-0-9.+eE]+), +([-0-9.+eE]+)} [ dump d ] full x y z
|
|
set good_x 0
|
|
set good_y 10
|
|
set good_z 5
|
|
if { [expr abs( ${x} - ${good_x} )] > ${toler} } {
|
|
puts "Faulty : the x coordinate of the point is ${x}. It is bad value"
|
|
}
|
|
if { [expr abs( ${y} - ${good_y} )] > ${toler} } {
|
|
puts "Faulty : the y coordinate of the point is ${y}. It is bad value"
|
|
}
|
|
if { [expr abs( ${z} - ${good_z} )] > ${toler} } {
|
|
puts "Faulty : the z coordinate of the point is ${z}. It is bad value"
|
|
}
|
|
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|