"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Graphics/TriD/OpenGLQ/openglq.pd" between
PDL-2.074.tar.gz and PDL-2.075.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

openglq.pd  (PDL-2.074):openglq.pd  (PDL-2.075)
skipping to change at line 118 skipping to change at line 118
". TRI('$coords',@_) ". TRI('$coords',@_)
." ."
); );
" }; " };
pp_def('gl_points', pp_def('gl_points',
GenericTypes => $F, GenericTypes => $F,
Pars => 'coords(tri=3); colors(tri);', Pars => 'coords(tri=3); colors(tri);',
Code => ' Code => '
glBegin(GL_POINTS); glBegin(GL_POINTS);
threadloop %{'.COLOR().VERTEX().' broadcastloop %{'.COLOR().VERTEX().'
%} %}
glEnd(); glEnd();
', ',
@internal @internal
); );
pp_def( pp_def(
'gl_lines', 'gl_lines',
GenericTypes => $F, GenericTypes => $F,
Pars => 'coords(tri,x);colors(tri,x);', Pars => 'coords(tri,x);colors(tri,x);',
skipping to change at line 224 skipping to change at line 224
GenericTypes => $F, GenericTypes => $F,
Pars => 'coordsa(tri=3); coordsb(tri); Pars => 'coordsa(tri=3); coordsb(tri);
coordsc(tri);'. coordsc(tri);'.
($_->{NormalArgs}//''). ($_->{NormalArgs}//'').
'colorsa(tri); colorsb(tri); 'colorsa(tri); colorsb(tri);
colorsc(tri); colorsc(tri);
', ',
Code => ' Code => '
float tmp1[3]; float tmp2[3]; float tmp1[3]; float tmp2[3];
glBegin(GL_TRIANGLES); glBegin(GL_TRIANGLES);
threadloop %{'. broadcastloop %{'.
($_->{NormalCode}//'') ($_->{NormalCode}//'')
.&{$m->{Func}}("a").VERTEX("a"). .&{$m->{Func}}("a").VERTEX("a").
($_->{NormalCodeB}//'') ($_->{NormalCodeB}//'')
.&{$m->{Func}}("b").VERTEX("b"). .&{$m->{Func}}("b").VERTEX("b").
($_->{NormalCodeC}//'') ($_->{NormalCodeC}//'')
.&{$m->{Func}}("c").VERTEX("c").' .&{$m->{Func}}("c").VERTEX("c").'
%} %}
glEnd(); glEnd();
', ',
@internal @internal
skipping to change at line 247 skipping to change at line 247
} }
pp_def('gl_arrows', pp_def('gl_arrows',
Pars => 'coords(tri=3,n); int indsa(); int indsb();', Pars => 'coords(tri=3,n); int indsa(); int indsb();',
OtherPars => 'float headlen; float width;', OtherPars => 'float headlen; float width;',
Code => ' Code => '
float hl = $COMP(headlen); float hl = $COMP(headlen);
float w = $COMP(width); float w = $COMP(width);
float tmp2[3]; tmp2[0] = 0.000001; tmp2[1] = -0.0001; tmp2[2] = 1 ; float tmp2[3]; tmp2[0] = 0.000001; tmp2[1] = -0.0001; tmp2[2] = 1 ;
glBegin(GL_LINES); glBegin(GL_LINES);
threadloop %{ broadcastloop %{
int a = $indsa(); int a = $indsa();
int b = $indsb(); int b = $indsb();
float tmp1[3]; float tmp1[3];
float norm[3]; float norm[3];
float norm2[3]; float norm2[3];
float normlen,origlen,norm2len; float normlen,origlen,norm2len;
tmp1[0] = $coords(tri => 0, n => a) - tmp1[0] = $coords(tri => 0, n => a) -
$coords(tri => 0, n => b); $coords(tri => 0, n => b);
tmp1[1] = $coords(tri => 1, n => a) - tmp1[1] = $coords(tri => 1, n => a) -
$coords(tri => 1, n => b); $coords(tri => 1, n => b);
 End of changes. 3 change blocks. 
3 lines changed or deleted 3 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)