rem color background
setClearColor(0,0,0)
rem create sphere 0001
sphere0001=createObjectSphere(20,20,20)
rem load image
image0001=loadImage("metal.jpg")
rem texture sphere0001 with image0001
setObjectImage(sphere0001,image0001,0)
rem position the camera 80 units behind the sphere
setCameraPosition(1,0,0,-80)
rem main
do
rem shake camera (earthquake effect)
for i0001=1 to 360
rem calculate camera x angle, y angle, and z angle
cxa#=sin(i0001)*random(0,2)
cya#=cos(i0001)*random(0,2)
cza#=tan(i0001)*random(0,2)
rem update camera angles
setCameraRotation(1,cxa#,cya#,cza#)
rem sync
sync()
next i0001
loop
Help make AGK better by submitting an example for this command! (All examples are subject to approval)
rem color background setClearColor(0,0,0) rem create sphere 0001 sphere0001=createObjectSphere(20,20,20) rem load image image0001=loadImage("metal.jpg") rem texture sphere0001 with image0001 setObjectImage(sphere0001,image0001,0) rem position the camera 80 units behind the sphere setCameraPosition(1,0,0,-80) rem main do rem shake camera (earthquake effect) for i0001=1 to 360 rem calculate camera x angle, y angle, and z angle cxa#=sin(i0001)*random(0,2) cya#=cos(i0001)*random(0,2) cza#=tan(i0001)*random(0,2) rem update camera angles setCameraRotation(1,cxa#,cya#,cza#) rem sync sync() next i0001 loop