resize   xtlang

(bind-func resize
  (lambda (width:float height:float)
    ;; resize viewport
    (h3dSetNodeParamI _cam H3DCamera_ViewportXI 0)
    (h3dSetNodeParamI _cam H3DCamera_ViewportYI 0)
    (h3dSetNodeParamI _cam H3DCamera_ViewportWidthI (ftoi32 width))
    (h3dSetNodeParamI _cam H3DCamera_ViewportHeightI (ftoi32 height))
    ;; set virtual cam params
    (h3dSetupCameraView _cam 45.0 (/ width height) 0.1 1000.0)
    (h3dResizePipelineBuffers _hdrPipeRes (ftoi32 width) (ftoi32 height))
    (h3dResizePipelineBuffers _forwardPipeRes (ftoi32 width) (ftoi32 height))
    1))