Home
Products
Community
Manuals
Contact
Login or Signup

Code archives/Miscellaneous/Jelly

This code has been declared by its author to be Public Domain code.

Download source code

Jelly by Gorley(Posted 1+ years ago)
3D model viewer with support for .b3d and .3ds, has controls for all axis (pan left right up and down, roll left and right, rotation in place left and right, and pitch forward and backwards. product of Kamikaze! programming.
Graphics3D 800,600,16
AppTitle "Jelly 3D model viewer"
.next_file
light=CreateLight(1)
cam=CreateCamera()




Print "Please type the file path of the 3D object you would like to view, "
Print "Only .b3d, .x or .3ds files supported "
Print"When finished viewing press 1 To view a New Object, or press escape to exit " 
Print "Use up and down arrows To change the pitch of the object "
Print "Use left and right keys to rotate the object clockwise and counterclockwise "
Print "Use the keys G And H to rotate in place, use the A and Z keys to zoom "
Print "Use Delete and Page Down to pan left and right,"
Print "Use Home and end to pan up and down"
Print "This is a product of Kamikaze! programming."


thing=LoadMesh(Input$())

PointEntity light,thing

While Not KeyDown(2)
ShowEntity thing

If KeyHit(1)
Goto finished
EndIf

z#=0
x#=0
y#=0


;left
If KeyHit(211)
x#=-1
EndIf

;Right
If KeyDown(209)
x#=1
EndIf

;up
If KeyDown(207)
y#=-1
EndIf

;down
If KeyDown(199)
y#=1
EndIf


roll#=0
yaw#=0
pitch#=0 

If KeyDown(208)
pitch#=1
EndIf

If KeyDown(200)
pitch#=-1
EndIf

If KeyDown(203)
roll#=1
EndIf

If KeyDown(205)
roll#=-1
EndIf

If KeyDown(44)
z#=.5
EndIf

If KeyDown(30)
z#=-.5
EndIf



If KeyDown(34)
yaw#=-1
EndIf 

If KeyDown(35)
yaw#=1
EndIf

TurnEntity thing,pitch#,yaw#,roll# 


MoveEntity thing,x#,y#,z#

RenderWorld

Flip
Wend
HideEntity thing
Goto next_file
.finished
RuntimeError "Thank You for using Jelly. Jelly is a product of Kamikaze! programming.

Comments

puki(Posted 1+ years ago)
Why is it called Jelly?


Ked(Posted 1+ years ago)
Why is your nickname puki?


ShadowTurtle(Posted 1+ years ago)
Why read you this message?


Code Archives Forum