GrabSprite after UseBuffer()

[Psychophanta]

Why doesn't work this code?

Code: Select all

InitSprite() 
InitSprite3D() 
InitKeyboard() 
OpenScreen(640,480,32,"") 

CreateSprite(0,128,128,#PB_Sprite_Texture) 
StartDrawing(SpriteOutput(s0)) 
Box(0,50,128,20,$FFFFFF) 
StopDrawing() 
CreateSprite3D(0,0) 

Procedure r() 
  ns.l=CreateSprite(#PB_Any,128,128) 
  RotateSprite3D(0,5-90,0) 
  UseBuffer(ns) 
  Start3D() 
  DisplaySprite3D(0,0,0,255) 
  Stop3D() 
  GrabSprite(0,0,0,128,128,#PB_Sprite_Texture) 
  UseBuffer(-1) 
  CreateSprite3D(0,0) 
  FreeSprite(ns) 
EndProcedure 

Repeat 
  ExamineKeyboard() 
  ClearScreen(0,0,0) 
  r() 
  Start3D() 
  DisplaySprite3D(0,333,333,255) 
  Stop3D() 
  FlipBuffers():Delay(16) 
Until KeyboardPushed(#PB_Key_Escape) 

[Num3]

Why doesn't work this code?

Code: Select all

InitSprite() 
InitSprite3D() 
InitKeyboard() 
OpenScreen(640,480,32,"") 

CreateSprite(0,128,128,#PB_Sprite_Texture) 
StartDrawing(SpriteOutput(s0)) <------------ !!!!!!! s0 !?!?!?!!?
Box(0,50,128,20,$FFFFFF) 
StopDrawing() 
CreateSprite3D(0,0) 

Procedure r() 
  ns.l=CreateSprite(#PB_Any,128,128) 
  RotateSprite3D(0,5-90,0) 
  UseBuffer(ns) 
  Start3D() 
  DisplaySprite3D(0,0,0,255) 
  Stop3D() 
  GrabSprite(0,0,0,128,128,#PB_Sprite_Texture) 
  UseBuffer(-1) 
  CreateSprite3D(0,0) 
  FreeSprite(ns) 
EndProcedure 

Repeat 
  ExamineKeyboard() 
  ClearScreen(0,0,0) 
  r() 
  Start3D() 
  DisplaySprite3D(0,333,333,255) 
  Stop3D() 
  FlipBuffers():Delay(16) 
Until KeyboardPushed(#PB_Key_Escape) 

[Bonne_den_kule]

Why doesn't work this code?

Code: Select all

InitSprite() 
InitSprite3D() 
InitKeyboard() 
OpenScreen(640,480,32,"") 

CreateSprite(0,128,128,#PB_Sprite_Texture) 
StartDrawing(SpriteOutput(s0)) <------------ !!!!!!! s0 !?!?!?!!?
Box(0,50,128,20,$FFFFFF) 
StopDrawing() 
CreateSprite3D(0,0) 

Procedure r() 
  ns.l=CreateSprite(#PB_Any,128,128) 
  RotateSprite3D(0,5-90,0) 
  UseBuffer(ns) 
  Start3D() 
  DisplaySprite3D(0,0,0,255) 
  Stop3D() 
  GrabSprite(0,0,0,128,128,#PB_Sprite_Texture) 
  UseBuffer(-1) 
  CreateSprite3D(0,0) 
  FreeSprite(ns) 
EndProcedure 

Repeat 
  ExamineKeyboard() 
  ClearScreen(0,0,0) 
  r() 
  Start3D() 
  DisplaySprite3D(0,333,333,255) 
  Stop3D() 
  FlipBuffers():Delay(16) 
Until KeyboardPushed(#PB_Key_Escape) 

[Psychophanta]

I've got here 2 truths.

But not an answer ...

[Bonne_den_kule]

Why doesn't work this code?

Code: Select all

InitSprite() 
InitSprite3D() 
InitKeyboard() 
OpenScreen(640,480,32,"") 

CreateSprite(0,128,128,#PB_Sprite_Texture) 
StartDrawing(SpriteOutput(s0)) <------------ !!!!!!! s0 !?!?!?!!?
Box(0,50,128,20,$FFFFFF) 
StopDrawing() 
CreateSprite3D(0,0) 

Procedure r() 
  ns.l=CreateSprite(#PB_Any,128,128) 
  RotateSprite3D(0,5-90,0) 
  UseBuffer(ns) 
  Start3D() 
  DisplaySprite3D(0,0,0,255) 
  Stop3D() 
  GrabSprite(0,0,0,128,128,#PB_Sprite_Texture) 
  UseBuffer(-1) 
  CreateSprite3D(0,0) 
  FreeSprite(ns) 
EndProcedure 

Repeat 
  ExamineKeyboard() 
  ClearScreen(0,0,0) 
  r() 
  Start3D() 
  DisplaySprite3D(0,333,333,255) 
  Stop3D() 
  FlipBuffers():Delay(16) 
Until KeyboardPushed(#PB_Key_Escape) 

[Num3]

Dammit, you didn't see it

Code: Select all

StartDrawing(SpriteOutput(s0)) <------------ !!!!!!! s0 !?!?!?!!?

[filperj]

UseBuffer() has no effect on DisplaySprite3D().

[Psychophanta]

UseBuffer() has no effect on DisplaySprite3D().

Mmmm... that seems the answer. :roll:


And num3: s0 value is 0

This thread should be renamed as "Things to look at: Stupidity Open-competition"


...and the winner iiiss:... Bonne_den_kule ...

...and the silver medal is fooooor... ... nuuuuummmm3 ... who is from now on upgraded to num2