Advanced Search
All Posts :

3D MODEL VIEWER

Fereydoon_Shekofte 223
August 27 2009
0
AUTHOR: Fereydoon Shekofte v := ImportMatrix("F:\\xyz.txt", source = delimited, delimiter = " ", format = rectangular, datatype = float[4], transpose = false, skiplines = 0) c := ImportMatrix("F:\\face.txt", source = delimited, delimiter = " ", format = rectangular, datatype = integer[4], transpose = false, skiplines = 0) MatrixOptions(mi("format"), 'order = C_order'); mi("format") f := Array(ArrayTools[Reshape](c[1 .. 3864], 1288, 3), order = C_order) plots[pointplot3d](v) p := Array([seq(geom3d[point](p || i, v[i, 1], v[i, 2], v[i, 3]), i = 1 .. 1063)]) > g := [seq(geom3d[triangle](t || j, [p[f[j, 1]+1], p[f[j, 2]+1], p[f[j, 3]+1]]), j = 1 .. 1288)]; > geom3d[draw](g);
plot format integer

Please Wait...