TheGameCreators - CodeBase - 3D model viewer

Return to the CodeBase listing

Category: System Enhancements

Version: 2.0.22 +

Information

Uploaded: 9th Sep 2019 02:31

Modified: 27th Nov 2019 12:50

Author: Mark Garrett

Summary

..3D model viewer.

Full Description

3D model viewer to examine your 3D models. Just get one of your 3D models, and load it in there, and you can examine it from all angles. It Rotates the 3D model along it's X and Y axis, and you can zoom in and out. Works on PC. Load your own 3D object by substituting on line 44 ..... Box = LoadObject("My object.obj")

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

// Project: 3D Object VIewer

// Created: 2019-09-08

// show all errors

SetErrorMode(2)

// set window properties

SetWindowTitle( "AGK Object Viewer" )

SetWindowSize( 1024, 768, 0 )

SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties

SetVirtualResolution( 1024, 768 ) // doesn't have to match the window

SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices

SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders

UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Box = CreateObjectBox( 7,7, 11 )

`Or load your own object with :   Box = LoadObject("My object.obj")

sync()

AddVirtualJoystick( 1, 945,100, 150 )

Gosub Move_Object

print ("Use 'mouse wheel' to zoom object in and out")

print ("Use 'Virtual Joystick' to move the object to different angles")

Sync()

loop

Move_Object:

`Virtual Joystick:

If GetVirtualJoystickY(1) < 0 `RotateObjectLocalX

RotateObjectLocalX( Box, 2 )

endif

If GetVirtualJoystickY(1) > 0

RotateObjectLocalX( Box,  -2 )

endif

If GetVirtualJoystickX(1) > 0  `RotateObjectLocalY

RotateObjectLocalY( Box, -2 )

endif

If GetVirtualJoystickX(1) < 0

RotateObjectLocalY( Box, 2 )

endif

`Mouse  Wheel:

if GetRawMouseWheelDelta() <0 then MoveCameraLocalZ(1,-5)

if GetRawMouseWheelDelta() >0  then  MoveCameraLocalZ(1, 5)

SetCameraLookAt( 1, GetObjectX(Box),  GetObjectY(Box), GetObjectZ(Box), 0 )

Return

Download

Please login to download

Comments

No comments yet.

Author Name:	Mark Garrett
CodeBase Entries:	26

CodeBase - 3D model viewer

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments