wings-8d019ebe48/e3d/e3d_mesh.erl

349 components_1([{_,[{Fa,Va,Vb},{Fb,Vb,Va}]}|Es], G) ->
352     digraph:add_edge(G, Fa, Fb, {Va,Vb}),
396 merge_comp_faces([{Fb,{Va,Vb}}|Fs], Fa, Ftab0) ->
397     Ftab = merge_faces_1(Fa, Fb, Va, Vb, Ftab0),
401 merge_faces_1(Fa0, Fb0, Va, Vb, Ftab0) ->
415 		    case eliminateIsolatedVert(Va, Vb, Vs1) of
428 		    case merge_faces_2(Va, Vb, Vs1, Vs2) of
450 eliminateIsolatedVert(Va, Vb, VList) ->
451     eliminateIsolatedVert(Va, Vb, VList, length(VList)).
454 eliminateIsolatedVert(Va, Vb, [Va,Vb,Va|VTail], _) ->
456 eliminateIsolatedVert(Va, Vb, [Vb,Va,Vb|VTail], _) ->
457     [Vb|VTail];
458 eliminateIsolatedVert(Va,Vb,[V|VTail],Remaining) ->
459     eliminateIsolatedVert(Va,Vb,VTail ++ [V], Remaining -1).
475 merge_faces_2(Va, Vb, VsA0, VsB0) ->
476     VsA = rot_face(Va, Vb, VsA0),
477     VsB = rot_face(Va, Vb, VsB0),
478     merge_faces_3(Va, Vb, VsA, VsB).
480 merge_faces_3(Va, Vb, [Va,Vb,Vx], [Vb,Va,Vy]) -> [Vx,Va,Vy,Vb];
484 merge_faces_3(Va, Vb, [Vb,Va,Vx], [Va,Vb,Vy]) -> [Vx,Vb,Vy,Va];
487 merge_faces_3(Va, Vb, [Va,Vb|Vs1], [Vb,Va|Vs2]) ->
488     [Vb|Vs1]++[Va|Vs2];
493 merge_faces_3(Va, Vb, [Vb,Va|Vs1], [Va,Vb|Vs2]) ->
494     [Va|Vs1]++[Vb|Vs2];
503 rot_face(Va, Vb, [Va,Vb|_]=Face) -> Face;
504 rot_face(Va, Vb, [Vb,Va|_]=Face) -> Face;
505 rot_face(Va, Vb, [Va,Vx,Vb]) -> [Vb,Va,Vx];
506 rot_face(Va, Vb, [Vb,Vx,Va]) -> [Va,Vb,Vx];
507 rot_face(Va, Vb, [Vx,Va,Vb]) -> [Va,Vb,Vx];
508 rot_face(Va, Vb, [Vx,Vb,Va]) -> [Vb,Va,Vx];
509 rot_face(Va, Vb, Vs) -> rot_face(Va, Vb, Vs, []).
511 rot_face(Va, Vb, [Va,Vb|_]=Vs, Acc) -> Vs ++ reverse(Acc);
512 rot_face(Va, Vb, [Vb,Va|_]=Vs, Acc) -> Vs ++ reverse(Acc);
513 rot_face(Va, Vb, [Va|_]=Vs0, Acc) ->
519     [Vb|Vs] = reverse(Vs0),
520     [Vb|reverse(Vs)];
521 rot_face(Va, Vb, [Vb|_]=Vs0, Acc) ->
527 rot_face(Va, Vb, [V|Vs], Acc) -> rot_face(Va, Vb, Vs, [V|Acc]).
542 rhe_edges([{Va,Vb}=Name|Ps], Face, Acc) when Va < Vb ->
543     rhe_edges(Ps, Face, [{Name,{Face,Va,Vb}}|Acc]);
544 rhe_edges([{Va,Vb}|Ps], Face, Acc) ->
545     Name = {Vb,Va},
546     rhe_edges(Ps, Face, [{Name,{Face,Va,Vb}}|Acc]);
654 make_digraph_1(G, [{{Va,Vb},[Fx,Fy]}|T]) ->
656     digraph_add_edge(G, {Vb,Fx}, {Vb,Fy}),
662 digraph_add_edge(G, Va, Vb) ->
664     digraph:add_vertex(G, Vb),
665     digraph:add_edge(G, Va, Vb),
666     digraph:add_edge(G, Vb, Va).
677 vn_edge_name(Va, Vb) when Va < Vb -> {Va,Vb};
678 vn_edge_name(Va, Vb) -> {Vb,Va}.
707     Vb = map_vtx(Vb0, VsMap),
709 	Va == none; Vb == none ->		%No longer an edge.
711 	Va < Vb ->
712 	    renumber_hard_edges(T, VsMap, [{Va,Vb}|Acc]);
714 	    renumber_hard_edges(T, VsMap, [{Vb,Va}|Acc])
828 par_edge_name(Va, Vb) when Va < Vb -> {Va,Vb};
829 par_edge_name(Va, Vb) -> {Vb,Va}.
1025 mix(Wa, {Ua,Va}, {Ub,Vb}) when is_float(Wa) ->
1027     {Wa*Ua+Wb*Ub,Wa*Va+Wb*Vb};