blobs - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|341\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> blobs
Sun, 12 Aug 2007, 05:23
spinal	first of all, this isn't my code, I rescued it from the old blitzcoder showcase. It creates a really cool 2D metaball type effect. AppTitle "Blobs" Const ScreenWidth=320 Const ScreenHeight=240 Graphics ScreenWidth, ScreenHeight SetBuffer BackBuffer() Flip Dim Palette(255) Dim table(ScreenHeight,ScreenWidth) For i=0 To 63 : Color 0,0,i4: Line i,0,i,200 :Next For i=0 To 127: Color 0,(i/2)4,634: Line i+64,0,i+64,200:Next For i=0 To 63: Color i4,634,634: Line i+192,0,i+192,200:Next For x=0 To 255: Palette(x)=ReadPixel (x,0):Next Cls For y=0 To ScreenHeight For x=0 To ScreenWidth If (x=0 And y=0) table(y,x)=255 Else table(y,x)=(9000000000.0 / (Sqr(xx + yy) * 7000000.0)) EndIf Next Next FlushKeys FlushMouse MoveMouse 0,0 Repeat x1 = 60 * Cos (alfa) + 30 * Sin (-alfa) + ScreenWidth/2 y1 = 30 * Cos (-alfa2) + 60 Sin (alfa) + ScreenHeight/2 x2 = 30 * Cos (alfa) + 60 * Sin (alfa2) + ScreenWidth/2 y2 = 60 Cos (alfa) + 30 * Sin (alfa) + ScreenHeight/2 x3 = 45 * Cos (-alfa) + 45 * Sin (alfa) + ScreenWidth/2 y3 = 45 * Cos (alfa2) + 45 Sin (-alfa) + ScreenHeight/2 x4 = 75 * Cos (alfa) + 15 * Sin (alfa2) + ScreenWidth/2 y4 = 15 Cos (-alfa) + 75 * Sin (alfa2) + ScreenHeight/2 x5 = 35 Cos (alfa) + 10 * Sin (alfa) + ScreenWidth/2 y5 = 10 * Cos (alfa2) + 35 Sin (-alfa) + ScreenHeight/2 x6 = 40 * Cos (-alfa) + 30 * Sin (alfa2) + ScreenWidth/2 y6 = 40 Cos (alfa) + 10 * Sin (alfa) + ScreenHeight/2 alfa=alfa+3 LockBuffer For y=0 To ScreenHeight For x=0 To ScreenWidth pixel=table(Abs(y1-y),Abs(x1-x))+table(Abs(y2-y),Abs(x2-x))+table(Abs(y3-y),Abs(x3-x))+table(Abs(y4-y),Abs(x4-x))+table(Abs(y5-y),Abs(x5-x))+table(Abs(y6-y),Abs(x6-x)) If pixel>255 Then pixel=255 WritePixelFast x,y,palette(pixel) Next Next UnlockBuffer Flip Cls Until MouseX()<>0 Or MouseY()<>0 Or GetKey()<>0 Or GetMouse()<>0 End --v If tried to get this to work in C on the DS, but no luck yet, no matter what I do, it doesn't work. To speed it up I tried dropping the palette and lookup table created here in to a const array and although it speeded up the execution, it did nothing to get the damn thing working. Anyway, enjoy the blitz version. -=-=- Check out my excellent homepage!
Sun, 12 Aug 2007, 06:54
mike_g	Yeah thats a nice effect, I have seen pretty much the same thing coded onto a web page in javascript, which was quite impressive. I dunno how you would fix it for the DS tho.
Sun, 12 Aug 2007, 06:59
Jayenkai	What's up with the DS version, then? Any ideas? If you need any extra speed, you might want to make Sin and Cos into lookup arrays instead of using the inbuilt maths. I don't know if it's any quicker on the DS, but it sure as hell was on an MS Smartphone! -=-=- ''Load, Next List!''
Sun, 12 Aug 2007, 08:25
spinal	the sin/cos doesnt bother me right now, i just wand it to display properly. the ds version crashes no$gba, it run is dsemume, but not properly. I haven't a clue whats wrong, I converted the code line by line, the c code should be exactly the same as tbe blitz. give it a try yourself, I just modified the 8bitdraw example, just paste over that. here is what I have so far. It doesn't work on hardware either. main.c // Includes #include <PA9.h> // Include for PA_Lib #include <math.h> // for sin()/cos() (and sqrt() i think) #include <stdlib.h> // for abs() #include "8bit.h" // palette // Function: main() int main(int argc, char ** argv) { PA_Init(); // Initializes PA_Lib PA_InitVBL(); // Initializes a standard VBL // Let's put some colors... in the background palettes // The palette is similar to the blitz version, but not identical int t=0; for(t=0; t<255; t++) { PA_SetBgPalCol(0, t, palette[t]); } PA_Init8bitBg(0, 3); int x,y; int x1,x2,x3,x4,x5,x6,y1,y2,y3,y4,y5,y6,alfa=0; int table[192][256]; int pixel; for(y=0; y<192; y++) { for(x=0; x<256; x++) { // takes a little while for the table to build table[y][x]=(9000 / (sqrt(xx + yy) * 7)); PA_Put8bitPixel(0,x,y,x); // simple progress indicator } } while (1) { // the following is only for pixel movement and isnt vital x1 = 60 * cos(alfa) + 30 * sin(-alfa) + 256/2; y1 = 30 * cos(-alfa2) + 60 sin(alfa) + 192/2; x2 = 30 * cos(alfa) + 60 * sin(alfa2) + 256/2; y2 = 60 cos(alfa) + 30 * sin(alfa) + 192/2; x3 = 45 * cos(-alfa) + 45 * sin(alfa) + 256/2; y3 = 45 * cos(alfa2) + 45 sin(-alfa) + 192/2; x4 = 75 * cos(alfa) + 15 * sin(alfa2) + 256/2; y4 = 15 cos(-alfa) + 75 * sin(alfa2) + 192/2; x5 = 35 cos(alfa) + 10 * sin(alfa) + 256/2; y5 = 10 * cos(alfa2) + 35 sin(-alfa) + 192/2; x6 = 40 * cos(-alfa) + 30 * sin(alfa2) + 256/2; y6 = 40 cos(alfa) + 10 * sin(alfa) + 192/2; alfa++; // compare the pixel locations to eachother and the lookup table for(y=0; y<192; y++) { for(x=0; x<256; x++) { pixel = table[abs(y1-y)][abs(x1-x)] + table[abs(y2-y)][abs(x2-x)] + table[abs(y3-y)][abs(x3-x)] + table[abs(y4-y)][abs(x4-x)] + table[abs(y5-y)][abs(x5-x)] + table[abs(y6-y)][abs(x6-x)]; if(pixel>255)pixel=255; PA_Put8bitPixel(0,x,y,table[y][x]); //pixel } } PA_WaitForVBL(); } return 0; } // End of main() --v 8bit.h extern const int palette[256]; // 8 bit palette --v 8bit.c const unsigned int palette[256] __attribute__ ((aligned (4))) = { 32768,32768,32768,32768,32768,33792,33792,33792,33792,34816, 34816,34816,35840,35840,35840,35840,36864,36864,36864,36864, 37888,37888,37888,37888,38912,38912,38912,38912,39936,39936, 39936,39936,40960,40960,40960,40960,41984,41984,41984,41984, 43008,43008,43008,43008,44032,44032,44032,45056,45056,45056, 45056,46080,46080,46080,46080,46080,47104,47104,47104,48128, 48128,48128,48128,49152,49152,49152,49152,50176,50176,50176, 50176,50176,51200,51200,51200,51200,52224,52224,52224,52224, 53248,53248,53248,53248,54272,54272,54272,54272,55296,55296, 55296,55296,56320,56320,56320,56320,57344,57344,57344,57344, 58368,58368,58368,58368,59392,59392,59392,59392,59392,60416, 60416,60416,60416,61440,61440,61440,61440,62464,62464,62464, 62464,63488,63488,63488,63488,64512,64512,64544,64544,64576, 64576,64608,64608,64640,64640,64640,64672,64672,64704,64704, 64736,64736,64768,64768,64800,64800,64832,64832,64832,64864, 64864,64896,64896,64928,64928,64960,64960,64992,64992,65024, 65024,65024,65056,65056,65088,65088,65120,65120,65152,65152, 65184,65184,65216,65216,65248,65248,65248,65280,65280,65312, 65312,65344,65344,65376,65376,65408,65408,65440,65440,65472, 65472,65504,65504,65504,65505,65505,65506,65506,65507,65508, 65508,65508,65509,65509,65510,65511,65511,65512,65512,65512, 65513,65513,65514,65515,65515,65516,65516,65517,65517,65518, 65518,65519,65519,65520,65520,65520,65521,65521,65522,65522, 65523,65523,65524,65524,65525,65525,65526,65526,65527,65527, 65527,65528,65528,65529,65529,65530,65530,65531,65531,65532, 65532,65533,65533,65534,65534,65535}; --v -=-=- Check out my excellent homepage!
Mon, 13 Aug 2007, 04:48
spinal	I found this https://www.niksula.cs.hut.fi/~hkankaan/Homepages/metaballs.html it says its better for finding the edges than the above method, but its in python. I dont know python but I will try to convert it to blitz first. I might be back to complain in an hour or so... -=-=- Check out my excellent homepage!
Mon, 13 Aug 2007, 04:58
Jayenkai	Good luck!
Mon, 13 Aug 2007, 05:22
spinal	Python doesn't look too complicated (at first glance). \|edit\| I haven't got very far, but from what I can tell, its the same as the blitz code at the top. I'm going to give up. -=-=- Check out my excellent homepage!
Tue, 14 Aug 2007, 13:54
JL235	Just out of curiosity, I've just done a straight port of your code to Java. /* * Main.java * * Created on 14-Aug-2007, 19:30:48 * * To change this template, choose Tools \| Templates * and open the template in the editor. / package blobs; import llama.GraphicsWindow; import llama.GraphicsImage; /* * * @author Joe /; public class Main { /* * @param args the command line arguments / public static void main(String[] args) { new Main(); } private static final int WIDTH = 320; private static final int HEIGHT = 240; private static final int COMPONENTS = 4; private static final int RED = 0; private static final int GREEN = 1; private static final int BLUE = 2; private static final int ALPHA = 3; private GraphicsWindow g; private int[] pixels; /* Creates a new instance of Main / public Main() { g = new GraphicsWindow(WIDTH, HEIGHT, "Blobs"); GraphicsImage img = new GraphicsImage(WIDTH, HEIGHT, true); int[][] pallete = new int[3][256]; for (int i = 0; i <= 63; i++) { pallete[0][i] = 0; pallete[1][i] = 0; pallete[2][i] = i4; } for (int i = 0; i <= 127; i++) { pallete[0][i+64] = 0; pallete[1][i+64] = (i/2)4; pallete[2][i+64] = 634; } for (int i = 0; i <= 63; i++) { pallete[0][i+192] = i4; pallete[1][i+192] = 634; pallete[2][i+192] = 634; } int[][] table = new int[HEIGHT][WIDTH]; for (int y = 0; y < HEIGHT; y++) { for (int x = 0; x < WIDTH; x++) { if (x == 0 && y == 0) { table[y][x] = 255; } else { table[y][x] = (int)(9000000000.0 / (Math.sqrt(xx + yy) 7000000.0)); } } } double alfa = 0; double alfaIncriment = Math.toRadians(3); int x1, x2, x3, x4, x5, x6; int y1, y2, y3, y4, y5, y6; pixels = new int[COMPONENTSWIDTHHEIGHT]; FPS fps = new FPS(); while (g.isRunning()) { x1 = (int) (60 * Math.cos(alfa) + 30 * Math.sin(-alfa) + WIDTH/2); y1 = (int) (30 * Math.cos(-alfa2) + 60 Math.sin(alfa) + HEIGHT/2); x2 = (int) (30 * Math.cos(alfa) + 60 * Math.sin(alfa2) + WIDTH/2); y2 = (int) (60 Math.cos(alfa) + 30 * Math.sin(alfa) + HEIGHT/2); x3 = (int) (45 * Math.cos(-alfa) + 45 * Math.sin(alfa) + WIDTH/2); y3 = (int) (45 * Math.cos(alfa2) + 45 Math.sin(-alfa) + HEIGHT/2); x4 = (int) (75 * Math.cos(alfa) + 15 * Math.sin(alfa2) + WIDTH/2); y4 = (int) (15 Math.cos(-alfa) + 75 * Math.sin(alfa2) + HEIGHT/2); x5 = (int) (35 Math.cos(alfa) + 10 * Math.sin(alfa) + WIDTH/2); y5 = (int) (10 * Math.cos(alfa2) + 35 Math.sin(-alfa) + HEIGHT/2); x6 = (int) (40 * Math.cos(-alfa) + 30 * Math.sin(alfa2) + WIDTH/2); y6 = (int) (40 Math.cos(alfa) + 10 * Math.sin(alfa) + HEIGHT/2); alfa += alfaIncriment; for (int y = 0; y < HEIGHT; y++) { for (int x = 0; x < WIDTH; x++) { int pixel = table[Math.abs(y1-y)][Math.abs(x1-x)] + table[Math.abs(y2-y)][Math.abs(x2-x)] + table[Math.abs(y3-y)][Math.abs(x3-x)] + table[Math.abs(y4-y)][Math.abs(x4-x)] + table[Math.abs(y5-y)][Math.abs(x5-x)] + table[Math.abs(y6-y)][Math.abs(x6-x)]; if (pixel > 255) pixel = 255; setPixel(x, y, RED, pallete[RED][pixel]); setPixel(x, y, GREEN, pallete[GREEN][pixel]); setPixel(x, y, BLUE, pallete[BLUE][pixel]); setPixel(x, y, ALPHA, 255); } } img.getAwtImage().getRaster().setPixels(0, 0, WIDTH, HEIGHT, pixels); g.clear(); g.drawImage(img, 0, 0); fps.count(); fps.draw(g); g.flip(); } } private void setPixel(int x, int y, int component, int color) { pixels[xCOMPONENTS + yWIDTH*COMPONENTS + component] = color; } private void setPixel(int x, int y, int color) { setPixel(x, y, RED, color >> 16 & 0xff); setPixel(x, y, GREEN, color >> 8 & 0xff); setPixel(x, y, BLUE, color & 0xff); } } --v As I'm just replacing the pixels in the image with my own array rather then drawing to the surface of the image, it is over twice the speed of the Blitz version and three times faster if I disable the alpha component in the image.
Wed, 15 Aug 2007, 04:09
spinal	Java, eh.... how would I go about running that? also, I tracked the emulator crash to the following line, PA_Put8bitPixel(0,x,y,x); Perhaps it doesn't like being called so often/quickly. Looks like I'll have to find the 'proper' way to put a pixel on the ds. -=-=- Check out my excellent homepage!
Wed, 15 Aug 2007, 06:22
mike_g	It shouldent be too hard to port back to C again. The emulator shouldent crash tho no matter how many times you call PA_Put8bitPixel(), so theres probably something you are doing wrong with it. Perhaps drawing outside of the buffer? That could cause the program to crash. Like diablo said its faster reading from, and drawing to an array then an image surface. I now tend to make a screen array, do all the drawing stuff to that, then to render just copy the array to the screen buffer.
Fri, 17 Aug 2007, 01:00
Afr0	The emulator shouldent crash tho no matter how many times you call PA_Put8bitPixel(), so theres probably something you are doing wrong with it. Actually, yes. He might be looking at a buffer/memory overflow, or perhaps even stack overflow. To test this he should decrease the range of his for-loop, or maybe even while loop (to check if the cause could be elsewhere). -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Fri, 17 Aug 2007, 03:42
spinal	I got it working (mostly) I will post it later. The only think is I think the sin/cos are using radians, not degrees. I will have to try to remember how to convert them, deg*180/Pi or something like that. -=-=- Check out my excellent homepage!
Fri, 17 Aug 2007, 06:06
JL235	Is there not a maths library you could use? Most have a toRadians and toDegrees methods.
Fri, 17 Aug 2007, 06:44
Jayenkai	int isin[360]; for (n=0;n<360;n++) { isin[n]=sin(n*PI/180); } --v ^ That's what I used, anyway! -=-=- ''Load, Next List!''
Fri, 17 Aug 2007, 07:13
mike_g	Or you could cut out some of the extra maths: #define DEG_TO_RAD 0.0174532925 ... ... ... angle *= DEG_TO_RAD; --v \|edit\| Actually, I dident realise jays code made a look up table. That would be faster \|edit\| Actually, yes. He might be looking at a buffer/memory overflow, or perhaps even stack overflow. To test this he should decrease the range of his for-loop, or maybe even while loop (to check if the cause could be elsewhere). Sorry but I dont see how a write pixel function on its own can blow the stack.
Sun, 19 Aug 2007, 17:22
spinal	ok, here is the working C ds version, use the 8bit.c and 8bit.h from the post higher up. remember this is for palib, so only the amr9 code is here. \|edit\| the resolution is halved cos its quite slow. // Includes #include <PA9.h> // Include for PA_Lib #include <math.h> // for sin/cos (and sqrt i think) #include <stdlib.h> // for abs #include "8bit.h" // palette int width=256; int height=1922; int table[1922][256]; int x,y; float alfa; // Function: main() int main(int argc, char ** argv) { PA_Init(); // Initializes PA_Lib PA_InitVBL(); // Initializes a standard VBL PA_InitText(1,3); PA_Init8bitBg(0,3); PA_Init8bitBg(1,3); // Let's put some colors... in the background palettes int i; for(i=0; i<255; i++) { PA_SetBgPalCol(0, i, palette[i]); PA_SetBgPalCol(1, i, palette[i]); } for(y=0; y<height; y++){ for(x=0; x<width; x++){ if(x==0 && y==0){ table[y][x]=254; PA_Put8bitPixel(1,x,y,table[y][x]); } else{ table[y][x]=(9000 / (sqrt(xx + yy) * 7)); if (table[y][x] > 254) table[y][x] = 254; if (table[y][x] < 0) table[y][x] = 0; if(y<192)PA_Put8bitPixel(1,x,y,table[y][x]); if(y>=192)PA_Put8bitPixel(0,x,y-192,table[y][x]); } } } int x1,x2,x3,x4,x5,x6; int y1,y2,y3,y4,y5,y6; int beta; while (1) { x1 = (60 * cos(alfa) + 30 * sin(-alfa) + width/2); y1 = (30 * cos(-alfa2) + 60 sin(alfa) + height/2); x2 = (30 * cos(alfa) + 60 * sin(alfa2) + width/2); y2 = (60 cos(alfa) + 30 * sin(alfa) + height/2); x3 = (40 * cos(-alfa) + 40 * sin(alfa) + width/2); y3 = (40 * cos(alfa2) + 40 sin(-alfa) + height/2); x4 = (70 * cos(alfa) + 10 * sin(alfa2) + width/2); y4 = (10 cos(-alfa) + 70 * sin(alfa2) + height/2); x5 = (30 cos(alfa) + 10 * sin(alfa) + width/2); y5 = (10 * cos(alfa2) + 30 sin(-alfa) + height/2); x6 = (40 * cos(-alfa) + 30 * sin(alfa2) + width/2); y6 = (40 cos(alfa) + 10 * sin(alfa) + height/2); beta += 3; if(beta>360)beta=0; alfa = beta0.017453293; // = degrees 1 radian for(y = 0; y < height; y+=2) { for(x = 0; x < width; x+=2) { int pixel = table[abs(y1-y)][abs(x1-x)] + table[abs(y2-y)][abs(x2-x)] + table[abs(y3-y)][abs(x3-x)] + table[abs(y4-y)][abs(x4-x)] + table[abs(y5-y)][abs(x5-x)] + table[abs(y6-y)][abs(x6-x)]; if (pixel > 254) pixel = 254; if(y<192) { PA_Put8bitPixel(1,x,y,pixel); PA_Put8bitPixel(1,x+1,y,pixel); PA_Put8bitPixel(1,x,y+1,pixel); PA_Put8bitPixel(1,x+1,y+1,pixel); } if(y>=192) { PA_Put8bitPixel(0,x,y-192,pixel); PA_Put8bitPixel(0,x+1,y-192,pixel); PA_Put8bitPixel(0,x,y-191,pixel); PA_Put8bitPixel(0,x+1,y-191,pixel); } } } PA_WaitForVBL(); } return 0; } // End of main() --v hope someone finds it useful. \|edit\| All I need to do now, is find a blitz version of the flurry screensaver... -=-=- Check out my excellent homepage!
Sun, 19 Aug 2007, 17:25
JL235	One cheat you can do is to only draw if the pixel variable is above a certain value. This means very dark pixels are skipped and adds a small speed boost. I tried it in my Java version, and it's not too bad.
Mon, 20 Aug 2007, 02:27
spinal	the next version is going to do that, also it will use sprites. I'm going to only render each point -15 to +15. I had it working a couple of days ago, but I killed it -=-=- Check out my excellent homepage!
Sun, 17 Oct 2010, 08:12
spinal	Here's a good question, If you take the fist code, remove all but three of the points, can anyone think of a good way to make each point a different colour? AppTitle "Blobs" Const ScreenWidth=320 Const ScreenHeight=240 Graphics ScreenWidth, ScreenHeight,0,3 SetBuffer BackBuffer() Flip Dim Palette(255) Dim table(ScreenHeight,ScreenWidth) For x=0 To 255: Color x,x,x :Line x,0,x,2 : Palette(x)=ReadPixel (x,0):Next Cls For y=0 To ScreenHeight For x=0 To ScreenWidth If (x=0 And y=0) table(y,x)=255 Else table(y,x)=(9000000000.0 / (Sqr(xx + yy) * 7000000.0)) EndIf Next Next Repeat x1 = 60 * Cos (alfa) + 30 * Sin (-alfa) + ScreenWidth/2 y1 = 30 * Cos (-alfa2) + 60 Sin (alfa) + ScreenHeight/2 x2 = 30 * Cos (alfa) + 60 * Sin (alfa2) + ScreenWidth/2 y2 = 60 Cos (alfa) + 30 * Sin (alfa) + ScreenHeight/2 x3 = 45 * Cos (-alfa) + 45 * Sin (alfa) + ScreenWidth/2 y3 = 45 * Cos (alfa2) + 45 Sin (-alfa) + ScreenHeight/2 ;x4 = 75 * Cos (alfa) + 15 * Sin (alfa2) + ScreenWidth/2 ;y4 = 15 Cos (-alfa) + 75 * Sin (alfa2) + ScreenHeight/2 ;x5 = 35 Cos (alfa) + 10 * Sin (alfa) + ScreenWidth/2 ;y5 = 10 * Cos (alfa2) + 35 Sin (-alfa) + ScreenHeight/2 ;x6 = 40 * Cos (-alfa) + 30 * Sin (alfa2) + ScreenWidth/2 ;y6 = 40 Cos (alfa) + 10 * Sin (alfa) + ScreenHeight/2 alfa=alfa+2 LockBuffer For y=0 To ScreenHeight For x=0 To ScreenWidth pixel=table(Abs(y1-y),Abs(x1-x)) pixel=pixel+table(Abs(y2-y),Abs(x2-x)) pixel=pixel+table(Abs(y3-y),Abs(x3-x)) ;pixel=pixel+table(Abs(y4-y),Abs(x4-x)) ;pixel=pixel+table(Abs(y5-y),Abs(x5-x)) ;pixel=pixel+table(Abs(y6-y),Abs(x6-x)) If pixel>255 Then pixel=255 WritePixelFast x,y,palette(pixel) Next Next UnlockBuffer Flip Until GetKey()<>0 Or GetMouse()<>0 End --v -=-=- Check out my excellent homepage!
Sun, 17 Oct 2010, 08:30
Jayenkai	AppTitle "Blobs" Const ScreenWidth=320 Const ScreenHeight=240 Graphics ScreenWidth, ScreenHeight,0,3 SetBuffer BackBuffer() Flip Dim Palette(255) Dim table(ScreenHeight,ScreenWidth) For x=0 To 255: Color x,x,x :Line x,0,x,2 : Palette(x)=ReadPixel (x,0):Next Cls For y=0 To ScreenHeight For x=0 To ScreenWidth If (x=0 And y=0) table(y,x)=255 Else table(y,x)=(9000000000.0 / (Sqr(xx + yy) * 7000000.0)) EndIf Next Next Repeat x1 = 60 * Cos (alfa) + 30 * Sin (-alfa) + ScreenWidth/2 y1 = 30 * Cos (-alfa2) + 60 Sin (alfa) + ScreenHeight/2 x2 = 30 * Cos (alfa) + 60 * Sin (alfa2) + ScreenWidth/2 y2 = 60 Cos (alfa) + 30 * Sin (alfa) + ScreenHeight/2 x3 = 45 * Cos (-alfa) + 45 * Sin (alfa) + ScreenWidth/2 y3 = 45 * Cos (alfa2) + 45 Sin (-alfa) + ScreenHeight/2 ;x4 = 75 * Cos (alfa) + 15 * Sin (alfa2) + ScreenWidth/2 ;y4 = 15 Cos (-alfa) + 75 * Sin (alfa2) + ScreenHeight/2 ;x5 = 35 Cos (alfa) + 10 * Sin (alfa) + ScreenWidth/2 ;y5 = 10 * Cos (alfa2) + 35 Sin (-alfa) + ScreenHeight/2 ;x6 = 40 * Cos (-alfa) + 30 * Sin (alfa2) + ScreenWidth/2 ;y6 = 40 Cos (alfa) + 10 * Sin (alfa) + ScreenHeight/2 alfa=alfa+2 LockBuffer For y=0 To ScreenHeight For x=0 To ScreenWidth this=table(Abs(y1-y),Abs(x1-x)):If this>255 Then this=255 tricolor=this pixel=table(Abs(y1-y),Abs(x1-x)) this=table(Abs(y2-y),Abs(x2-x)):If this>255 Then this=255 tricolor=tricolor+(this Shl 8) pixel=pixel+table(Abs(y2-y),Abs(x2-x)) this=table(Abs(y3-y),Abs(x3-x)):If this>255 Then this=255 tricolor=tricolor+(this Shl 16) pixel=pixel+table(Abs(y3-y),Abs(x3-x)) ;pixel=pixel+table(Abs(y4-y),Abs(x4-x)) ;pixel=pixel+table(Abs(y5-y),Abs(x5-x)) ;pixel=pixel+table(Abs(y6-y),Abs(x6-x)) If pixel>255 Then pixel=255 ;WritePixelFast x,y,palette(pixel) WritePixelFast x,y,(255 Shl 24)+tricolor Next Next UnlockBuffer Flip Until GetKey()<>0 Or GetMouse()<>0 End --v All tweaks are done in the bottommost for x/y loop.. -=-=- ''Load, Next List!''
Sun, 17 Oct 2010, 08:43
spinal	Well, that was... fast! Many thanks Jay! \|edit\| I assume adding a 4th colour would completely f*ck everything up? -=-=- Check out my excellent homepage!
Sun, 17 Oct 2010, 09:36
spinal	wait a second... they don't blob together any more -=-=- Check out my excellent homepage!
Sun, 17 Oct 2010, 09:38
Jayenkai	Yeah, well, they're different colours! What you'd need to do is do "Red = Red full + bit of green + bit of blue", and so on. Then they'll "blob" a wee bit more.. -=-=- ''Load, Next List!''