TGC Codebase Backup



VIVID 2 by Pixle Pusher

1st Apr 2004 18:09
Summary

31 cubes all rotating at different speeds. Looks stunning:)



Description

31 cubes all rotating at different speeds. Looks stunning:)



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REM VIVID  2

HIDE MOUSE
BACKDROP ON
COLOR BACKDROP RGB(250,150,0)
MAKE OBJECT CUBE 1,100
COLOR OBJECT 1,RGB(0,255,255)
POSITION OBJECT 1,0,25,700
MAKE OBJECT CUBE 2,100
COLOR OBJECT 2,RGB(0,255,255)
POSITION OBJECT 2,-160,+120,700
MAKE OBJECT CUBE 3,100
COLOR OBJECT 3,RGB(0,255,255)
POSITION OBJECT 3,+160,+120,700
MAKE OBJECT CUBE 4,100
COLOR OBJECT 4,RGB(0,255,255)
POSITION OBJECT 4,-160,-60,700
MAKE OBJECT CUBE 5,100
COLOR OBJECT 5,RGB(0,255,255)
POSITION OBJECT 5,+160,-60,700
MAKE OBJECT CUBE 6,100
COLOR OBJECT 6,RGB(0,255,255)
POSITION OBJECT 6,0,+225,700
MAKE OBJECT CUBE 7,100
COLOR OBJECT 7,RGB(0,255,255)
POSITION OBJECT 7,0,-175,700
MAKE OBJECT CUBE 8,100
COLOR OBJECT 8,RGB(0,255,255)
POSITION OBJECT 8,-330,+225,700
MAKE OBJECT CUBE 9,100
COLOR OBJECT 9,RGB(0,255,255)
POSITION OBJECT 9,+330,+225,700
MAKE OBJECT CUBE 10,100
COLOR OBJECT 10,RGB(0,255,255)
POSITION OBJECT 10,-330,-175,700
MAKE OBJECT CUBE 11,100
COLOR OBJECT 11,RGB(0,255,255)
POSITION OBJECT 11,-330,25,700
MAKE OBJECT CUBE 12,100
COLOR OBJECT 12,RGB(0,255,255)
POSITION OBJECT 12,+330,25,700
MAKE OBJECT CUBE 13,100
COLOR OBJECT 13,RGB(0,255,255)
POSITION OBJECT 13,+330,-175,700
MAKE OBJECT CUBE 14,100
COLOR OBJECT 14,RGB(0,255,255)
POSITION OBJECT 14,+330,+430,700
MAKE OBJECT CUBE 15,100
COLOR OBJECT 15,RGB(0,255,255)
POSITION OBJECT 15,+330,-370,700
MAKE OBJECT CUBE 16,100
COLOR OBJECT 16,RGB(0,255,255)
POSITION OBJECT 16,+160,+310,700
MAKE OBJECT CUBE 17,100
COLOR OBJECT 17,RGB(0,255,255)
POSITION OBJECT 17,+160,-260,700
MAKE OBJECT CUBE 18,100
COLOR OBJECT 18,RGB(0,255,255)
POSITION OBJECT 18,0,+430,700
MAKE OBJECT CUBE 19,100
COLOR OBJECT 19,RGB(0,255,255)
POSITION OBJECT 19,0,-370,700
MAKE OBJECT CUBE 20,100
COLOR OBJECT 20,RGB(0,255,255)
POSITION OBJECT 20,-175,+310,700
MAKE OBJECT CUBE 21,100
COLOR OBJECT 21,RGB(0,255,255)
POSITION OBJECT 21,-330,+430,700
MAKE OBJECT CUBE 22,100
COLOR OBJECT 22,RGB(0,255,255)
POSITION OBJECT 22,-175,-260,700
MAKE OBJECT CUBE 23,100
COLOR OBJECT 23,RGB(0,255,255)
POSITION OBJECT 23,-330,-370,700
MAKE OBJECT CUBE 24,100
COLOR OBJECT 24,RGB(0,255,255)
POSITION OBJECT 24,-530,+310,700
MAKE OBJECT CUBE 25,100
COLOR OBJECT 25,RGB(0,255,255)
POSITION OBJECT 25,-530,+120,700
MAKE OBJECT CUBE 26,100
COLOR OBJECT 26,RGB(0,255,255)
POSITION OBJECT 26,-530,-60,700
MAKE OBJECT CUBE 27,100
COLOR OBJECT 27,RGB(0,255,255)
POSITION OBJECT 27,-530,-260,700
MAKE OBJECT CUBE 28,100
COLOR OBJECT 28,RGB(0,255,255)
POSITION OBJECT 28,+530,+310,700
MAKE OBJECT CUBE 29,100
COLOR OBJECT 29,RGB(0,255,255)
POSITION OBJECT 29,+530,-260,700
MAKE OBJECT CUBE 30,100
COLOR OBJECT 30,RGB(0,255,255)
POSITION OBJECT 30,+530,-60,700
MAKE OBJECT CUBE 31,100
COLOR OBJECT 31,RGB(0,255,255)
POSITION OBJECT 31,+530,+120,700
DO
ROTATE OBJECT 1,OBJECT ANGLE X(1)+0.1,OBJECT ANGLE Y(1)+0.2,OBJECT ANGLE Z(1)+0.3
ROTATE OBJECT 2,OBJECT ANGLE X(2)-0.3,OBJECT ANGLE Y(2)-0.2,OBJECT ANGLE Z(2)-0.1
ROTATE OBJECT 3,OBJECT ANGLE X(3)+0.2,OBJECT ANGLE Y(3)+0.3,OBJECT ANGLE Z(3)+0.1
ROTATE OBJECT 4,OBJECT ANGLE X(4)-0.3,OBJECT ANGLE Y(4)-0.1,OBJECT ANGLE Z(4)-0.2
ROTATE OBJECT 5,OBJECT ANGLE X(5)+0.1,OBJECT ANGLE Y(5)+0.1,OBJECT ANGLE Z(5)+0.3
ROTATE OBJECT 6,OBJECT ANGLE X(6)-0.1,OBJECT ANGLE Y(6)-0.1,OBJECT ANGLE Z(6)-0.1
ROTATE OBJECT 7,OBJECT ANGLE X(7)+0.2,OBJECT ANGLE Y(7)+0.2,OBJECT ANGLE Z(7)+0.2
ROTATE OBJECT 8,OBJECT ANGLE X(8)-0.3,OBJECT ANGLE Y(8)-0.3,OBJECT ANGLE Z(8)-0.3
ROTATE OBJECT 9,OBJECT ANGLE X(9)+0.1,OBJECT ANGLE Y(9)+0.2,OBJECT ANGLE Z(9)+0.4
ROTATE OBJECT 10,OBJECT ANGLE X(10)-0.2,OBJECT ANGLE Y(10)-0.1,OBJECT ANGLE Z(10)-0.4
ROTATE OBJECT 11,OBJECT ANGLE X(11)+0.4,OBJECT ANGLE Y(11)+0.1,OBJECT ANGLE Z(11)+0.2
ROTATE OBJECT 12,OBJECT ANGLE X(12)-0.1,OBJECT ANGLE Y(12)-0.4,OBJECT ANGLE Z(12)-0.2
ROTATE OBJECT 13,OBJECT ANGLE X(13)+0.3,OBJECT ANGLE Y(13)+0.2,OBJECT ANGLE Z(13)+0.4
ROTATE OBJECT 14,OBJECT ANGLE X(14)-0.2,OBJECT ANGLE Y(14)-0.3,OBJECT ANGLE Z(14)-0.4
ROTATE OBJECT 15,OBJECT ANGLE X(15)+0.4,OBJECT ANGLE Y(15)+0.4,OBJECT ANGLE Z(15)+0.4
ROTATE OBJECT 16,OBJECT ANGLE X(16)-0.3,OBJECT ANGLE Y(16)-0.4,OBJECT ANGLE Z(16)-0.3
ROTATE OBJECT 17,OBJECT ANGLE X(17)+0.1,OBJECT ANGLE Y(17)+0.4,OBJECT ANGLE Z(17)+0.1
ROTATE OBJECT 18,OBJECT ANGLE X(18)-0.4,OBJECT ANGLE Y(18)-0.2,OBJECT ANGLE Z(18)-0.5
ROTATE OBJECT 19,OBJECT ANGLE X(19)+0.5,OBJECT ANGLE Y(19)+0.4,OBJECT ANGLE Z(19)+0.3
ROTATE OBJECT 20,OBJECT ANGLE X(20)-0.3,OBJECT ANGLE Y(20)-0.4,OBJECT ANGLE Z(20)-0.5
ROTATE OBJECT 21,OBJECT ANGLE X(21)+0.1,OBJECT ANGLE Y(21)+0.5,OBJECT ANGLE Z(21)+0.5
ROTATE OBJECT 22,OBJECT ANGLE X(22)-0.5,OBJECT ANGLE Y(22)-0.3,OBJECT ANGLE Z(22)-0.3
ROTATE OBJECT 23,OBJECT ANGLE X(23)+0.3,OBJECT ANGLE Y(23)+0.1,OBJECT ANGLE Z(23)+0.3
ROTATE OBJECT 24,OBJECT ANGLE X(24)-0.1,OBJECT ANGLE Y(24)-0.2,OBJECT ANGLE Z(24)-0.5
ROTATE OBJECT 25,OBJECT ANGLE X(25)+0.1,OBJECT ANGLE Y(25)+0.2,OBJECT ANGLE Z(25)+0.4
ROTATE OBJECT 26,OBJECT ANGLE X(26)-0.4,OBJECT ANGLE Y(26)-0.2,OBJECT ANGLE Z(26)-0.1
ROTATE OBJECT 27,OBJECT ANGLE X(27)+0.4,OBJECT ANGLE Y(27)+0.4,OBJECT ANGLE Z(27)+0.6
ROTATE OBJECT 28,OBJECT ANGLE X(28)-0.3,OBJECT ANGLE Y(28)-0.2,OBJECT ANGLE Z(28)-0.3
ROTATE OBJECT 29,OBJECT ANGLE X(29)+0.2,OBJECT ANGLE Y(29)+0.5,OBJECT ANGLE Z(29)+0.3
ROTATE OBJECT 30,OBJECT ANGLE X(30)-0.6,OBJECT ANGLE Y(30)-0.5,OBJECT ANGLE Z(30)-0.4
ROTATE OBJECT 31,OBJECT ANGLE X(31)+0.4,OBJECT ANGLE Y(31)+0.5,OBJECT ANGLE Z(31)+0.6
CONTROL CAMERA USING ARROWKEYS 0, 0.50, 0.50
LOOP