|
Post by xteraco on Feb 11, 2005 11:41:26 GMT -5
i just got done writing this..its a pyrimid that dances around...if youplay some drum and bass while looking @ it its really trippy..
dim angle#,r1,r2,r3,i
two: r1 = rnd()%2 r2 = rnd()%2 r3 = rnd()%2 glclear (GL_COLOR_BUFFER_BIT)
one: for i = 1 to 100 glClear (GL_DEPTH_BUFFER_BIT) glLoadIdentity () glTranslatef (0, 0, -4) glRotatef (angle#,r1, r2, r3) glBegin (GL_TRIANGLE_FAN) glColor3f (0,.5, 1): glVertex3f ( 0, 1, 0) glColor3f (1, 0, 0): glVertex3f (-1,-1, 1) glColor3f (1, 1, 1): glVertex3f ( 1,-1, 1) glColor3f (0, 0, 1): glVertex3f ( 1,-1,-1) glColor3f (0, 1, 0): glVertex3f (-1,-1,-1) glColor3f (1, 0, 0): glVertex3f (-1,-1, 1) glEnd () SwapBuffers () angle# = angle# + 1 if i = 100 then gosub two endif next
|
|
|
Post by xteraco on Feb 23, 2005 13:18:59 GMT -5
heh..i did a small update.. the pyrimid tweaks a little less..giving it a more "i'm doin this cause i'm supposed to" look LEAVE FEEDBACK!!! CRAP dim angle#,r1,r2,r3,i
two: r1 = rnd()%2 r2 = rnd()%2 r3 = rnd()%2 glclear (GL_COLOR_BUFFER_BIT)
one: for i = 1 to 200 glClear (GL_DEPTH_BUFFER_BIT) glLoadIdentity () glTranslatef (0, 0, -4) glRotatef (angle#,r1, r2, r3) glBegin (GL_TRIANGLE_FAN) glColor3f (0,.5, 1): glVertex3f ( 0, 1, 0) glColor3f (1, 0, 0): glVertex3f (-1,-1, 1) glColor3f (1, 1, 1): glVertex3f ( 1,-1, 1) glColor3f (0, 0, 1): glVertex3f ( 1,-1,-1) glColor3f (0, 1, 0): glVertex3f (-1,-1,-1) glColor3f (1, 0, 0): glVertex3f (-1,-1, 1) glEnd () SwapBuffers () angle# = angle# + 1 if i = 200 then gosub two endif next
|
|
|
Post by Supermonkey on Feb 23, 2005 13:30:25 GMT -5
if you change the roattion speed to like 10 then it goes majorly trippy. That would make a nice little screensaver, theres a way to do that but I don't remember how
|
|
|
Post by xteraco on Feb 23, 2005 16:54:48 GMT -5
angle# = angle# + 10
thats how
|
|
|
Post by Supermonkey on Feb 23, 2005 18:20:54 GMT -5
You know what I meant xteraco I meant how to change the .exe to a screensaver.
|
|
|
Post by xteraco on Feb 23, 2005 18:46:57 GMT -5
oops lol, i thought you ment..heh, i'm sorry, i can be a retard sometimes.. durrrr!!!
|
|
|
Post by 8XenoTrogdor8 on Feb 24, 2005 3:35:19 GMT -5
Well, I WAS going to ask if anybody knew how to make a Basic4GL program into a screensaver, but then I done went and found out myself. darn... Anyhow, here it is-- dim File1, File2
File1 = OpenFileRead ("Files\Executable.exe") File2 = OpenFileWrite ("Files\Executable.SCR")
While not EndOfFile (File1) WriteByte (File2, (ReadByte (File1))) Wend
CloseFile (File1) CloseFile (File2) (all that program does is give the file the .SCR extension...) (however, because of the size of executables, it can take a few seconds (almost a minute on my machine) to complete the copy. Is there a better way to give the file a different extension?) Just run the executable through this program (chances are you will have to rename the filepaths... just leave the extensions the same...) Then once the extension of the standalone executable file is .SCR, just move it to the windows screensaver directory (on Win 98, its in Windows/system). Then go to set up the screensaver in the properties menu, where it should now show up in the list of screensavers (unfortunately, it wont display a preview, and instead it will start the program, so just escape out of the program and continue on) I wont go into detail about how to apply a screensaver because (no offense,) if you dont know how to do that your just out of luck... Well thems my instructions, hopefully peeps can follow them... I guess theoretically then you could have any application start up instead of a screensaver... wouldn't that be scary if you leave your computer alone for a few minutes and Doom3 begins playing?
|
|
|
Post by Supermonkey on Feb 24, 2005 12:59:47 GMT -5
Ah thats the one, I posted on this forum somewhere before, but I couldn't be bothered to find the post
|
|
|
Post by GuppyB on Mar 8, 2005 16:07:23 GMT -5
nice... although I noticed that it streaked the pyramid without clearing the buffer on my computer ever, I didn't know if that was the intended effect. If it's not intended, I fixed it by moving the "glclear (GL_COLOR_BUFFER_BIT)" into the loop. I wonder if there are differences in the way our computers are handling the buffers....hmmmm.
...G
dim angle#,r1,r2,r3,i
two: r1 = rnd()%2 r2 = rnd()%2 r3 = rnd()%2
one: for i = 1 to 200 glclear (GL_COLOR_BUFFER_BIT) glClear (GL_DEPTH_BUFFER_BIT) glLoadIdentity () glTranslatef (0, 0, -4) glRotatef (angle#,r1, r2, r3) glBegin (GL_TRIANGLE_FAN) glColor3f (0,.5, 1): glVertex3f ( 0, 1, 0) glColor3f (1, 0, 0): glVertex3f (-1,-1, 1) glColor3f (1, 1, 1): glVertex3f ( 1,-1, 1) glColor3f (0, 0, 1): glVertex3f ( 1,-1,-1) glColor3f (0, 1, 0): glVertex3f (-1,-1,-1) glColor3f (1, 0, 0): glVertex3f (-1,-1, 1) glEnd () SwapBuffers () angle# = angle# + 1 if i = 200 then gosub two endif next
|
|
|
Post by xteraco on Mar 15, 2005 4:52:56 GMT -5
actually, the streak was an intended effect.. it gives it that dreamy feeling but, good job actually catching it makes me feel good that people actually read the src ;D
|
|