Problem with Scaling?

Blitz3D Forums/Blitz3D Programming/Problem with Scaling?

Guy Fawkes (Posted 2013) [#1]

Hi all. I'm still working on my program, and I have gotten to the point where I need to scale my objects. Problem is, I cannot control the speed of the resizing of the objects for some reason & would like to know how to fix this example code I created: ScaleObjectsTest.bb: Graphics3D 800, 600, 0, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() AppTitle "Scale Objects Test" Global camera = CreateCamera() PositionEntity camera,0, 1, -150 CameraRange camera, 0.01, 1000000 AmbientLight 255, 255, 255 Global light = CreateLight() RotateEntity light, 90, 0, 0 Global sky = CreateCube() EntityColor sky, 0, 0, 0 ScaleEntity sky, 100000, 100000, 100000 FlipMesh sky Global land = CreatePlane() EntityColor land, 64, 64, 64 Global cube1 = CreateCube() ScaleEntity cube1, 10, 10, 10 PositionEntity cube1, -40, 25, 0 Global cube2 = CreateCube() ScaleEntity cube2, 10, 10, 10 PositionEntity cube2, 40, 25, 0 Global count# = 0.001 Global w = 1 api_ShowWindow(SystemProperty$("AppHWND"), 1) While Not KeyHit(1) If KeyHit(17) w=1-w EndIf Wireframe w ;Scale down by 0.001% of the Mesh's size If KeyDown(44) temp_x_offset# = temp_x_offset# - MeshWidth#(cube1) - count# temp_y_offset# = temp_y_offset# - MeshHeight#(cube1) - count# temp_z_offset# = temp_z_offset# - MeshDepth#(cube1) - count# ScaleEntity cube1, -temp_x_offset#, -temp_y_offset#, -temp_z_offset# ScaleEntity cube2, -temp_x_offset#, -temp_y_offset#, -temp_z_offset# EndIf ;Scale up by 0.001% of the Mesh's size If KeyDown(45) temp_x_offset# = temp_x_offset# + MeshWidth#(cube1) + count# temp_y_offset# = temp_y_offset# + MeshHeight#(cube1) + count# temp_z_offset# = temp_z_offset# + MeshDepth#(cube1) + count# ScaleEntity cube1, temp_x_offset#, temp_y_offset#, temp_z_offset# ScaleEntity cube2, temp_x_offset#, temp_y_offset#, temp_z_offset# EndIf UpdateWorld RenderWorld Color 32, 32, 255 Text GraphicsWidth()/2, GraphicsHeight()/2, "MeshWidth#(cube1): "+MeshWidth#(cube1), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+20, "MeshHeight#(cube1): "+MeshHeight#(cube1), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+40, "MeshDepth#(cube1): "+MeshDepth#(cube1), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+60, "MeshWidth#(cube2): "+MeshWidth#(cube2), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+80, "MeshHeight#(cube2): "+MeshHeight#(cube2), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+100, "MeshDepth#(cube2): "+MeshDepth#(cube2), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+120, "temp_x_offset#: "+temp_x_offset#, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+140, "temp_y_offset#: "+temp_y_offset#, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+160, "temp_z_offset#: "+temp_z_offset#, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+180, "wireframe: "+w, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+240, "Press 'w' to turn on / off wireframe mode", 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+260, "Press & hold 'z' to scale down the objects", 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+280, "Press & hold 'x' to scale up the objects", 1, 1 Color 255, 255, 255 Flip Wend End Thank You kindly!

Guy Fawkes (Posted 2013) [#2]

Can someone please help? Thank You and Merry Christmas!

John Blackledge (Posted 2013) [#3]

Should you be using ScaleMesh instead? According to the docs there_is_ a difference.

Guy Fawkes (Posted 2013) [#4]

No, I tried that. Unfortunately, it made things worse. Anyway, I have it almost working now. What I need is for it instead of resetting the size of the objects and THEN scaling, I need each object to stay at its' exact size and THEN allow for scaling. ScaleObjectsTest.bb: Graphics3D 800, 600, 0, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() AppTitle "Scale Objects Test" Global camera = CreateCamera() PositionEntity camera,0, 1, -150 CameraRange camera, 0.01, 1000000 AmbientLight 255, 255, 255 Global light = CreateLight() RotateEntity light, 90, 0, 0 Global sky = CreateCube() EntityColor sky, 0, 0, 0 ScaleEntity sky, 100000, 100000, 100000 FlipMesh sky Global land = CreatePlane() EntityColor land, 64, 64, 64 Global cube1 = CreateCube() ScaleEntity cube1, 10, 10, 10 PositionEntity cube1, -40, 25, 0 Global cube2 = CreateCube() ScaleEntity cube2, 10, 10, 10 PositionEntity cube2, 40, 25, 0 Global count# = 0.01 Global w = 1 api_ShowWindow(SystemProperty$("AppHWND"), 1) While Not KeyHit(1) If KeyHit(17) w=1-w EndIf Wireframe w ;Scale down by 0.01% of the Mesh's size If KeyDown(44) temp_x_offset# = temp_x_offset# - (MeshWidth(cube1) * count#) temp_y_offset# = temp_y_offset# - (MeshHeight(cube1) * count#) temp_z_offset# = temp_z_offset# - (MeshDepth(cube1) * count#) EntityAnimScale(cube1, temp_x_offset#, temp_y_offset#, temp_z_offset#) EntityAnimScale(cube2, temp_x_offset#, temp_y_offset#, temp_z_offset#) EndIf ;Scale up by 0.01% of the Mesh's size If KeyDown(45) temp_x_offset# = temp_x_offset# + (MeshWidth(cube1) * count#) temp_y_offset# = temp_y_offset# + (MeshHeight(cube1) * count#) temp_z_offset# = temp_z_offset# + (MeshDepth(cube1) * count#) EntityAnimScale(cube1, temp_x_offset#, temp_y_offset#, temp_z_offset#) EntityAnimScale(cube2, temp_x_offset#, temp_y_offset#, temp_z_offset#) EndIf UpdateWorld RenderWorld Color 32, 32, 255 Text GraphicsWidth()/2, GraphicsHeight()/2, "MeshWidth#(cube1): "+MeshWidth#(cube1), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+20, "MeshHeight#(cube1): "+MeshHeight#(cube1), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+40, "MeshDepth#(cube1): "+MeshDepth#(cube1), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+60, "MeshWidth#(cube2): "+MeshWidth#(cube2), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+80, "MeshHeight#(cube2): "+MeshHeight#(cube2), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+100, "MeshDepth#(cube2): "+MeshDepth#(cube2), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+120, "temp_x_offset#: "+temp_x_offset#, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+140, "temp_y_offset#: "+temp_y_offset#, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+160, "temp_z_offset#: "+temp_z_offset#, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+180, "wireframe: "+w, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+240, "Press 'w' to turn on / off wireframe mode", 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+260, "Press & hold 'z' to scale down the objects", 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+280, "Press & hold 'x' to scale up the objects", 1, 1 Color 255, 255, 255 Flip Wend End Function EntityAnimScale(m,x#,y#,z#) If EntityClass$(m)="Mesh" ScaleEntity m,x,y,z,0 EndIf For i=1 To CountChildren(m) ww=GetChild(m,i) EntityAnimScale(ww,x,y,z) Next End Function Thank You & Merry Christmas!

Guy Fawkes (Posted 2013) [#5]

Arg. I still can't get it to work. :(

Guy Fawkes (Posted 2013) [#6]

A small fix, but still having the same above problem: Graphics3D 800, 600, 0, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() AppTitle "Scale Objects Test" Global camera = CreateCamera() PositionEntity camera,0, 1, -150 CameraRange camera, 0.01, 1000000 AmbientLight 255, 255, 255 Global light = CreateLight() RotateEntity light, 90, 0, 0 Global sky = CreateCube() EntityColor sky, 0, 0, 0 ScaleEntity sky, 100000, 100000, 100000 FlipMesh sky Global land = CreatePlane() EntityColor land, 64, 64, 64 Global cube1 = CreateCube() ScaleEntity cube1, 10, 10, 10 PositionEntity cube1, -40, 25, 0 Global cube2 = CreateCube() ScaleEntity cube2, 10, 10, 10 PositionEntity cube2, 40, 25, 0 Global count# = 0.01 Global w = 1 api_ShowWindow(SystemProperty$("AppHWND"), 1) While Not KeyHit(1) If KeyHit(17) w=1-w EndIf Wireframe w ;Scale down by 0.01% of the Mesh's size If KeyDown(44) temp_x_offset# = temp_x_offset# - count# temp_y_offset# = temp_y_offset# - count# temp_z_offset# = temp_z_offset# - count# EntityAnimScale(cube1, temp_x_offset#, temp_y_offset#, temp_z_offset#) EntityAnimScale(cube2, temp_x_offset#, temp_y_offset#, temp_z_offset#) EndIf ;Scale up by 0.01% of the Mesh's size If KeyDown(45) temp_x_offset# = temp_x_offset# + count# temp_y_offset# = temp_y_offset# + count# temp_z_offset# = temp_z_offset# + count# EntityAnimScale(cube1, temp_x_offset#, temp_y_offset#, temp_z_offset#) EntityAnimScale(cube2, temp_x_offset#, temp_y_offset#, temp_z_offset#) EndIf UpdateWorld RenderWorld Color 32, 32, 255 Text GraphicsWidth()/2, GraphicsHeight()/2, "MeshWidth#(cube1): "+MeshWidth#(cube1), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+20, "MeshHeight#(cube1): "+MeshHeight#(cube1), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+40, "MeshDepth#(cube1): "+MeshDepth#(cube1), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+60, "MeshWidth#(cube2): "+MeshWidth#(cube2), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+80, "MeshHeight#(cube2): "+MeshHeight#(cube2), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+100, "MeshDepth#(cube2): "+MeshDepth#(cube2), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+120, "temp_x_offset#: "+temp_x_offset#, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+140, "temp_y_offset#: "+temp_y_offset#, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+160, "temp_z_offset#: "+temp_z_offset#, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+180, "wireframe: "+w, 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+200, "BP_GetEntityScaleX#(cube1): "+BP_GetEntityScaleX#(cube1), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+220, "BP_GetEntityScaleY#(cube1): "+BP_GetEntityScaleY#(cube1), 1, 1 Text GraphicsWidth()/2, GraphicsHeight()/2+240, "BP_GetEntityScaleZ#(cube1): "+BP_GetEntityScaleZ#(cube1), 1, 1 Color 255, 255, 255 Flip Wend End Function EntityAnimScale(m,x#,y#,z#) If EntityClass$(m)="Mesh" ScaleEntity m,x,y,z,0 EndIf For i=1 To CountChildren(m) ww=GetChild(m,i) EntityAnimScale(ww,x,y,z) Next End Function

Floyd (Posted 2013) [#7]

The original "size" is, by definition, 1. Increasing that by 1% would give sizes of 1.01, 1.02 etc. ; Escape quits. Graphics3D 800, 600, 0, 2 s1 = CreateSphere() PositionEntity s1, -10, 0, 0 s2 = CreateSphere() PositionEntity s2, 10, 0, 0 cam = CreateCamera() PositionEntity cam, 0, 0, -100 CameraZoom cam, 3 size# = 1 For n = 1 To 500 RenderWorld Flip size = size + 0.01 ScaleEntity s1, size, size, size If KeyHit(1) Then End Next For n = 1 To 500 RenderWorld Flip size = size - 0.01 ScaleEntity s1, size, size, size If KeyHit(1) Then End Next If you want to scale relative to current size, rather than original, then do size=size*1.01 to increase 1%. Use size=size/1.01 to undo that increase.

Floyd (Posted 2013) [#8]

Also that camera range near/far ratio is about ten thousand times too big. If that's because of the giant skybox then it is not needed. The usual technique is to make the skybox small, with size of perhaps 10 instead of 1000000. Use EntityOrder to force it to be drawn first. Then on screen it will go behind everything else no matter how big or small it actually is.

Guy Fawkes (Posted 2013) [#9]

THANK you SO MUCH, Floyd! You've just saved my project! :D Also, I will remember to take into account, a smaller sky. Thank You again, kind sir! MERRY CHRISTMAS! For those of you who want to control the sphere with a key, the code is here and it's easier than I thought it would be! ScaleTest.bb: Graphics3D 800, 600, 0, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() Global cam = CreateCamera() PositionEntity cam, 0, 1, -10 AmbientLight 255, 255, 255 Global s1 = CreateSphere() PositionEntity s1, 0, 1, 0 ScaleEntity s1, 1, 1, 1 EntityColor s1, 64, 64, 64 Global currentresizespeed# = ( 0.00 ) Global scalespeed# = ( 0.01 ) Global doublescalespeed# = ( scalespeed# * 2.0 ) Global size# = ( 1.0 ) Global finalsize# = ( 0.00 ) api_ShowWindow(SystemProperty$("AppHWND"), 1) While Not KeyHit(1) Cls If ShiftKeys() = 0 Then currentresizespeed# = scalespeed# If ShiftKeys() <> 0 Then currentresizespeed# = doublescalespeed# If ZK_Down() Then finalsize# = ResizeEntity#(s1, 1, currentresizespeed#) If XK_Down() Then finalsize# = ResizeEntity#(s1, 2, currentresizespeed#) UpdateWorld RenderWorld Text GraphicsWidth()/2, GraphicsHeight()/2, "finalsize#: "+finalsize#, 1, 1 Flip Wend End Function LShift() Return (KeyDown(42)) End Function Function RShift() Return (KeyDown(54)) End Function Function ShiftKeys() Return (LShift()+RShift()) End Function Function ZK_Down() Return (KeyDown(44)) End Function Function XK_Down() Return (KeyDown(45)) End Function Function EntityAnimScale(m, x#, y#, z#) If EntityClass$(m)="Mesh" Then ScaleEntity m, x, y, z, 0 For i=1 To CountChildren(m) ww=GetChild(m, i) EntityAnimScale(ww, x, y, z) Next End Function Function ResizeEntity#(ent, whichmode=1, resizespeed# = 0.01) count# = resizespeed# If whichmode = 1 Then size# = size# + count# If whichmode = 2 Then size# = size# - count# EntityAnimScale(ent, size#, size#, size#) Return size# End Function MERRY CHRISTMAS, ALL! :D