ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/OpenCL/OpenCL.pm
(Generate patch)

Comparing OpenCL/OpenCL.pm (file contents):
Revision 1.38 by root, Thu Apr 19 19:36:24 2012 UTC vs.
Revision 1.44 by root, Sat Apr 21 17:47:23 2012 UTC

… …
160 '; 160 ';
161 161
162 my $prog = $ctx->program_with_source ($src); 162 my $prog = $ctx->program_with_source ($src);
163 163
164 # build croaks on compile errors, so catch it and print the compile errors 164 # build croaks on compile errors, so catch it and print the compile errors
165 eval { $prog->build ($dev); 1 } 165 eval { $prog->build ($dev, "-cl-fast-relaxed-math"); 1 }
166 or die $prog->build_log; 166 or die $prog->build_log;
167 167
168 my $kernel = $prog->kernel ("squareit"); 168 my $kernel = $prog->kernel ("squareit");
169 169
170=head2 Create some input and output float buffers, then call the 170=head2 Create some input and output float buffers, then call the
… …
260 m.x = fabs (fmod (m.x + time * 0.05f, 4.f)) - 2.f; 260 m.x = fabs (fmod (m.x + time * 0.05f, 4.f)) - 2.f;
261 261
262 float2 z = m; 262 float2 z = m;
263 float2 c = (float2)(sin (time * 0.05005), cos (time * 0.06001)); 263 float2 c = (float2)(sin (time * 0.05005), cos (time * 0.06001));
264 264
265 for (int i = 0; i < 100 && dot (z, z) < 4.f; ++i) 265 for (int i = 0; i < 25 && dot (z, z) < 4.f; ++i)
266 z = (float2)(z.x * z.x - z.y * z.y, 2.f * z.x * z.y) + c; 266 z = (float2)(z.x * z.x - z.y * z.y, 2.f * z.x * z.y) + c;
267 267
268 float3 colour = (float3)(z.x, z.y, z.x * z.y); 268 float3 colour = (float3)(z.x, z.y, z.x * z.y);
269 write_imagef (img, (int2)(get_global_id (0), get_global_id (1)), (float4)(colour * p.x * p.x, 1.)); 269 write_imagef (img, (int2)(get_global_id (0), get_global_id (1)), (float4)(colour * p.x * p.x, 1.));
270 } 270 }
… …
288 288
289 # release objects to opengl again 289 # release objects to opengl again
290 $queue->enqueue_release_gl_objects ([$tex]); 290 $queue->enqueue_release_gl_objects ([$tex]);
291 291
292 # wait 292 # wait
293 $queue->flush; 293 $queue->finish;
294 294
295 # now draw the texture, the defaults should be all right 295 # now draw the texture, the defaults should be all right
296 glTexParameterf GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST; 296 glTexParameterf GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST;
297 297
298 glEnable GL_TEXTURE_2D; 298 glEnable GL_TEXTURE_2D;
… …
336=item * Structures are often specified by flattening out their components 336=item * Structures are often specified by flattening out their components
337as with short vectors, and returned as arrayrefs. 337as with short vectors, and returned as arrayrefs.
338 338
339=item * When enqueuing commands, the wait list is specified by adding 339=item * When enqueuing commands, the wait list is specified by adding
340extra arguments to the function - anywhere a C<$wait_events...> argument 340extra arguments to the function - anywhere a C<$wait_events...> argument
341is documented this can be any number of event objects. 341is documented this can be any number of event objects. As an extsnion
342implemented by this module, C<undef> values will be ignored in the event
343list.
342 344
343=item * When enqueuing commands, if the enqueue method is called in void 345=item * When enqueuing commands, if the enqueue method is called in void
344context, no event is created. In all other contexts an event is returned 346context, no event is created. In all other contexts an event is returned
345by the method. 347by the method.
346 348
… …
1369 1371
1370This is a family of methods to set the kernel argument with the number C<$index> to the give C<$value>. 1372This is a family of methods to set the kernel argument with the number C<$index> to the give C<$value>.
1371 1373
1372TYPE is one of C<char>, C<uchar>, C<short>, C<ushort>, C<int>, C<uint>, 1374TYPE is one of C<char>, C<uchar>, C<short>, C<ushort>, C<int>, C<uint>,
1373C<long>, C<ulong>, C<half>, C<float>, C<double>, C<memory>, C<buffer>, 1375C<long>, C<ulong>, C<half>, C<float>, C<double>, C<memory>, C<buffer>,
1374C<image2d>, C<image3d>, C<sampler> or C<event>. 1376C<image2d>, C<image3d>, C<sampler>, C<local> or C<event>.
1375 1377
1376Chars and integers (including the half type) are specified as integers, 1378Chars and integers (including the half type) are specified as integers,
1377float and double as floating point values, memory/buffer/image2d/image3d 1379float and double as floating point values, memory/buffer/image2d/image3d
1378must be an object of that type or C<undef>, and sampler and event must be 1380must be an object of that type or C<undef>, local-memory arguments are
1379objects of that type. 1381set by specifying the size, and sampler and event must be objects of that
1382type.
1380 1383
1381L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clSetKernelArg.html> 1384L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clSetKernelArg.html>
1382 1385
1383=back 1386=back
1384 1387
… …
1473package OpenCL; 1476package OpenCL;
1474 1477
1475use common::sense; 1478use common::sense;
1476 1479
1477BEGIN { 1480BEGIN {
1478 our $VERSION = '0.95'; 1481 our $VERSION = '0.96';
1479 1482
1480 require XSLoader; 1483 require XSLoader;
1481 XSLoader::load (__PACKAGE__, $VERSION); 1484 XSLoader::load (__PACKAGE__, $VERSION);
1482 1485
1483 @OpenCL::Buffer::ISA = 1486 @OpenCL::Buffer::ISA =

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines