Code archives/Miscellaneous/More 'traditional' looking smiley face.

Hahaha thats pretty cool its looks like a perfect smiley face. Nice work, I'm sure someone will find a use for it!

If it hadn't been for rich d's comment I would never have looked at this...

Nicely done :)

If it hadn't been for Andy A's comment I would never have looked at this. Probably better than I could do with an art package.

Heh, this is so good I'm claiming it as mine.

Wow ! That's fantastic !

And you know what Tranz, my favorite musics are ACID and NEW BEAT... so, it remembers me the 89'...

8)

Aceeeeeeeeed!!!!

Wow, that's really good.

That is good.

Wrapped in blitzmaxese :

Graphics 800,600,32,2
SetClsColor 0,178,235				
Cls

Color 0,182,239
Oval 149,49,592,592

Color 0,173,229
Oval 150,50,590,590

Color 0,166,219
Oval 151,51,588,588

Color 0,159,210
Oval 152,52,586,586

Color 0,146,193
Oval 153,53,584,584

Color 0,128,164
Oval 154,54,582,582

Color 0,0,0
Oval 100,0,600,600
		
Color 157,100,5
Oval 105,5,590,590		
		
Color 181,132,3
Oval 107,7,586,586

Color 222,183,1
Oval 109,9,582,582

Color 236,200,1
Oval 111,11,578,578		
		
Color 249,217,0
Oval 113,13,574,574

Color 0,0,0
Oval 200,100,400,400
		
Color 249,217,0
Oval 195,70,410,410

Color 0,0,0
Oval 290,152,57,125
Oval 453,152,57,125
Oval 180,290,54,45

Color 157,100,5
Oval 180,287,54,45		
		
Color 181,132,3
Oval 180,286,54,45

Color 222,183,1
Oval 180,285,54,45

Color 236,200,1
Oval 180,284,54,45		
		
Color 249,217,0
Oval 180,283,54,45

Color 0,0,0
Oval 565,290,54,45

Color 157,100,5
Oval 565,287,54,45		
		
Color 181,132,3
Oval 565,286,54,45

Color 222,183,1
Oval 565,285,54,45

Color 236,200,1
Oval 565,284,54,45		
		
Color 249,217,0
Oval 565,283,54,45
Color 204,204,204
Oval 321,173,16,40
Oval 484,173,16,40

Color 255,255,255
Oval 323,176,12,34
Oval 486,176,12,34
Flip		
WaitKey

Function oval(fromx:Int,fromy:Int,tox:Int,Toy:Int)
  DrawOval fromx,fromy,tox,toy
End Function

Function color(r:Int,g:Int,b:Int)
   SetColor r,g,b
End Function

Wow...

Nice!

Converted into a BlitzMax function (so that you can specify width/height):

Graphics 800,600,32,2
SetClsColor 0,178,235
SetBlend ALPHABLEND
Cls
DrawSmileyFace(100,100)
Flip
WaitKey


Function DrawSmileyFace(w:Float,h:Float)
	
	w:/800;h:/600
	
	SetColor 0,182,239
	DrawOval 149*w,49*h,592*w,592*h
	
	SetColor 0,173,229
	DrawOval 150*w,50*h,590*w,590*h
	
	SetColor 0,166,219
	DrawOval 151*w,51*h,588*w,588*h
	
	SetColor 0,159,210
	DrawOval 152*w,52*h,586*w,586*h
	
	SetColor 0,146,193
	DrawOval 153*w,53*h,584*w,584*h
	
	SetColor 0,128,164
	DrawOval 154*w,54*h,582*w,582*h
	
	SetColor 0,0,0
	DrawOval 100*w,0*h,600*w,600*h
	
	SetColor 157,100,5
	DrawOval 105*w,5*h,590*w,590*h
	
	SetColor 181,132,3
	DrawOval 107*w,7*h,586*w,586*h
	
	SetColor 222,183,1
	DrawOval 109*w,9*h,582*w,582*h
	
	SetColor 236,200,1
	DrawOval 111*w,11*h,578*w,578*h
	
	SetColor 249,217,0
	DrawOval 113*w,13*h,574*w,574*h
	
	SetColor 0,0,0
	DrawOval 200*w,100*h,400*w,400*h
	
	SetColor 249,217,0
	DrawOval 195*w,70*h,410*w,410*h
	
	SetColor 0,0,0
	DrawOval 290*w,152*h,57*w,125*h
	DrawOval 453*w,152*h,57*w,125*h
	DrawOval 180*w,290*h,54*w,45*h
	
	SetColor 157,100,5
	DrawOval 180*w,287*h,54*w,45*h
	
	SetColor 181,132,3
	DrawOval 180*w,286*h,54*w,45*h
	
	SetColor 222,183,1
	DrawOval 180*w,285*h,54*w,45*h
	
	SetColor 236,200,1
	DrawOval 180*w,284*h,54*w,45*h
	
	SetColor 249,217,0
	DrawOval 180*w,283*h,54*w,45*h
	
	SetColor 0,0,0
	DrawOval 565*w,290*h,54*w,45*h
	
	SetColor 157,100,5
	DrawOval 565*w,287*h,54*w,45*h
	
	SetColor 181,132,3
	DrawOval 565*w,286*h,54*w,45*h
	
	SetColor 222,183,1
	DrawOval 565*w,285*h,54*w,45*h
	
	SetColor 236,200,1
	DrawOval 565*w,284*h,54*w,45*h
	
	SetColor 249,217,0
	DrawOval 565*w,283*h,54*w,45*h
	SetColor 204,204,204
	DrawOval 321*w,173*h,16*w,40*h
	DrawOval 484*w,173*h,16*w,40*h
	
	SetColor 255,255,255
	DrawOval 323*w,176*h,12*w,34*h
	DrawOval 486*w,176*h,12*w,34*h

EndFunction

Here is a real-time, zero-time, exe version of mine.

:)

It's sideways due to the rendering method - with mine there is no code, so I had to use the most efficient method. Notice the lighting effect and also the fact that I coded a shader into my real-time, zero-time, version.

Yeh, it's somewhat advanced; however, it's my gift to the community. I have to throw the odd bone or two during my many visits, or else how are you lot going to catch up.


Four years ago, I stunned the world with this little gem:


http://www.blitzbasic.com/Community/posts.php?topic=37444

I totally owned.


Then of course there was my chair:


http://www.blitzbasic.com/Community/posts.php?topic=37844#418240

Yeh, more ownership.

Amusing. I mean both smilies.