/usr/share/openscad/libraries/MCAD/triangles.scad is in openscad-mcad 2014.03-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 | /**
* Simple triangles library
*
* Authors:
* - Eero 'rambo' af Heurlin 2010-
*
* License: LGPL 2.1
*/
/**
* Standard right-angled triangle
*
* @param number o_len Lenght of the opposite side
* @param number a_len Lenght of the adjacent side
* @param number depth How wide/deep the triangle is in the 3rd dimension
* @todo a better way ?
*/
module triangle(o_len, a_len, depth)
{
linear_extrude(height=depth)
{
polygon(points=[[0,0],[a_len,0],[0,o_len]], paths=[[0,1,2]]);
}
}
/**
* Standard right-angled triangle (tangent version)
*
* @param number angle of adjacent to hypotenuse (ie tangent)
* @param number a_len Lenght of the adjacent side
* @param number depth How wide/deep the triangle is in the 3rd dimension
*/
module a_triangle(tan_angle, a_len, depth)
{
linear_extrude(height=depth)
{
polygon(points=[[0,0],[a_len,0],[0,tan(tan_angle) * a_len]], paths=[[0,1,2]]);
}
}
// Tests:
module test_triangle() { triangle(5, 5, 5); }
module test_a_triangle() { a_triangle(45, 5, 5); }
module test_triangles()
{
// Generate a bunch of triangles by sizes
for (i = [1:10])
{
translate([i*7, -30, i*7])
{
triangle(i*5, sqrt(i*5+pow(i,2)), 5);
}
}
// Generate a bunch of triangles by angle
for (i = [1:85/5])
{
translate([i*7, 22, i*7])
{
a_triangle(i*5, 10, 5);
}
}
}
|