6.0

12
PlanetPress Talk Basics
1
Code Sample Example 2
Example 2 defines a directory array in which each element in the array contains a pathname to an image
in EPS format in the folder c:\images.
Example 2
define( &image_paths, directory, 'c:\\images\\*.EPS' )
Code Sample Example 3
Example 3 prints a list of all of the pathnames in that array.
Example 3
define( &i, integer, 0 )
for( &i, 0, 1, length( &image_paths ) - 1 )
show( &image_paths[&i] )
crlf( 0.16 )
endfor()
Code Sample Example 4
Example 4 displays each of the images referenced by the array, at a resolution of 100 pixels per inch, scaled
to a 'best fit' with a one-inch by one-inch rectangle.
Example 4
for( &i, 0, 1, length( &image_paths ) - 1 )
showbitmap( &image_paths[&i], 100, 1, 1 )
crlf( epsheight( &image_paths[&i] ) )
endfor()
Code Sample Example 5
Example 5 prints either an image, or, if the image cannot be found, the pathname to the image.
Example 5
define( &i, integer, 1 )
if( resourcetype( &image_paths[&i] ) <> 0 )
showbitmap( &image_paths[&i], 300, 0, 0)
crlf( epsheight( &image_paths[&i] ) )