Another Dimension Program 
Author Message
 Another Dimension Program

'To all,

  'I took a 3D sphere from a program called Wormhole from someone and
'added a box tunnel in the middle and the tunnel if FULL of colors.
'You need a VGA or SVGA monitor for it.

SCREEN 13
VIEW SCREEN (0, 0)-(319, 199)
DIM c(265)
PRINT "Please Wait..."
FOR I = 1 TO 6
c(I) = I * (63 / 6)
NEXT I
FOR I = 7 TO 256
c(I) = 0
NEXT I
FOR I = 100 TO 220
FOR j = 49 TO 75
IF POINT(I, j) = 15 THEN GOTO skip2j
IF POINT(I + 1, j + 1) = 15 THEN PSET (I, j), 50
IF POINT(I, j + 1) = 15 OR POINT(I + 1, j) = 15 THEN PSET (I, j), 49
IF POINT(I - 1, j + 1) = 15 OR POINT(I + 1, j - 1) = 15 THEN PSET (I, j), 48
IF POINT(I, j - 1) = 15 OR POINT(I - 1, j) = 15 THEN PSET (I, j), 47
IF POINT(I - 1, j - 1) = 15 THEN PSET (I, j), 46
skip2j:
NEXT j
NEXT I
FOR I = 100 TO 220
FOR j = 49 TO 75
IF POINT(I, j) = 15 THEN PSET (I, j), 32 - (j - 49)
NEXT j
NEXT I
FOR I = 1 TO 5
n = I * 12
c = n * 65536 + n * 256 + n
PALETTE I + 45, c
NEXT I
LINE (0, 0)-(320, 10), 0, BF
FOR I = 1 TO 50
r = I + 13
G = I - 1
c = G * 256 + r
PALETTE I + 150, c
NEXT I
FOR I = 0 TO 15
c = I * 4
n = c * 65536 + c * 256 + c
PALETTE I + 16, n
NEXT I
LOCATE 1, 1: PRINT "                         "
FOR I = 1 TO 49
CIRCLE (105 + I - I, 105 + I - I), I, 200 - I
CIRCLE (105 + I - I, 106 + I - I), I, 200 - I
CIRCLE (105 + I - I, 107 + I - I), I, 200 - I
NEXT I
DIM ass(200, 8)
GET (50, 0)-(250, 8), ass
LINE (50, 0)-(250, 8), 0, BF
ax = 0
av = 0
DIM text(312 * 8)
OUT 968, 1
FOR j = 1 TO 5
OUT 969, c(j)
OUT 969, 0
OUT 969, 0
NEXT j
PUT (ax, 0), ass, PSET
ax = ax + av
IF ax < 50 THEN av = av + 1 ELSE av = av - 1
B = c(5)
FOR j = 5 TO 2 STEP -1
c(j) = c(j - 1)
NEXT j
c(1) = B
z = TIMER * 100
weird:
LOCATE 1, 1
PRINT "Press Esc when done."
FOR x = 30 TO 230
a$ = INKEY$
IF a$ = CHR$(27) THEN END
LINE (105, 105)-(105, 105), x
LINE (104, 104)-(106, 106), x + 1, B
LINE (103, 103)-(107, 107), x + 2, B
LINE (102, 102)-(108, 108), x + 3, B
LINE (101, 101)-(109, 109), x + 4, B
LINE (100, 100)-(110, 110), x + 5, B
LINE (99, 99)-(111, 111), x + 6, B
LINE (98, 98)-(112, 112), x + 7, B
LINE (97, 97)-(113, 113), x + 8, B
LINE (96, 96)-(114, 114), x + 9, B
LINE (95, 95)-(115, 115), x + 10, B
FOR tm = 1 TO 5000: NEXT tm
NEXT x
IF a$ = CHR$(27) THEN END
o = o + 1
IF o > 3 THEN END
GOTO weird



Sat, 14 Nov 1998 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. single dimension array into multiple dimension array

2. Dimensioning of single dimension arrays within a class

3. accessing PVCS Dimensions from Visual Basic program

4. accessing PVCS Dimensions from Visual Basic program

5. Dimensioning a Picture Control to the dimensions of a variable dimension video With MMControl.

6. Dimensioning contents of a table

7. error dimensioning database

8. set array with 2 dimensions into combobox

9. Using VBA in A2k to get dimensions of a jpg file

10. How to refer to just *one* of the dimension of a multi-dimensional array in VBA

11. Sorting 2 Dimension Array

12. programmatically changing a pictures dimensions

 

 
Powered by phpBB® Forum Software