When using non squared renders, it seems that the order of the
Set Camera To Image commands changes the way that images are rendered. The first one always gives a bad result.
Sync On
Sync Rate 60
Set Display Mode 640,480,32
Make Object Cube 1,10
gosub test1
Do
Turn Object Left 1,1
Paste Image 1,0,0
Paste Image 2,640-128,0,0
If returnkey()
if ret = 0
ret = 1
inc mode
Select mode
Case 1 : gosub test2 : EndCase
Case 2 : gosub test3 : EndCase
Case 3 : End : EndCase
EndSelect
endif
else
ret = 0
endif
Text 0,460, text$
Sync
Loop
test1:
text$ = "Both images (128*128) are correct. Press Enter..."
Make Camera 1:position Camera 1,0,0,-100
Set Camera To Image 1,1,128,128
Make Camera 2:position Camera 2,0,0,-100
Set Camera To Image 2,2,128,128
return
test2:
text$ = "The first image (160*120) is incorrect. Press Enter..."
delete camera 1:delete image 1
delete camera 2:delete image 2
Make Camera 1:position Camera 1,0,0,-100
Set Camera To Image 1,1,160,120
Make Camera 2:position Camera 2,0,0,-100
Set Camera To Image 2,2,128,128
return
test3:
text$ = "Now, the second image (128*128) is incorrect."
REM Same as test 2, except the order of the Set Camera To Image commands
delete camera 1:delete image 1
delete camera 2:delete image 2
Make Camera 1:position Camera 1,0,0,-100
Make Camera 2:position Camera 2,0,0,-100
Set Camera To Image 2,2,128,128
Set Camera To Image 1,1,160,120
return