ГОСТ Р ИСО 10303-513—2009
а1
ас
ае
ah
ар
а2
pie
pic
plh
pip
cone
circ
elli
hyp
parab
linpb
Imph
vertorc
verte
vertpbl
vertpb2
verthbl
verthb2
edgel
edge2
edge3
edgebl
edgeb2
edgeb3
edgeb4
oel
oe2l
oe2f
oe3t
oe3f
oeblt
oeblf
oeb2l
oeb2f
oeb3l
oeb3f
oeb4t
oeb4f
loope
looppar
loophyp
: axis2_placement_3d :* axis2_piacement_3d (’a1origin,
pos_z,pos_x);
:axis2_piacement_3d := axis2_placement_3d {’ac’. cbase. pos_
2
.
pos_x);
: axis2_placement_3d :» axis2_placement_3d (’ae’. ecenL denorm,
dlr_e);
: axis2_placement_3d :* axis2_placement_3d (’ah’, hcent. dhnorm.
dir_h);
: axis2_placement_3d := axis2_piacement_3d Cap’, ppoint. dpnorm,
dir_p):
: axls2_placement_3d := ax«2_piacement_3d (*a2’. cbase. posjz,
pos_x);
: plane :» plane (’pie’, ae);
. plane := plane (’pic’, ac); :
plane := plane (’plh’,ah); :
plane := plane (’pip’, ap);
. comcal_surface :■ conical_surtace (’cone’, a 1,0.0. 30.0);
. circle := circle (’clrc’. ac. (dc/rt3):
:ellipse :■ elllpse(’elli’, ae. ema). emin);
: hyperbola := hyperbola(’hyp’. ah. haxis. himag);
:parabola := parabola(’parab\ ap. 0.25*dp/rt3);
: line .= Ime(’linpb’. ppb1, vec_y).
: line := line(’lmph’, phbl. vec_y);
:vertex_pomt := vertex_pomt (’vertorc’. origin):
:vertex_point :■ vertex_point (’verte’. epomt);
: vertex_pomt := vertex_pomt (’vertpbl’, ppbl),
: vertex_point := vertex_pomt (‘vertpb’, ppb2);
: vertex_pomt := vertex_pomt(Verthbl’,phbl);
: vertex_pomt := vertex_pomt ("verthb2\ phb2).
:edge_curve := edge_curve (’edgel’. verte. verte. elli, TRUE);
: edge_curve := edge_curve (’edge2’, vertpbl. vertpb2,
parab. TRUE);
; edge_curve := edge_corve (’edge3’. verthbl. verthb2, hyp.TRUE);
:edge_curve := edge_curve (’edgebl’, vertpbl. verthbl,
clrc. TRUE).
: edge_curve :=edge_curve (’edgeb’. verthbt. verthb2.
Ilnph. TRUE);
: edge_curve :■ edge_curve (’edgeb3’, verthb2. vertpb2.
clrc. TRUE);
: edge_curve ;■ edge_curve (’edgeb4’, vertpb2. vertpbl.
Ilnpb. FALSE).
:onented_edge :* or»ented_edge ( oe1 . edgel. TRUE);
. onented_edge ;= or»ented_edge foe2t’, edge2. TRUE);
. orlented_edge := oriented_edge (’oe2<’. edge2. FALSE).
. orlented_edge ;= onented_edge (’oe3t’, edge3, TRUE):
. orlented_edge := oriented_edge (’оеЗГ. edge3. FALSE).
:onented_edge := onented_edge (’oebir, edgebt. TRUE);
:oriented_edge := onented_edge (’oeblf, edgebl. FALSE);
:oriented_edge := onented_edge (’oeb2f. edgeb2. TRUE);
:oriented_edge := onented_edge (’oeb2f, edgeb2. FALSE);
:oriented_edge := onented_edge (‘оеЬЗГ. edgeb3. TRUE);
:oriented_edge := onented_edge (’oeb3f. edgeb3. FALSE);
:onented_edge := onented_edge (’oeb4f.edgeb4. TRUE);
:oriented_edge := onented_edge (’oeb4f. edgeb4. FALSE);
: edge_loop :■ edgeJoop (loope’. [oe1]);
: edge_toop := edge_toop (’looppar’. (oeb4t. oe2t]).
: edgeJoop :* edge_loop (’loophyp’. (oeb2t. oe3());
31