how to scale a sphere

Something really simple:

Graphics3D 640,480,32,2
SetBuffer BackBuffer()

s=CreateSphere()
EntityFX s,16
Global wob#=0,wob_sin,wob_step#

cam=CreateCamera()
TranslateEntity cam,0,1,-5

WireFrame 1

While KeyDown(1)=0

  If KeyHit(57)
   pushmesh(.212,180,20)
  EndIf

  If wob>0
   wobblemesh(s)
  EndIf

  RenderWorld
  Flip
Wend
End




Function pushmesh(ww#,wsi#,wst#)
 wob=ww
 wob_sin=wsi
 wob_step=wst
End Function

Function wobblemesh(m)
 amount#=Sin(wob_sin)*wob
 ScaleEntity m,1.0-amount/2.0,1.0+amount,1.0-amount/2.0
 wob=wob*.98
 wob_sin=wob_sin+wob_step
 wob_step=wob_step*1.02
 If wob<0.05 Then wob=0
End Function