[Gmsh] split a line

[jean pierre aubry]

bonjour

je travaille sur un maillage importé
j'ai besoin de créer un petit segment de droite en haut d'un assez
grand nombre de lignes droites j'ai procédé comme ci dessous

si Gmsh avait une fonction "built in" donnant les deux points extrémité
d'une droite il me suffirait de passer un seul argument à la fonction
mrp, le numéro de la droite, 
ce serait un petit bonheur !

lrotp=200; // longueur du petit segment
offp=1000; //offset de la numerotation

//cree une ligne au sommet du poteau
Function mrp
	c0[]=Point{p0};
	Point(offp+p0) = {c0[0], c0[1], c0[2]-lrotp, cl__1};
	Line(offp+l0)={p0,offp+p0};
	Delete {Line{l0};}
	Line(l0)={offp+p0,p1};
	rotp[]+={offp+l0};
Return
//puis de multiples instances de ce type
Line(82) = {90, 164};
p0=90; p1=164; l0= 82; Call mrp;

-- 
jean pierre aubry
jeanpierre[at]lamachine.fr
33 688 670 795