1. RE: Exotica problem
- Posted by bensler at mail.com
Mar 16, 2002
This is a problem in the dll.
It only happens when stretch blitting a bitmap to another bitmap. And
then only when clipping occurs.
A way around it, is to use a temp bitmap, so you can blit the stretched
bitmap without clipping. Then you would blitfast the temp to your buffer
bitmap. That means double blitting everytime you need to blit a
stretched bitmap though.
Here is the modified code:
<CODE>
set_app_title("BLIT_BMP Demo for ExotixaXv1.2")
report_mode("E_Report",1)
constant sw = 800, sh = 600
exotica_init()
-- Set up Direct Draw
if ddraw_init(sw,sh,16) then exotica_abort(1) end if
constant screen = create_bitmap( sw, sh, 1 )
constant buffer = create_bitmap( sw, sh, 1 )
constant PIC= load_bitmap("planet1.bmp",1)
if not PIC then exotica_abort(1) end if
constant size = bitmap_width( PIC )
atom x x = sw-1
atom y y = sh-1
integer vx,vy vx = 1 vy= 1
while 1 do
if aActive() then
if clear_bitmap( buffer, 0 ) then exotica_abort(1) end if
if bitmap_blit_bitmap(PIC,{0,0,sw,sh},screen,0) then exotica_abort(1)
end if
if trans_bitmap_blit_bitmap(PIC,{0,0,x,y},buffer,0) then
exotica_abort(1) end if
if trans_bitmap_rect_blitfast(buffer,{0,0,x,y},screen,sw-x,sh-y) then
exotica_abort(1) end if
--bitmap_draw_line( screen, {{1,1}, {1,y}, {x,y}, {x,1}, {1,1}},
{200,200,000})
--bitmap_draw_line( screen, {{1,1}, {1,sh}, {sw,sh}, {sw,1}, {1,1}},
{200,200,000})
if blitfast( screen, 0,0 ) then exotica_abort(1) end if
--draw_line( {{sw,sh}, {sw,y}, {x,y}, {x,sh}, {sw,sh}},
{200,200,000})
if surface_flip() then exotica_abort(1) end if
x -= vx
y -= vy
if x >= sw-1 or x <= 1 then
vx *= -1
end if
if y >= sh-1 or y <= 1 then
vy *= -1
end if
end if
if exotica_error() then exotica_abort(1) end if
end while
<END OF CODE>
Chris
Lewis Townsend wrote:
> Hello All,
>
> I haven't posted in a while but I still recieve the list and read
> anything
> that looks interesting. Since exotica and exotica x has been updated
> recently I retried a program I was writing that I was having a problem
> on
> some time back. I downloaded the newest exoticax to see if the new
> version
> would fix my problem. It did not. I am posting a demonstration program
> for
> the problem and see if Chris, Todd, or anyone else can help. I'm pretty
> sure
> it is a problem in the Exotica DLL. a simple switching of variables or
> something.
>
> Basically, it only occurs when rect-blitting and only then when the
> destination size is smaller than the original. and only then when the
> destination location is near the bottom of the destination image.
> Studying
> this code and running the program should show what is happening better
> than
> I can in words.
>
> Note that the "planet1.bmp" is a 300 x 300 image of a round object that
> comes right to the edges of the image. Okay, without further ado, here
> is
> the code:
>
> later,
> Lewis Townsend
