What is the name of the horse that is in FB logo??

For other topics related to the FreeBASIC project or its community.
ike
Posts: 383
Joined: Jan 17, 2011 18:59

What is the name of the horse that is in FB logo??

Postby ike » Feb 16, 2013 0:40

What is the name of the horse that is in FB logo??

http://www.horsemart.co.uk/horse_advice ... names/1697

Below is a list of the top horse names.
1. Star
2. Dakota
3. Spirit
4. Cheyenne
5. Misty
6. Cowboy
7. Blaze
8. Lucky
9. Chief
10. Stormy
11. Gypsy
12. Toby
13. Buddy
14. Honey
15. Duke
16. Rocky
17. Lady
18. Sugar
19. Jake
20. Rusty
Pritchard
Posts: 5492
Joined: Sep 12, 2005 20:06
Location: Ohio, USA

Re: What is the name of the horse that is in FB logo??

Postby Pritchard » Feb 16, 2013 3:09

BASIC Bessy.
jevans4949
Posts: 1148
Joined: May 08, 2006 21:58
Location: Crewe, England

Re: What is the name of the horse that is in FB logo??

Postby jevans4949 » Feb 16, 2013 12:58

In the EU we call it Lasagne.
D.J.Peters
Posts: 7852
Joined: May 28, 2005 3:28

Re: What is the name of the horse that is in FB logo??

Postby D.J.Peters » Feb 16, 2013 14:26

jevans4949 wrote:In the EU we call it Lasagne.
:lol:
Jonge
Posts: 129
Joined: Jul 17, 2012 17:51
Location: Norway
Contact:

Re: What is the name of the horse that is in FB logo??

Postby Jonge » Feb 16, 2013 17:47

jevans4949 wrote:In the EU we call it Lasagne.

Haha =)
dodicat
Posts: 6018
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: What is the name of the horse that is in FB logo??

Postby dodicat » Feb 16, 2013 20:22

He was born in a stable and is worshipped by millions.
Red Rum.
But there can only be one Red Rum, so I'm up in the air with this one:

Code: Select all

#include "fbgfx.bi"
Screen 20,32,1,fb.GFX_ALPHA_PRIMITIVES
Dim Shared As Integer xres,yres
Screeninfo xres,yres
Dim Shared np(1 To 4) As Double
Sub rotate(Byval pivot_x As Double,_   
Byval pivot_y As Double,_
Byval first_x As Double,_   
Byval first_y As Double,_
Byval second_x As Double, _ 
Byval second_y As Double, _   
Byval arc_1 As Double,_       
Byval arc_2 As Double,_
Byval angle As Double, _   
Byval magnifier As Double,_
Byval dilator As Double,_
Byval colour As Integer,_
Byval thickness As Double,_
Byref shape As String,_
image As Any Pointer=0)
shape=Lcase$(shape)     
Dim p As Double = 4*Atn(1) 
Dim radians As Double
Dim line_xvector As Double
Dim line_yvector As Double
Dim pivot_xvector As Double
Dim pivot_yvector As Double
Dim th As Double
th=thickness
Dim sx As Double=second_x
angle=angle Mod 360
radians=(2*p/360)*angle   
#Macro thickline(t)
Dim As Double s,h,c
Dim As Uinteger prime=Rgb(255,255,255)
h=Sqr(((np(1))-(np(3)))^2+((np(2))-(np(4)))^2)
s=((np(4))-np(2))/h
c=(np(1)-(np(3)))/h
Line image, (np(3)+s*t/2,np(4)+c*t/2)-(np(1)+s*t/2,np(2)+c*t/2),prime
Line image, (np(3)-s*t/2,np(4)-c*t/2)-(np(1)-s*t/2,np(2)-c*t/2),prime
Line image, (np(3)+s*t/2,np(4)+c*t/2)-(np(3)-s*t/2,np(4)-c*t/2),prime
Line image, (np(1)+s*t/2,np(2)+c*t/2)-(np(1)-s*t/2,np(2)-c*t/2),prime
Paint image,((np(3)+np(1))/2, (np(4)+np(2))/2),prime,prime
Line image, (np(3)+s*t/2,np(4)+c*t/2)-(np(1)+s*t/2,np(2)+c*t/2),colour
Line image, (np(3)-s*t/2,np(4)-c*t/2)-(np(1)-s*t/2,np(2)-c*t/2),colour
Line image, (np(3)+s*t/2,np(4)+c*t/2)-(np(3)-s*t/2,np(4)-c*t/2),colour
Line image, (np(1)+s*t/2,np(2)+c*t/2)-(np(1)-s*t/2,np(2)-c*t/2),colour
Paint image,((np(3)+np(1))/2, (np(4)+np(2))/2), colour, colour
#EndMacro
#macro thickcircle(t)
Dim As Uinteger prime=Rgb(255,255,255)
Dim As Double xp1,xp2,yp1,yp2
Dim arc1 As Double=arc_1*p/180
Dim arc2 As Double=arc_2*p/180
arc1=2*p+(arc1-(radians))
arc2=2*p+(arc2-(radians))
sx=sx*magnifier
If arc1=arc2 Then
Circle image,(np(3),np(4)),sx+t/2,prime,,,second_y
Circle image,(np(3),np(4)),sx-t/2,prime,,,second_y
Paint image,(np(3),np(4)+sx),prime,prime
Paint image,(np(3)+sx,np(4)),prime,prime
Circle image,(np(3),np(4)),sx+t/2,colour,,,second_y
Circle image,(np(3),np(4)),sx-t/2,colour,,,second_y
Paint image,(np(3),np(4)+sx),colour,colour
Paint image,(np(3)+sx,np(4)),colour,colour
End If
If arc1<>arc2 Then
xp1=np(3)+(sx)*Cos(.5*(arc2+arc1))
yp1=np(4)-(sx)*Sin(.5*(arc2+arc1))
Circle image,(np(3),np(4)),sx+t/2,prime,arc1,arc2,second_y
Circle image,(np(3),np(4)),sx-t/2,prime,arc1,arc2,second_y
Line image,(np(3)+(sx+t/2)*Cos(arc1),np(4)-(sx+t/2)*Sin(arc1))-(np(3)+(sx-t/2)*Cos(arc1),np(4)-(sx-t/2)*Sin(arc1)),prime
Line image,(np(3)+(sx+t/2)*Cos(arc2),np(4)-(sx+t/2)*Sin(arc2))-(np(3)+(sx-t/2)*Cos(arc2),np(4)-(sx-t/2)*Sin(arc2)),prime
Paint image,(xp1,yp1),prime,prime
Circle image,(np(3),np(4)),sx+t/2,colour,arc1,arc2,second_y
Circle image,(np(3),np(4)),sx-t/2,colour,arc1,arc2,second_y
Line image,(np(3)+(sx+t/2)*Cos(arc1),np(4)-(sx+t/2)*Sin(arc1))-(np(3)+(sx-t/2)*Cos(arc1),np(4)-(sx-t/2)*Sin(arc1)),colour
Line image,(np(3)+(sx+t/2)*Cos(arc2),np(4)-(sx+t/2)*Sin(arc2))-(np(3)+(sx-t/2)*Cos(arc2),np(4)-(sx-t/2)*Sin(arc2)),colour
Paint image,(xp1,yp1),colour,colour
End If
#endmacro
magnifier=dilator*magnifier     
pivot_xvector=first_x-pivot_x
pivot_yvector=first_y-pivot_y
pivot_xvector=dilator*pivot_xvector 
pivot_yvector=dilator*pivot_yvector
Dim mover(1 To 2,1 To 2) As Double
Dim new_pos(1 To 2) As Double
mover(1,1)=Cos(radians)
mover(2,2)=Cos(radians)
mover(1,2)=-Sin(radians)
mover(2,1)=Sin(radians)
line_xvector=magnifier*(second_x-first_x)         
line_yvector=magnifier*(second_y-first_y)             
new_pos(1)=mover(1,1)*pivot_xvector+mover(1,2)*pivot_yvector +pivot_x
new_pos(2)=mover(2,1)*pivot_xvector+mover(2,2)*pivot_yvector +pivot_y
Dim new_one(1 To 2) As Double       
new_one(1)=mover(1,1)*line_xvector+mover(1,2)*line_yvector +first_x
new_one(2)=mover(2,1)*line_xvector+mover(2,2)*line_yvector +first_y
Dim xx As Double   
Dim yy As Double
xx=first_x-new_pos(1)
yy=first_y-new_pos(2)
np(1)=new_one(1)-xx 
np(2)=new_one(2)-yy   
np(3)=first_x-xx
np(4)=first_y-yy
Select Case shape
Case "line"
If th<2 Then
Line image,(np(3),np(4))-(np(1),np(2)),colour
Else
thickline(th)   
End If
Case "circle"
Dim arc1 As Double=arc_1*p/180
Dim arc2 As Double=arc_2*p/180
If arc1=arc2 Then
If th<=3 Then
For n As Double=magnifier*sx-1 To magnifier*sx+1 Step .5
Circle image,(np(3),np(4)),n,colour,,,second_y       
Next n
Else
thickcircle(th)
End If
Endif
If arc1<>arc2 Then
If th<=3 Then
arc1=2*p+(arc1-(radians))
arc2=2*p+(arc2-(radians))
For n As Double=magnifier*sx-1 To magnifier*sx+1 Step .5
Circle image,(np(3),np(4)),n,colour,arc1,arc2,second_y   
Next n
Else
thickcircle(th)
End If
End If
Case "circlefill"
Dim As Double xp1,xp2,yp1,yp2
Dim As Uinteger prime=Rgb(255,255,255)
Dim arc1 As Double=arc_1*p/180
Dim arc2 As Double=arc_2*p/180
If arc1=arc2 Then Circle image,(np(3),np(4)),magnifier*sx,colour,,,second_y,F
If arc1<>arc2 Then
xp1=np(3)+magnifier*sx*Cos(.5*(arc2+arc1))*3/4
yp1=np(4)-magnifier*sx*Sin(.5*(arc2+arc1))*3/4   
Circle image,(np(3),np(4)),magnifier*sx,prime,arc1,arc2,second_y
Line image,(np(3),np(4))-(np(3)+magnifier*sx*Cos(arc2),np(4)-magnifier*sx*Sin(arc2)),prime
Line image,(np(3),np(4))-(np(3)+magnifier*sx*Cos(arc1),np(4)-magnifier*sx*Sin(arc1)),prime
Paint image,(xp1,yp1),prime,prime
Circle image,(np(3),np(4)),magnifier*sx,colour,arc1,arc2,second_y
Line image,(np(3),np(4))-(np(3)+magnifier*sx*Cos(arc2),np(4)-magnifier*sx*Sin(arc2)),colour
Line image,(np(3),np(4))-(np(3)+magnifier*sx*Cos(arc1),np(4)-magnifier*sx*Sin(arc1)),colour
Paint image,(xp1,yp1),colour,colour
End If
Case"box"
Line image,(np(3),np(4))-(np(1),np(2)),colour,b
Case "boxfill"
Line image,(np(3),np(4))-(np(1),np(2)),colour,bf
Case "linepoint","circlepoint"
Case "linepointset","circlepointset"
If shape="linepointset" Then
Pset image,(np(1),np(2)),colour
Pset image,(np(3),np(4)),colour
Endif
If shape="circlepointset" Then
Pset image,(np(3),np(4)),colour
End If
Case Else
Print "unknown rotation shape"
End Select
End Sub
Dim Shared As Double next_x,next_y
Sub paintstring(x As Double,_
y As Double,_
s As String,_
size As Double,_
c As Uinteger,_
line_angle As Double=0,_
char_angle As Double=0,_
thickness_tweak As Double=1,_
image As Any Pointer=0)
Dim l As Integer=Len(s)
Dim px As Double=16*size+x
y=y+16*size
Dim py As Double=y
Dim z As Integer=0
Dim th As Double
th=((.5-size)/4.5+5)*thickness_tweak
Dim sp As Double=6
Dim sp2 As Double=6
Dim pi As Double=4*Atn(1)
Dim la As Double=(line_angle *.5)
Dim ca As Double=(char_angle*.5)
sp2=sp2+30*Abs(Sin(ca*pi/180-la*pi/180))
#macro set(x1,y1,x2,y2,sarc,earc,shape,im)
rotate(px,py,x1,y1,x2,y2,sarc,earc,-char_angle,1,size,c,th*size,shape,im)
#endmacro
#macro spaces(xpixels,ypixels)
px=px+(xpixels*size+sp2*size)*Cos(line_angle*pi/180)
py=py-(ypixels*size+sp2*size)*Sin(line_angle*pi/180)
next_x=px-16*size
next_y=py-16*size
#endmacro
For n As Integer=1 To l
Select Case Mid$(s,n,1)
Case " "
spaces(30,30)
Case "|"
z=z+1
px=(x+16*size+z*16*Sin(line_angle*pi/180))+1.3*z*(24*size+size*sp*size)*Sin(line_angle*pi/180)
py=(y+z*16*Cos(line_angle*pi/180))+1.3*z*(24*size+size*sp*size)*Cos(line_angle*pi/180)
next_x=px-16*size
next_y=py-16*size


Case "."
set(px-12,py+12,1,1,360,360,"circle",image)
spaces(10,10)
Case "A"
set(px,py-16,px-12,py+16,.0,.0,"line",image)
set(px,py-16,px+12,py+16,.0,.0,"line",image)
set(px-8,py+3,px+8,py+3,.0,.0,"line",image)
spaces(30,30)'36
Case "a"
set(px-4,py+4,10,1,360,360,"circle",image)
set(px+6,py-8,px+6,py+16,.0,.0,"line",image)
spaces(26,26)
Case "B"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px-12,py-14,px-5,py-14,.0,.0,"line",image)
set(px-12,py+14,px-5,py+14,.0,.0,"line",image)
set(px-5,py-6,8,1,290,450,"circle",image)
set(px-5,py+6,8,1,270,430,"circle",image)
set(px-12,py,px-2,py,.0,.0,"line",image)
spaces(24,24)
Case "b"
set(px-2,py+4,10,1,360,360,"circle",image)
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
spaces(28,28)
Case "C"
set(px,py,14,1,60,300,"circle",image)
spaces(25,25)
Case "c"
set(px-4,py+4,10,1,60,300,"circle",image)
spaces(20,20)
Case "D"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px-5,py,14,1,270,450,"circle",image)
set(px-12,py-14,px-5,py-14,.0,.0,"line",image)
set(px-12,py+14,px-5,py+14,.0,.0,"line",image)
spaces(30,30)
Case "d"
set(px-4,py+4,10,1,360,360,"circle",image)
set(px+6,py-16,px+6,py+16,.0,.0,"line",image)
spaces(26,26)
Case "E"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px-12,py-14,px+6,py-14,.0,.0,"line",image)
set(px-12,py+14,px+6,py+14,.0,.0,"line",image)
set(px-12,py,px-2,py,.0,.0,"line",image)
spaces(25,25)
Case "e"
set(px-4,py+4,10,1,0,320,"circle",image)
set(px-12,py+3,px+8,py+3,.0,.0,"line",image)
spaces(26,26)
Case "F"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px-12,py-14,px+6,py-14,.0,.0,"line",image)
set(px-12,py,px-2,py,.0,.0,"line",image)
spaces(24,24)
Case "f"
set(px-2,py-8,10,1,0,170,"circle",image)
set(px-12,py-10,px-12,py+16,.0,.0,"line",image)
set(px-10,py,px-2,py,.0,.0,"line",image)
spaces(28,28)
Case "G"
set(px,py,14,1,50,350,"circle",image)
set(px,py,px+16,py,.0,.0,"line",image)
spaces(35,35)
Case "g"
set(px-4,py+4,10,1,360,360,"circle",image)
set(px+6,py-6,px+6,py+20,.0,.0,"line",image)
set(px-4,py+17,10,1,230,345,"circle",image)
spaces(26,26)
Case "H"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px+12,py-16,px+12,py+16,.0,.0,"line",image)
set(px-12,py,px+12,py,.0,.0,"line",image)
spaces(32,32)
Case "h"
set(px-4,py+2,8,1,0,170,"circle",image)
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px+4,py,px+4,py+16,.0,.0,"line",image)
spaces(25,25)
Case "I"
set(px,py+16,px,py-16,.0,.0,"line",image)
set(px-12,py+14,px+12,py+14,.0,.0,"line",image)
set(px-12,py-14,px+12,py-14,.0,.0,"line",image)
spaces(30,30)
Case "i"
set(px-12,py-6,px-12,py+16,.0,.0,"line",image)
set(px-12,py-14,1,1,360,360,"circle",image)
spaces(10,10)
Case "J"
set(px-7,py+8,7,1,220,355,"circle",image)
set(px,py-16,px,py+9,.0,.0,"line",image)
set(px-12,py-14,px+12,py-14,.0,.0,"line",image)
spaces(30,30)
Case "j"
set(px,py-6,px,py+20,.0,.0,"line",image)
set(px-7,py+20,7,1,220,360,"circle",image)
set(px,py-14,1,1,360,360,"circle",image)
spaces(22,22)
Case "K"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px+6,py-16,px-12,py,.0,.0,"line",image)
set(px+6,py+16,px-6,py-3,.0,.0,"line",image)
spaces(25,25)
Case "k"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px+3,py-6,px-12,py,.0,.0,"line",image)
set(px,py+16,px-8,py-3,.0,.0,"line",image)
spaces(20,20)
Case "L"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px-12,py+14,px+6,py+14,.0,.0,"line",image)
spaces(25,25)
Case "l"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
spaces(10,10)
Case "M"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px+12,py-16,px+12,py+16,.0,.0,"line",image)
set(px-12,py-16,px,py,.0,.0,"line",image)
set(px+12,py-16,px,py,.0,.0,"line",image)
spaces(32,32)
Case "m"
set(px-6,py+2,6,1,0,170,"circle",image)
set(px+6,py+2,6,1,0,170,"circle",image)
set(px-12,py-5,px-12,py+16,.0,.0,"line",image)
set(px+12,py,px+12,py+16,.0,.0,"line",image)
set(px,py+16,px,py,.0,.0,"line",image)
spaces(32,32)
Case "N"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px+12,py-16,px+12,py+16,.0,.0,"line",image)
set(px-12,py-16,px+12,py+16,.0,.0,"line",image)
spaces(32,32)
Case "n"
set(px-4,py+2,8,1,0,170,"circle",image)
set(px-12,py-5,px-12,py+16,.0,.0,"line",image)
set(px+4,py+16,px+4,py,.0,.0,"line",image)
spaces(24,24)
Case "O"
set(px,py,14,1,360,360,"circle",image)
spaces(36,36)
Case "o"
set(px-4,py+4,10,1,360,360,"circle",image)
spaces(26,26)
Case "P"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px-12,py-14,px-5,py-14,.0,.0,"line",image)
set(px-5,py-6,8,1,280,450,"circle",image)
set(px-12,py+2,px-2,py+2,.0,.0,"line",image)
spaces(24,24)
Case "p"
set(px-5,py+4,10,1,270,435,"circle",image)
set(px-14,py-5,px-2,py-5,.0,.0,"line",image)
set(px-12,py+14,px-5,py+14,.0,.0,"line",image)
set(px-12,py-6,px-12,py+26,.0,.0,"line",image)
spaces(24,24)
Case "Q"
set(px,py,14,1,360,360,"circle",image)
set(px+5,py+20,16,1,400,460,"circle",image)
spaces(36,36)
Case "q"
set(px-5,py+6,10,1,110,270,"circle",image)
set(px-9,py-3,px+2,py-3,.0,.0,"line",image)
set(px-8,py+16,px,py+16,.0,.0,"line",image)
set(px,py-3,px,py+26,.0,.0,"line",image)
spaces(20,20)
Case "R"
set(px-12,py-16,px-12,py+16,.0,.0,"line",image)
set(px-12,py-14,px-5,py-14,.0,.0,"line",image)
set(px-5,py-6,8,1,290,450,"circle",image)
set(px-12,py+2,px-2,py+2,.0,.0,"line",image)
set(px-8-1+3,py+1,px+12-8-1,py+16+1-2,.0,.0,"line",image)
spaces(24,24)
Case "r"
set(px-4,py+4,10,1,30,130,"circle",image)
set(px-12,py-8,px-12,py+16,.0,.0,"line",image)
spaces(24,24)
Case "S"
set(px-2,py-7,8,1,20,240,"circle",image)
set(px-2,py+6,8,1,200,500,"circle",image)
spaces(26,26)
Case "s"
set(px-4,py+4,10,1,40,140,"circle",image)
set(px-1,py-4,10,1,180,240,"circle",image)
set(px-6,py+14,10,1,20,100,"circle",image)
set(px-4,py+4,10,1,220,325,"circle",image)
spaces(26,26)
Case "T"
set(px,py-12,px,py+16,.0,.0,"line",image)
set(px-16,py-12-2,px+16,py-12-2,.0,.0,"line",image)
spaces(34,34)
Case "t"
set(px-12,py-16,px-12,py+10,.0,.0,"line",image)
set(px-12,py-4,px-2,py-4,.0,.0,"line",image)
set(px-4,py+4,10,1,210,320,"circle",image)
spaces (24,24)
Case "U"
set(px-12,py-16,px-12,py+8,.0,.0,"line",image)
set(px+12,py-16,px+12,py+8,.0,.0,"line",image)
set(px,py,14,1,205,335,"circle",image)
spaces(33,33)
Case "u"
set(px-4,py+4,10,1,210,360,"circle",image)
set(px+6,py-6,px+6,py+16,.0,.0,"line",image)
set(px-12,py-6,px-12,py+10,.0,.0,"line",image)
spaces(26,26)
Case "V"
set(px,py+16,px-12,py-16,.0,.0,"line",image)
set(px,py+16,px+12,py-16,.0,.0,"line",image)
spaces(32,32)'36
Case "v"
set(px-12,py-6,px-4,py+16,.0,.0,"line",image)
set(px-4,py+16,px+4,py-6,.0,.0,"line",image)
spaces(24,24)
Case "W"
set(px-12,py-16,px-8,py+16,.0,.0,"line",image)
set(px+12,py-16,px+8,py+16,.0,.0,"line",image)
set(px-8,py+16,px,py,.0,.0,"line",image)
set(px+8,py+16,px,py,.0,.0,"line",image)
spaces(32,32)
Case "w"
set(px-14,py-6,px-8,py+16,.0,.0,"line",image)
set(px+8,py+16,px+12,py-6,.0,.0,"line",image)
set(px-8,py+16,px,py,.0,.0,"line",image)
set(px+8,py+16,px,py,.0,.0,"line",image)
spaces(33,33)
Case "X"
set(px-12,py-16,px+12,py+16,.0,.0,"line",image)
set(px+12,py-16,px-12,py+16,.0,.0,"line",image)
spaces(32,32)
Case "x"
set(px-12,py-6,px+2,py+16,.0,.0,"line",image)
set(px+2,py-6,px-12,py+16,.0,.0,"line",image)
spaces(22,22)
Case "Y"
set(px-12,py-16,px,py,.0,.0,"line",image)
set(px+12,py-16,px,py,.0,.0,"line",image)
set(px,py,px,py+16,.0,.0,"line",image)
spaces(32,32)
Case "y"
set(px-4,py+4,8,1,180,380,"circle",image)
set(px+4,py-6,px+4,py+20,.0,.0,"line",image)
set(px-6,py+17,10,1,230,345,"circle",image)
set(px-12,py-6,px-12,py+4,.0,.0,"line",image)
spaces(24,24)
Case "Z"
set(px-12,py-14,px+12,py-14,.0,.0,"line",image)
set(px-12,py+14,px+12,py+14,.0,.0,"line",image)
set(px+10,py-14,px-10,py+14,.0,.0,"line",image)
spaces(30,30)
Case "z"
set(px-16,py-4,px+2,py-4,.0,.0,"line",image)
set(px-16,py+14,px+2,py+14,.0,.0,"line",image)
set(px+1,py-5,px-14,py+14,.0,.0,"line",image)
spaces(20,20)
Case ","
set(px-12,py+12,px-18,py+20,.0,.0,"line",image)
set(px-12,py+12,1,1,360,360,"circle",image)
spaces(10,10)
Case Else
Draw String(px,py),"?",c
spaces(24,24)
End Select
Next n
End Sub
colour:
Data _
&HFF0F0F0F,&HFF4E504A,&HFF222320,&HFF6B6D64,&HFF6B6D64,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,_
&HFF919191,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF636363,&HFF919191,&HFF000000,_
&HFF0F0F0F,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,_
&HFF0F0F0F,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,_
&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF636363,&HFF000000,&HFF000000,_
&HFF0F0F0F,&HFF919191,&HFF919191,&HFF000000,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF919191,_
&HFF000000,&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF000000,&HFF000000,_
&HFF0F0F0F,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF000000,_
&HFF000000,&HFF919191,&HFF919191,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF919191,_
&HFF000000,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF919191,&HFF919191,_
&HFF000000,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF0F0F0F,_
&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,_
&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF919191,&HFF919191,&HFF000000,&HFF000000,_
&HFF919191,&HFF000000,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF919191,_
&HFF000000,&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,_
&HFF919191,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,_
&HFF919191,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,_
&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF0F0F0F,&HFF919191,&HFF000000,_
&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF919191,&HFF000000,&HFF0F0F0F,_
&HFF919191,&HFF0F0F0F,&HFF0F0F0F,&HFF919191,&HFFD6DAC9,&HFF919191,&HFF000000,&HFF000000,_
&HFF000000,&HFF000000,&HFF919191,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF0F0F0F,_
&HFF000000,&HFF9E9F9B,&HFFDEE1D3,&HFF919191,&HFF0F0F0F,&HFF0F0F0F,&HFF919191,&HFF919191,_
&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF0F0F0F,&HFF000000,_
&HFF000000,&HFF919191,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF919191,&HFF0F0F0F,_
&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,_
&HFF919191,&HFF636363,&HFF919191,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF919191,_
&HFF919191,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,&HFF919191,&HFF000000,&HFF000000,_
&HFF919191,&HFF636363,&HFF919191,&HFF000000,&HFF0F0F0F,&HFF919191,&HFF000000,&HFF0F0F0F,_
&HFF0F0F0F,&HFF000000,&HFF0F0F0F,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF919191,_
&HFF0F0F0F,&HFF000000,&HFF0F0F0F,&HFF919191,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,_
&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,_
&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF919191,_
&HFF919191,&HFF636363,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF919191,_
&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF0F0F0F,_
&HFF919191,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF919191,&HFF000000,_
&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,_
&HFF0F0F0F,&HFF000000,&HFF919191,&HFF000000,&HFF0F0F0F,&HFF919191,&HFF000000,&HFF000000,_
&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF919191,&HFF000000,&HFF000000,&HFF919191,_
&HFF000000,&HFF0F0F0F,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,_
&HFF919191,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF000000,&HFF0F0F0F,&HFF919191,&HFF000000,_
&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF919191,&HFF919191,&HFF000000,_
&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF919191,&HFF0F0F0F,&HFF000000,_
&HFF000000,&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF919191,&HFF000000,_
&HFF0F0F0F,&HFF000000,&HFF000000,&HFF919191,&HFF919191,&HFF000000,&HFF000000,&HFF000000,_
&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,&HFF0F0F0F,&HFF919191,_
&HFF919191,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,_
&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF0F0F0F,&HFF0F0F0F,&HFF919191,&HFF000000,_
&HFF008000,&HFF000000,&HFF000000,&HFF008000,&HFF000000,&HFF919191,&HFF800000,&HFF800000,_
&HFF000000,&HFF000000,&HFF0F0F0F,&HFF008000,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0F0F0F,_
&HFF800000,&HFF800000,&HFF0000FF,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF008000,_
&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF000000,&HFF0000FF,&HFF0000FF,&HFF000000,&HFF000000,_
&HFF800000,&HFF800000,&HFF800000,&HFF000000,&HFF000000,&HFF0000FF,&HFF0000FF,&HFF000000,_
&HFF000000,&HFF000000,&HFF008000,&HFF008000,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,_
&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF800000,&HFF800000,&HFF800000,&HFF000000,_
&HFF0000FF,&HFF0000FF,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF0F0F0F,_
&HFF000000,&HFF000000,&HFF008000,&HFF008000,&HFF00FF00,&HFF008000,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF800000,_
&HFF800000,&HFF800000,&HFF800000,&HFF000000,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF000000,_
&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF0F0F0F,&HFF008000,_
&HFF008000,&HFF008000,&HFF008000,&HFF00FF00,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF0000FF,&HFF000000,&HFF0000FF,&HFF000000,&HFF0000FF,&HFF800000,&HFF800000,_
&HFF800000,&HFF800000,&HFF000000,&HFF0000FF,&HFF0000FF,&HFF000000,&HFF000000,&HFF000000,_
&HFF000000,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF008000,&HFF008000,&HFF008000,_
&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF000000,&HFF0000FF,&HFF0000FF,&HFF000000,&HFF000000,_
&HFF800000,&HFF800000,&HFF000000,&HFF000000,&HFF0000FF,&HFF0000FF,&HFF000000,&HFF000000,_
&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF008000,&HFF00FF00,&HFF008000,_
&HFF008000,&HFF008000,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF000000,&HFF800000,&HFF000000,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF000000,_
&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF00FF00,&HFF00FF00,&HFF008000,&HFF00FF00,_
&HFF008000,&HFF008000,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF000000,&HFF0000FF,_
&HFF000000,&HFF000000,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF800000,&HFF800000,_
&HFF000000,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF919191,&HFF00FF00,&HFF00FF00,&HFF00FF00,_
&HFF00FF00,&HFF008000,&HFF008000,&HFF008000,&HFF008000,&HFF008000,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF000000,_
&HFF800000,&HFF800000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF919191,_
&HFF000000,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF008000,&HFF008000,&HFF008000,_
&HFF008000,&HFF008000,&HFF008000,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF000000,_
&HFF000000,&HFF0000FF,&HFF0000FF,&HFF800000,&HFF800000,&HFF800000,&HFF000000,&HFF000000,_
&HFF000000,&HFF919191,&HFF919191,&HFF000000,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,_
&HFF008000,&HFF008000,&HFF008000,&HFF008000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,_
&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF000000,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF000000,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF800000,&HFF800000,&HFF800000,_
&HFF800000,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF919191,&HFF000000,_
&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF008000,&HFF008000,&HFF008000,&HFF008000,_
&HFF000000,&HFF000000,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF000000,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF800000,&HFF800000,&HFF800000,&HFF919191,_
&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF0F0F0F,_
&HFF919191,&HFF919191,&HFF000000,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,_
&HFF008000,&HFF008000,&HFF008000,&HFF0000FF,&HFF0000FF,&HFF000000,&HFF0000FF,&HFF0000FF,_
&HFF0000FF,&HFF800000,&HFF800000,&HFF800000,&HFF800000,&HFF800000,&HFF800000,&HFF0F0F0F,_
&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF008000,_
&HFF008000,&HFF008000,&HFF008000,&HFF008000,&HFF0000FF,&HFF0000FF,&HFF0000FF,&HFF0000FF,_
&HFF800000,&HFF800000,&HFF800000,&HFF800000,&HFF800000,&HFF800000,&HFF919191,&HFF000000,_
&HFF000000,&HFF0F0F0F,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF008000,&HFF008000,_
&HFF008000,&HFF008000,&HFF000000,&HFF919191,&HFF800000,&HFF000000,&HFF800000,&HFF800000,_
&HFF800000,&HFF800000,&HFF000000,&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF00FF00,_
&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF008000,&HFF008000,&HFF008000,&HFF008000,&HFF800000,_
&HFF800000,&HFF800000,&HFF800000,&HFF800000,&HFF800000,&HFF000000,&HFF000000,&HFF636363,_
&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF008000,&HFF008000,&HFF008000,&HFF008000,_
&HFF800000,&HFF800000,&HFF800000,&HFF800000,&HFF800000,&HFF000000,&HFF0F0F0F,&HFF919191,_
&HFF000000,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF008000,&HFF008000,&HFF008000,_
&HFF008000,&HFF800000,&HFF800000,&HFF800000,&HFF800000,&HFF000000,&HFF000000,&HFF0F0F0F,_
&HFF919191,&HFF000000,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF008000,&HFF008000,_
&HFF008000,&HFF008000,&HFF800000,&HFF800000,&HFF800000,&HFF000000,&HFF000000,&HFF0F0F0F,_
&HFF919191,&HFF000000,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF008000,_
&HFF008000,&HFF008000,&HFF008000,&HFF000000,&HFF800000,&HFF0F0F0F,&HFF000000,&HFF919191,_
&HFF000000,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF008000,&HFF008000,&HFF008000,_
&HFF008000,&HFF008000,&HFF008000,&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,_
&HFF919191,&HFF919191,&HFF636363,&HFF919191,&HFF000000,&HFF00FF00,&HFF00FF00,&HFF00FF00,_
&HFF00FF00,&HFF00FF00,&HFF008000,&HFF008000,&HFF008000,&HFF008000,&HFF0F0F0F,&HFF919191,_
&HFF000000,&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF008000,&HFF008000,&HFF00FF00,_
&HFF008000,&HFF00FF00,&HFF00FF00,&HFF008000,&HFF008000,&HFF008000,&HFF008000,&HFF000000,_
&HFF636363,&HFF919191,&HFF000000,&HFF0F0F0F,&HFF919191,&HFF000000,&HFF000000,&HFF008000,_
&HFF008000,&HFF008000,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF00FF00,&HFF008000,&HFF008000,_
&HFF008000,&HFF0F0F0F,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,_
&HFF000000,&HFF00FF00,&HFF008000,&HFF008000,&HFF008000,&HFF00FF00,&HFF00FF00,&HFF008000,_
&HFF008000,&HFF000000,&HFF919191,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF008000,&HFF000000,_
&HFF000000,&HFF000000,&HFF008000,&HFF008000,&HFF008000,&HFF008000,&HFF008000,&HFF008000,_
&HFF008000,&HFF008000,&HFF0F0F0F,&HFF000000,&HFF636363,&HFF000000,&HFF919191,&HFF000000,_
&HFF008000,&HFF000000,&HFF000000,&HFFFF8040,&HFFFF8040,&HFFFF8040,&HFF00FF00,&HFF008000,_
&HFF008000,&HFF0F0F0F,&HFF636363,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,_
&HFF0F0F0F,&HFF00FF00,&HFF008000,&HFF000000,&HFF000000,&HFFFF8040,&HFFFF8040,&HFFFF8040,_
&HFF000000,&HFF00FF00,&HFF008000,&HFF008000,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,&HFF919191,_
&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF00FF00,&HFF008000,_
&HFF008000,&HFFFF8040,&HFFFFFF80,&HFFFF8040,&HFFFF8040,&HFF000000,&HFF000000,&HFF000000,_
&HFF00FF00,&HFF00FF00,&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF919191,&HFF0F0F0F,_
&HFF0F0F0F,&HFF919191,&HFF000000,&HFF008000,&HFF008000,&HFF008000,&HFFFF8040,&HFFFF8040,_
&HFFFF8040,&HFFFF8040,&HFF000000,&HFFFF8040,&HFF008000,&HFF000000,&HFF0F0F0F,&HFF000000,_
&HFF919191,&HFF919191,&HFF000000,&HFF008000,&HFF008000,&HFF008000,&HFFFF8040,&HFF0000FF,_
&HFFFF8040,&HFF000000,&HFF000000,&HFFFF8040,&HFFFF8040,&HFF000000,&HFF919191,&HFF000000,_
&HFF0F0F0F,&HFF0F0F0F,&HFF008000,&HFF008000,&HFFFF0000,&HFFFF8040,&HFFFF8040,&HFF0F0F0F,_
&HFF919191,&HFF0F0F0F,&HFF0F0F0F,&HFF919191,&HFF919191,&HFF000000,&HFFFF0000,&HFF000000,_
&HFF000000,&HFF000000,&HFF919191,&HFF919191,&HFF000000,&HFF000000,&HFF000000,&HFF000000,_
&HFF000000,&HFF0F0F0F,&HFF919191,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,_
&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,_
&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,_
&HFF0F0F0F,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,_
&HFF919191,&HFF919191,&HFF000000,&HFF919191,&HFF000000,&HFF919191,&HFF000000,&HFF000000,_
&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF919191,&HFF000000,_
&HFF262626,&HFF636363,&HFF919191,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,_
&HFF000000,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,_
&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,_
&HFF0F0F0F,&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,&HFF919191,_
&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,_
&HFF000000,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,_
&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF0F0F0F,_
&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF919191,&HFF0F0F0F,_
&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF919191,&HFF000000,&HFF919191,&HFF0F0F0F,_
&HFF000000,&HFF0F0F0F,&HFF919191,&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,_
&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,&HFF000000,&HFF000000,_
&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF0F0F0F,&HFF000000,_
&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF000000,&HFF000000,_
&HFF919191,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,&HFF919191,_
&HFF000000,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF804000,&HFF804000,_
&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF804000,&HFF804000,&HFF000000,&HFF0F0F0F,_
&HFF804000,&HFF804000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF919191,_
&HFF000000,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,_
&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,_
&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,_
&HFF000000,&HFF0F0F0F,&HFF000000,&HFF919191,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF000000,_
&HFF919191,&HFF000000,&HFF000000,&HFF0F0F0F,&HFF0F0F0F,&HFF000000,&HFF000000,&HFF919191,_
&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF000000,&HFF000000,&HFF919191,&HFF000000,_
&HFF919191,&HFF000000,&HFF000000,&HFF919191,&HFF000000,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,_
&HFF919191,&HFF919191,&HFF0F0F0F,&HFF000000,&HFF0F0F0F,&HFF0F0F0F
xpos:
Data _
0,0,0,0,0,0,1,1,1,1,1,1,2,2,2,2,3,3,3,3,_
4,4,4,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,11,_
11,11,11,11,12,12,13,13,13,14,14,14,15,15,15,16,16,17,17,17,_
18,18,19,19,20,20,20,20,21,21,22,22,22,23,23,24,24,25,25,25,_
25,26,26,27,27,27,28,28,29,29,29,29,29,30,30,30,30,30,30,31,_
31,31,31,31,31,31,32,32,32,32,33,33,33,33,33,33,33,34,34,34,_
34,34,35,35,35,35,35,36,36,36,36,36,36,36,36,36,36,36,36,36,_
36,37,37,37,37,37,37,38,38,38,38,38,38,38,38,38,38,38,38,38,_
38,39,39,39,39,39,39,39,39,39,39,39,39,39,39,39,39,39,39,40,_
40,40,40,40,40,40,40,40,40,40,40,40,40,41,41,41,41,41,41,41,_
41,41,41,41,41,41,42,42,42,42,42,42,42,42,42,43,43,43,43,43,_
43,43,43,44,44,44,44,44,44,45,45,45,45,45,45,45,45,45,45,45,_
45,45,45,45,45,45,45,45,45,45,46,46,47,47,48,48,48,48,48,48,_
49,49,49,49,49,50,50,50,50,50,50,51,51,51,51,51,52,52,52,52,_
52,52,52,53,53,53,53,53,53,54,54,54,54,54,54,55,55,55,55,55,_
55,55,56,56,56,56,56,56,57,57,57,57,57,57,58,58,58,58,58,58,_
59,59,59,59,59,59,59,59,60,60,60,60,60,60,60,60,60,61,61,61,_
61,61,61,61,62,62,62,62,62,62,63,63,63,63,63,64,64,64,64,64,_
64,64,65,65,65,65,65,65,65,65,66,66,66,67,67,67,68,68,68,69,_
69,69,69,69,69,69,69,70,70,70,70,70,70,70,70,70,70,70,70,71,_
71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,72,72,_
72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,_
72,72,73,73,73,73,73,73,73,73,73,73,73,73,73,73,73,73,73,73,_
73,73,73,73,73,73,73,73,73,73,73,74,74,74,74,74,74,74,74,74,_
74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,_
74,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,_
75,75,75,75,75,75,75,75,75,75,75,75,75,76,76,76,76,76,76,76,_
76,76,76,76,76,76,76,76,76,76,76,76,76,76,76,76,76,76,76,76,_
76,76,76,76,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,_
77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,77,78,78,78,_
78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,78,_
78,78,78,78,78,78,78,78,78,78,78,78,78,79,79,79,79,79,79,79,_
79,79,79,79,79,79,79,79,79,79,79,79,79,79,79,79,79,79,79,79,_
79,79,79,79,79,79,79,79,80,80,80,80,80,80,80,80,80,80,80,80,_
80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,_
80,80,80,80,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,_
81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,82,_
82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,_
82,82,82,82,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,_
83,83,83,83,83,83,84,84,84,84,84,84,84,84,84,84,84,84,84,84,_
84,84,84,84,84,84,84,85,85,85,85,85,85,85,85,85,85,85,85,85,_
85,85,85,85,86,86,86,86,86,86,86,86,86,86,86,86,86,86,86,86,_
86,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,88,88,_
88,88,88,88,88,88,88,88,88,88,88,88,88,88,89,89,89,89,89,89,_
89,89,89,89,89,89,89,89,89,90,90,90,90,90,90,90,90,90,90,90,_
90,90,90,90,90,90,90,90,90,91,91,91,91,91,91,91,91,91,91,91,_
91,91,91,91,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,_
92,92,93,93,93,93,93,93,93,93,93,93,93,93,93,93,93,93,93,94,_
94,94,94,94,94,94,94,94,94,94,94,94,94,94,95,95,95,95,95,95,_
95,95,95,95,95,95,95,95,95,95,95,95,96,96,96,96,96,96,96,96,_
96,96,96,96,96,96,96,96,96,97,97,97,97,97,97,97,97,97,97,97,_
97,97,97,97,97,97,97,97,97,97,98,98,98,98,98,98,98,98,98,98,_
98,98,98,98,98,98,98,98,98,98,98,99,99,99,99,99,99,99,99,99,_
99,99,99,99,99,99,99,100,100,100,100,100,100,100,100,100,100,100,100,100,_
100,100,101,101,101,101,101,101,101,101,101,101,101,101,102,102,102,102,102,102,_
102,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,_
103,103,103,103,104,104,104,104,104,105,105,105,105,105,105,106,106,106,106,106,_
106,106,106,107,107,107,108,108,108,108,108,108,109,109,109,109,109,109,110,110,_
110,110,110,111,111,111,111,112,112,112,112,112,113,113,113,113,114,114,114,114,_
114,114,115,115,115,115,115,115,115,115,115,115,115,116,116,116,116,116,117,117,_
117,117,117,118,118,118,118,119,119,119,119,120,120,120,120,120,120,121,121,121,_
121,121,122,122,122,122,122,122,122,122,122,123,123,123,123,123,123,123,124,124,_
124,124,124,125,125,125,125,125,125,125,126,126,126,126,126,127,127,127,127,128,_
128,128,129,129,129,129,130,130,130,131,131,131,131,131,132,132,132,132,132,133,_
133,133,133,134,134,134,135,135,135,135,136,136,136,137,137,137,137,138,138,138,_
138,139,139,139,139,140,140,140,140,141,141,141,141,141,142,142,142,142,142,143,_
143,143,143,143,144,144,144,144,144,145,145,145,145,146,146,146,146,146,147,147,_
147,147,148,148,148,148,148,148,149,149
ypos:
Data _
35,36,37,38,39,40,33,34,35,40,41,42,32,33,42,43,33,43,44,45,_
33,45,46,33,46,33,46,47,33,34,47,34,35,47,35,36,47,36,47,34,_
35,36,46,47,34,46,34,45,46,33,34,45,33,44,45,33,44,33,43,44,_
33,43,33,43,33,34,42,43,34,42,34,41,42,34,41,34,41,33,34,40,_
41,33,40,33,39,40,33,39,33,38,39,55,56,33,38,55,56,57,58,32,_
33,37,38,55,58,59,32,37,55,59,32,33,37,55,59,60,61,33,37,55,_
61,62,33,37,54,55,62,32,33,37,38,39,40,41,42,43,44,45,54,62,_
63,32,45,46,54,63,64,31,32,46,47,54,59,60,61,62,63,64,65,68,_
69,30,31,47,48,53,54,59,62,63,64,65,66,67,68,69,70,74,75,30,_
48,49,53,59,63,64,70,71,73,74,75,76,77,30,49,52,53,59,64,65,_
71,72,73,77,78,79,29,30,49,50,52,59,65,79,80,29,50,51,52,59,_
65,80,81,29,59,63,64,65,81,28,29,59,60,61,62,63,69,70,71,72,_
73,74,75,76,77,78,79,80,81,82,28,69,28,69,27,28,64,65,66,69,_
27,64,66,69,70,27,63,64,66,67,70,27,62,63,67,70,26,27,61,62,_
67,70,71,26,60,61,67,68,71,26,59,60,68,71,72,26,58,59,68,69,_
72,73,26,57,58,69,73,74,26,56,57,69,70,74,26,55,56,70,74,75,_
26,53,54,55,70,71,75,76,26,52,53,71,72,76,77,78,79,26,27,52,_
72,73,79,80,27,52,73,74,80,81,27,52,74,75,81,27,52,75,76,77,_
81,82,27,52,77,78,79,80,81,82,27,28,52,28,52,53,13,28,53,13,_
28,29,30,31,39,40,53,13,14,16,17,29,30,31,39,40,41,53,54,13,_
14,15,16,17,18,19,20,29,30,31,32,36,37,38,39,40,41,54,12,14,_
15,16,17,18,19,20,21,22,30,31,32,36,37,38,39,41,42,43,45,54,_
83,84,11,12,13,14,15,16,17,18,19,20,21,22,23,30,31,32,33,35,_
36,37,38,39,42,43,44,45,54,55,83,11,12,13,14,15,16,17,18,19,_
20,21,22,23,24,25,30,31,32,33,34,35,36,37,38,41,43,44,55,82,_
83,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,30,_
31,32,33,34,35,36,41,43,44,55,56,81,82,10,11,12,13,14,15,16,_
17,18,19,20,21,22,23,24,25,26,27,28,29,30,32,33,34,35,36,42,_
56,57,80,81,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,_
26,27,28,29,30,31,32,33,34,35,36,37,41,57,79,80,84,9,10,11,_
12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,_
32,33,34,35,36,37,40,57,58,78,79,83,84,9,10,11,12,13,14,15,_
16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,_
36,37,39,58,77,78,82,83,9,10,11,12,13,14,15,16,17,18,19,20,_
21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,58,69,_
76,77,81,82,9,10,11,12,13,14,15,16,17,18,23,24,26,27,28,29,_
30,31,32,33,34,35,36,58,59,69,70,71,72,73,74,75,76,80,81,9,_
10,11,12,13,14,15,16,25,27,28,29,30,31,32,33,34,35,36,37,59,_
69,78,79,80,9,10,11,12,13,14,15,16,27,28,29,30,31,32,33,34,_
35,36,59,60,69,78,9,10,11,12,13,14,15,16,29,30,31,32,33,34,_
35,36,60,69,76,77,78,9,10,11,12,13,14,15,16,29,30,31,32,33,_
34,60,69,76,9,10,11,12,13,14,15,16,29,30,31,32,33,60,69,76,_
77,9,10,11,12,13,14,15,16,29,30,31,32,60,67,68,69,77,9,10,_
11,12,13,14,15,16,29,30,31,60,65,66,67,77,9,10,11,12,13,14,_
15,16,17,29,30,60,64,65,77,9,10,11,12,13,14,15,16,17,18,29,_
60,61,62,63,64,71,72,73,77,10,11,12,13,14,15,16,17,18,29,70,_
71,73,74,77,7,9,10,11,12,13,14,15,16,17,18,28,29,69,70,74,_
77,78,8,9,10,11,12,13,14,15,16,17,18,29,68,69,74,75,78,7,_
8,9,10,11,12,15,16,17,18,29,67,68,75,78,5,6,7,8,9,10,_
12,13,15,16,17,18,21,29,67,75,78,79,5,6,7,8,9,10,16,17,_
18,21,22,23,29,67,68,75,79,4,5,6,7,8,9,10,11,16,17,18,_
22,23,29,68,69,70,71,72,79,80,4,5,6,7,8,9,10,11,12,16,_
17,18,22,23,28,29,72,73,74,75,80,4,5,6,7,8,9,10,11,17,_
18,22,23,27,28,79,80,4,5,6,7,8,9,10,11,17,18,22,23,24,_
27,79,5,6,9,17,18,22,24,25,26,27,78,79,9,17,18,21,22,77,_
78,16,17,18,19,20,21,61,62,63,64,65,66,67,68,69,70,71,72,73,_
74,75,76,77,16,17,18,19,61,16,17,18,19,20,61,15,16,17,18,19,_
20,60,61,15,20,60,13,15,20,21,59,60,13,14,15,21,58,59,12,13,_
21,22,58,12,22,57,58,12,22,55,56,57,12,22,54,55,12,22,51,52,_
53,54,11,12,22,44,45,46,47,48,49,50,51,11,22,23,43,44,10,11,_
23,42,43,10,23,41,42,10,23,40,41,9,10,23,38,39,40,8,9,23,_
37,38,4,5,6,7,8,23,35,36,37,5,23,31,32,33,34,35,5,23,_
29,30,31,5,23,25,26,27,28,29,5,22,23,24,25,5,6,22,23,6,_
22,23,6,7,22,23,7,22,23,7,12,13,22,23,7,8,12,13,23,8,_
12,13,23,8,9,23,9,10,23,24,10,23,24,10,11,23,24,11,12,23,_
24,12,13,23,24,13,14,23,24,14,15,22,23,24,15,16,24,25,26,16,_
17,21,24,26,17,19,24,26,27,17,18,23,27,18,19,24,26,27,19,20,_
23,26,20,21,22,24,25,26,22,24
Type pixel_data
As Integer Xpos,Ypos
As Uinteger colour
End Type
Type rainbow
As Integer min,max,z
As Integer ba
As Integer xp,yp
Declare Function colours(As String,As Any Pointer=0) As Uinteger
End Type
Dim Shared As rainbow r1
Function rainbow.colours(part As String="inner",im As Any Pointer=0) As Uinteger
Dim As Uinteger col
Dim As Integer diff=this.z-this.min
Dim As Integer gap=(this.max-this.min)/6
If part="outer" Then
If this.z>=this.min-2*gap And this.z<this.min Then
col=Point(this.xp,this.yp,im)
Return Rgba((255-(col Shr 16 And 255))*(diff+2*gap)/(2*gap)+(col Shr 16 And 255),_
-(diff+2*gap)*(col Shr  8 And 255)/(2*gap)+(col Shr  8 And 255),_
-(diff+2*gap)*(col  And 255 )/(2*gap)+(col  And 255 ),this.ba)
End If
If this.z>=this.min And this.z<this.min+gap Then _ 
Return Rgba(255,165*(diff)/(gap),0,this.ba)
If this.z>=this.min+gap And this.z<this.min+2*gap Then _
Return Rgba(255,90*(diff-gap)/gap+165,0,this.ba)
If this.z>=this.min+2*gap And this.z<this.min+3*gap Then _
Return Rgba(-255*(diff-2*gap)/gap+255,-127*(diff-2*gap)/gap+255,0,this.ba)
If this.z>=this.min+3*gap And this.z<this.min+4*gap Then _
Return Rgba(0,-128*(diff-3*gap)/gap+128,255*(diff-3*gap)/gap,this.ba)
If this.z>=this.min+4*gap And this.z<this.min+5*gap Then _
Return Rgba(75*(diff-4*gap)/gap,0,-125*(diff-4*gap)/gap+255,this.ba)
If this.z>=this.min+5*gap And this.z<this.min+6*gap Then _
Return Rgba(163*(diff-5*gap)/gap+75,130*(diff-5*gap)/gap,108*(diff-5*gap)/gap+130,this.ba)
If this.z>=this.min+6*gap And this.z<this.min+8*gap Then
col=Point(this.xp,this.yp,im)
Return Rgba((-238+(col Shr 16 And 255))*(diff-6*gap)/(2*gap)+238,_
(-130+(col Shr  8 And 255))*(diff-6*gap)/(2*gap)+130,_
(-238+(col  And 255 ))*(diff-6*gap)/(2*gap)+238,this.ba)
End If
Else
If this.z>=this.min-2*gap And this.z<this.min Then
col=Point(this.xp,this.yp,im)
Return Rgba((238-(col Shr 16 And 255))*(diff+2*gap)/(2*gap)+(col Shr 16 And 255),_
(130-(col Shr  8 And 255))*(diff+2*gap)/(2*gap)+(col Shr  8 And 255),_
(238-(col  And 255 ))*(diff+2*gap)/(2*gap)+(col  And 255 ),this.ba)
End If
If this.z>=this.min And this.z<this.min+gap Then _
Return Rgba((75-238)*(diff)/gap+238,-130*(diff)/(gap)+130,(130-238)*(diff)/gap+238,this.ba)
If this.z>=this.min+gap And this.z<this.min+2*gap Then _
Return Rgba((0-75)*(diff-gap)/gap+75,0,(255-130)*(diff-gap)/gap+130,this.ba)
If this.z>=this.min+2*gap And this.z<this.min+3*gap Then _
Return Rgba(0,128*(diff-2*gap)/gap,-255*(diff-2*gap)/gap+255,this.ba)
If this.z>=this.min+3*gap And this.z<this.min+4*gap Then _
Return Rgba(255*(diff-3*gap)/gap,(255-128)*(diff-3*gap)/gap +128,0,this.ba)
If this.z>=this.min+4*gap And this.z<this.min+5*gap Then _
Return Rgba(255,(165-255)*(diff-4*gap)/gap+255,0,this.ba)
If this.z>=this.min+5*gap And this.z<this.min+6*gap Then _
Return Rgba(255,-165* (diff-5*gap)/gap +165,0,this.ba)
If this.z>=this.min+6*gap And this.z<this.min+8*gap Then
col=Point(this.xp,this.yp,im)
Return Rgba((-255+(col Shr 16 And 255))*(diff-6*gap)/(2*gap)+255,_
(col Shr  8 And 255)*(diff-6*gap)/(2*gap),_
(col  And 255 )*(diff-6*gap)/(2*gap),this.ba)
End If
End If
End Function
Sub cloud(x As Integer, y As Integer,length As Integer=100,alpha As Integer=105, Zoom As Single = 0,im as any pointer=0)
    dim as integer r=255
    dim as integer b=255
    dim as integer g=255
    dim as double pi=3.14159
    #define map(a,b,x,c,d) ((d)-(c))*((x)-(a))/((b)-(a))+(c)
    If Length<=1 Or Alpha<=1 Then Exit Sub
    dim as single rnded = -pi+Rnd*1*pi/2
    dim as single rnded2 = -pi+Rnd*-3*pi
    If alpha<25 Then
        For i As Integer = 0 To 255-alpha Step 100
            var c=map((0),(500),y,0,200)
            Line im,(-(Zoom/2)+x-length/2,y)-((Zoom/2)+x+Length/6+length*Cos(-pi/2+rnded*PI/3),y+Length/6+length*Sin(-pi/2+rnded*PI/3)),rgba(R-c,G-c,B-c,alpha)
            Line im,(-(Zoom/2)+x-length/2,y)-((Zoom/2)+x+Length/6+length*Cos(-pi/2+rnded2*PI/3),y+Length/6+length*Sin(pi/2+rnded2*PI/3)),rgba(R-c,G-c,B-c,alpha)
        Next
    End If
    cloud(-(Zoom/2)+x+length*Cos(-pi/2+rnded*PI/3),(Zoom/2)+y+length*Sin(-pi/2+rnded*PI/3),length/1.4,Alpha/1.2,Zoom,im)
    cloud(-(Zoom/2)+x+length*Cos(-pi/2+rnded2*PI/3),(Zoom/2)+y+length*Sin(pi/2+rnded2*PI/3),length/1.4,Alpha/1.2,Zoom,im)
    cloud(-(Zoom/2)+x+length*Cos(pi/3+rnded2*PI/3),(Zoom/2)+y+length*Sin(pi+rnded2*PI/3),length/1.4,Alpha/2,Zoom,im)
End Sub
Function Blur(Byref tim As Uinteger Pointer,rad As Single=2) As Uinteger Pointer
Type p2
As Integer x,y
As Uinteger col
End Type
#macro ppoint(_x,_y,colour)
pixel=row+pitch*(_y)+4*(_x)
(colour)=*pixel
#endmacro
#macro ppset(_x,_y,colour)
pixel=row+pitch*(_y)+4*(_x)
*pixel=(colour)
#endmacro
#macro average()
ar=0:ag=0:ab=0:inc=0
xmin=x:If xmin>rad Then xmin=rad
xmax=rad:If x>=(_x-1-rad) Then xmax=_x-1-x
ymin=y:If ymin>rad Then ymin=rad
ymax=rad:If y>=(_y-1-rad) Then ymax=_y-1-y
For y1 As Integer=-ymin To ymax
For x1 As Integer=-xmin To xmax
inc=inc+1
ar=ar+(NewPoints(x+x1,y+y1).col Shr 16 And 255)
ag=ag+(NewPoints(x+x1,y+y1).col Shr 8 And 255)
ab=ab+(NewPoints(x+x1,y+y1).col And 255)
Next x1
Next y1
averagecolour=Rgb(ar/(inc),ag/(inc),ab/(inc))
#endmacro
Dim As Integer _x,_y
Imageinfo tim,_x,_y
Dim  As Uinteger Pointer im=Imagecreate(_x,_y)
Dim As Integer pitch
Dim  As Any Pointer row
Dim As Uinteger Pointer pixel
Dim As Uinteger col
Imageinfo tim,,,,pitch,row
Dim As p2 NewPoints(_x,_y)
For y As Integer=0 To (_y)-1
For x As Integer=0 To (_x)-1
ppoint(x,y,col)
NewPoints(x,y)=type<p2>(x,y,col)
Next x
Next y
Dim As Uinteger averagecolour
Dim As Integer ar,ag,ab
Dim As Integer xmin,xmax,ymin,ymax,inc
For y As Integer=0 To _y-1
For x As Integer=0 To _x-1 
average()
NewPoints(x,y).col=averagecolour
Next x
Next y
Imageinfo im,,,,pitch,row
For y As Integer=0 To _y
For x As Integer=0 To _x
ppset((NewPoints(x,y).x),(NewPoints(x,y).y),NewPoints(x,y).col)
Next x
Next y
Function= im
End Function
Sub background(byref im As Any Pointer)
#define distance(cx,cy,px,py) Sqr((cx-px)*(cx-px)+(cy-py)*(cy-py))
Paint im,(0,0),Rgb(200,200,255)
For z As Integer=0 To yres
Line im,(0,z)-(xres,z),Rgba(z/4,z/4,255,80)
Next z
cloud(300,240,150/2,250,1,im)
cloud(500,240,150/2,250,1,im)
cloud(800,240,150/2,250,1,im)
Dim As Double cx=xres/2,cy=1000
For x As Integer=0 To xres
For y As Integer=0 To yres
r1.xp=x:r1.yp=y
r1.z=distance(cx,cy,x,y)
r1.min=600
r1.max=640
r1.ba=200
Pset im,(x,y),r1.colours("inner",im)
Next y
Next x
im=blur(im,4)
For z As Integer=1 To 20
paintstring(250+z,500,"FreeBasic",2,Rgb(10*z,200-10*z,0),0,0,1,im)
Next z
paintstring(250,600,"Look at my horse,",1,Rgb(100,23,0),0,0,1,im)
paintstring(250,650,"My horse is amazing.",1,Rgb(100,23,0),0,0,1,im)
End Sub
Redim Shared As pixel_data a(1350)
Dim Shared As Integer count
Dim As Double magnification
magnification=  1.7
Dim Shared As Integer _width,_height
_width=  257
_height=  140
#macro read_data(col,xp,yp)
Restore col
For z As Integer=1 To Ubound(a)
Read a(z).colour
Next z
Restore xp
For z As Integer=1 To Ubound(a)
Read a(z).xpos
Next z
Restore yp
For z As Integer=1 To Ubound(a)
Read a(z).ypos
Next z
#endmacro
Dim Shared As Any Pointer image(2)
image(1)=imagecreate(_width,_height)
image(2)=imagecreate(xres,yres)
Sub drawbitmap_to_image(scale As Single=1,n As Integer)
Dim As Integer max_x=-1e6,min_x=1e6,max_y=-1e6,min_y=1e6
Dim As Single rotx,roty
#macro magnify(pivotx,pivoty,px,py,scale)
rotx=scale*(px-pivotx)+pivotx
roty=scale*(py-pivoty)+pivoty
#endmacro
For z As Integer=1 To Ubound(a)
magnify(0,0,(a(z).xpos),(a(z).ypos),scale)
If max_x<rotx Then max_x=rotx
If min_x>rotx Then min_x=rotx
If max_y<roty Then max_y=roty
If min_y>roty Then min_y=roty
Next z
min_x=min_x-scale:max_x=max_x+scale
min_y=min_y-scale:max_y=max_y+scale
For z As Integer=1 To Ubound(a)
magnify(0,0,(a(z).xpos),(a(z).ypos),scale)
rotx=rotx-min_x:roty=roty-min_y
Line image(n),(rotx-scale/2,roty-scale/2)-(rotx+scale/2,roty+scale/2),a(z).colour,BF
Next z
End Sub
read_data(colour,xpos,ypos) 
drawbitmap_to_image(magnification,1)
draw string(400,400),"Won't be long ..."
background(image(2))
Dim As String i
Dim As Integer mx,my
Do
i=Inkey
Getmouse mx,my
Screenlock
Cls
Put(0,0),image(2),trans
Put(370+10,226+10),image(1),trans
Screenunlock
Sleep 1,1
Loop Until i=Chr(27)
imagedestroy image(1)
imagedestroy image(2)
 
bfuller
Posts: 328
Joined: Jun 02, 2007 12:35
Location: Sydney, Australia

Re: What is the name of the horse that is in FB logo??

Postby bfuller » Feb 17, 2013 8:05

You are indeed a clever old salt.
1032 lines!--how long did that take you to type in (let alone come up with the code in the first place)?
marcov
Posts: 2798
Joined: Jun 16, 2005 9:45
Location: Eindhoven, NL
Contact:

Re: What is the name of the horse that is in FB logo??

Postby marcov » Feb 17, 2013 14:09

I vote for "Horse with no name", though that might carry its own IP issues :-)
roook_ph
Posts: 402
Joined: Apr 01, 2006 20:50
Location: philippines
Contact:

Re: What is the name of the horse that is in FB logo??

Postby roook_ph » Feb 17, 2013 22:04

A horse with no name after years of avoiding the site i finally find a post worth a reply. Grump!
dodicat
Posts: 6018
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: What is the name of the horse that is in FB logo??

Postby dodicat » Feb 18, 2013 1:38

bfuller wrote:You are indeed a clever old salt.
1032 lines!--how long did that take you to type in (let alone come up with the code in the first place)?


I can only type with one finger, but it's as tough as a marlin spike.
Tam o Shanter's horse was called Meg, it was a grey mare.
Sadly, it ended up with no tail.
Destructosoft
Posts: 88
Joined: Apr 03, 2011 3:44
Location: Inside the bomb
Contact:

Re: What is the name of the horse that is in FB logo??

Postby Destructosoft » Feb 18, 2013 3:26

Whinny the Poo.
jevans4949
Posts: 1148
Joined: May 08, 2006 21:58
Location: Crewe, England

Re: What is the name of the horse that is in FB logo??

Postby jevans4949 » Feb 18, 2013 9:45

One could always go with Invicta ...
http://en.wikipedia.org/wiki/White_horse_of_Kent
Merick
Posts: 1038
Joined: May 28, 2007 1:52

Re: What is the name of the horse that is in FB logo??

Postby Merick » Feb 18, 2013 23:32

ED
marcov
Posts: 2798
Joined: Jun 16, 2005 9:45
Location: Eindhoven, NL
Contact:

Re: What is the name of the horse that is in FB logo??

Postby marcov » Feb 19, 2013 19:12

jevans4949 wrote:One could always go with Invicta ...
http://en.wikipedia.org/wiki/White_horse_of_Kent


If locale legendary horses are allowed, then I'll go with Beiaard/Bayard :

http://en.wikipedia.org/wiki/Bayard_%28legend%29
jevans4949
Posts: 1148
Joined: May 08, 2006 21:58
Location: Crewe, England

Re: What is the name of the horse that is in FB logo??

Postby jevans4949 » Feb 19, 2013 19:22

marcov wrote:
jevans4949 wrote:One could always go with Invicta ...
http://en.wikipedia.org/wiki/White_horse_of_Kent


If locale legendary horses are allowed, then I'll go with Beiaard/Bayard :

http://en.wikipedia.org/wiki/Bayard_%28legend%29


Hmmm, so an extensible horse - but is FB an extensible langiuage?

http://en.wikipedia.org/wiki/Extensible_programming

Return to “Community Discussion”

Who is online

Users browsing this forum: No registered users and 1 guest