Roberto Blanco wrote:

> Don't bother, it's just so simple... I only play with maths, but I guess

> I can upgrade it to help you with you maths classes. ;P I attach the

> last version. I'll work hard on the graphics. =P



The keyword is:



	LINE (x1,y1)-(x2,y2)



Then you have to insert a:



	SCREEN 13



...in front and an equation to calculate all the required points would

be ok too.



> > Try what's attached. That's what I thought you should be doing. =P The

> > program does nothing, just puts a nice-looking splat on the screen. I

> > made it a loooong time ago.

> 

> Beautiful!! And far too complex for my current skills I'm afraid. I need

> to learn the instructions first, then I'll be able to go further. I'm

> already analyzing your artwork, tho. =P



Let me help you there:



	DEFINT A-Z



Indicates that all the variables used are intigers. This makes the

program run faster on 80x86s.



	RANDOMIZE 1



Innit the random number generator with seed "1".



	SCREEN 13



Switch screenmode to the graphical kind that supports drawing in 256

colours.



	i = 1

	max = 30

	af = 160

	BF = 100



Sets some innitial values.



	FOR g = 0 TO 200

	FOR a = 0 TO 320 STEP g + 1 + RND * 2



The FOR...NEXT loops. You really have to check out these!! In the above

case, there is a loop that counts variable "g" values to everything from

0 to 200 and "a" from 0 to 320. This just happens to be all there is to

graphical coordinates on the screen (sweeps trough the screen). The mess

with "STEP" is a little randomization factor that makes the thing look

nicer.



	LINE (af, BF)-(a, g), (g / 5) + 35

	CIRCLE (g, a), g / 20, (g + 1) MOD (a + 1)



Draw lines and circles, nothing special. A little randomization maths

here too.



	NEXT a

	NEXT g



This way we close the FOR...NEXT loops.



	FOR a = 1 TO 320 STEP 2

	FOR b = 1 TO 200 STEP 2

	PSET (a + RND * 2, b + RND * 2), (a MOD b)

	NEXT b

	NEXT a



Another such. This one uses "STEP 2" to only access every second pixel

on the screen.



	SLEEP 1



Wait a second.



	FOR a = 0 TO 320

	FOR b = 0 TO 200



Fammiliar FOR...NEXT loop that sweeps trough every pixel on the screen.



	LINE (a, b)-(a + i - 1, b + i - 1), e, BF



Overlay the existand picture with the newly calculated pixel.



	IF e < POINT(a - i, b) THEN e = e + 1

	IF e > POINT(a - i, b) THEN e = e - 1

	IF e < POINT(a + i, b) THEN e = e + 1

	IF e > POINT(a + i, b) THEN e = e - 1

	IF e < POINT(a, b + i) THEN e = e + 1

	IF e > POINT(a, b + i) THEN e = e - 1



Calculate the new pixel for the next cycle for the LINE above. Fire

effect.



	x = x + 1: IF x = i THEN e = e - 1: x = 0



Make sure the fire doesn't burn too bright.



	IF e < 32 THEN e = 32 + RND * 3

	IF e > 50 THEN e = 50 - RND * 3



Make sure we are never drawing in any other colours than from blue to

green + add some randomization to make it look nicer



	NEXT b

	NEXT a



Finnish the FOR...NEXT loops.



	SLEEP 0



Wait for the user to press a button.



	SYSTEM



Return to system.



> > Oh, that was that. =] I picked you up sometime around 23:00 o'clock.

> 

> Yes, that was the time. I kept awake until midnight to give you time to

> fall asleep. Did you felt something? =]



<bold look> How did you know I was awake?!



> Obeying your commands is easy for me! I will, I think I can't today,

> tho. And not having hard stuff makes me feel lazy, I have to do

> something... ;P



That's ok. We all have our human environments.



> > I remember that, but a "natural Beta" is a whole lot diffirent. LOL. =]

> 

> LOL. Right. And the comparison is totally different too. A human... and

> our doggie! ;]



Rob is the perfect Beta. I really feel Alphaic about him and he will

never chalenge that because he doesn't want to be an Alpha. LOL. So

nice. =]



Anyway, I'm thinking of handing over the Alpha title if you wish to

accept it... I'm mentaly exausted.



-- 

I could run like the wind just to be with you.



C'ya!



--

Cellphone: 0038640809676 (SMS enabled)



Don't feel bad about asking/telling me anything, I will always gladly

reply.

[AC/HFA(AS) -- no suprize]



Digging for info? Try AI Meta Search:

Http://WWW.AIMetaSearch.Com



MesonAI -- If nobody else wants to do it, why shouldn't we?(TM)

Http://WWW.MesonAI.Com

