This is my function for extracting 10 number images from one image. I know it's one image high, by 10 wide, and that's all the function needs. Everything else is worked out by "teh codes"
The first bit simply finds an empty bitmap to work with.
function scoreCreate(num, img,file$)
` * Get empty bitmap...
for b = 1 to 30
if bitmap exist(b) = 0
bitmap = b
load bitmap file$,bitmap
b = 99
endif
next b
` * Make 10 images...
imageWidth = bitmap width(bitmap) / 10
imageHeight = bitmap height(bitmap)
for m = 0 to 9
left = 1 + (imagewidth * m)
get image img + m, left,1,left + imageWidth - 1,imageHeight,1
next m
delete bitmap bitmap
endfunction
BatVink
http://biglaugh.co.uk/catalog AMD 3000+ Barton, 512Mb Ram, 120 Gig Drive space, GeForce 5200 FX 128 Mb, Asus A7N8X Mobo.
Terms & Conditions apply
