What is the name of the horse that is in FB logo??
What is the name of the horse that is in FB logo??
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
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
-
- Posts: 5494
- Joined: Sep 12, 2005 20:06
- Location: California
-
- Posts: 1186
- Joined: May 08, 2006 21:58
- Location: Crewe, England
Re: What is the name of the horse that is in FB logo??
In the EU we call it Lasagne.
-
- Posts: 8586
- Joined: May 28, 2005 3:28
- Contact:
Re: What is the name of the horse that is in FB logo??
:lol:jevans4949 wrote:In the EU we call it Lasagne.
Re: What is the name of the horse that is in FB logo??
Haha =)jevans4949 wrote:In the EU we call it Lasagne.
Re: What is the name of the horse that is in FB logo??
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:
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)
Re: What is the name of the horse that is in FB logo??
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)?
1032 lines!--how long did that take you to type in (let alone come up with the code in the first place)?
Re: What is the name of the horse that is in FB logo??
I vote for "Horse with no name", though that might carry its own IP issues :-)
Re: What is the name of the horse that is in FB logo??
A horse with no name after years of avoiding the site i finally find a post worth a reply. Grump!
Re: What is the name of the horse that is in FB logo??
I can only type with one finger, but it's as tough as a marlin spike.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)?
Tam o Shanter's horse was called Meg, it was a grey mare.
Sadly, it ended up with no tail.
-
- 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??
Whinny the Poo.
-
- Posts: 1186
- Joined: May 08, 2006 21:58
- Location: Crewe, England
Re: What is the name of the horse that is in FB logo??
One could always go with Invicta ...
http://en.wikipedia.org/wiki/White_horse_of_Kent
http://en.wikipedia.org/wiki/White_horse_of_Kent
Re: What is the name of the horse that is in FB logo??
If locale legendary horses are allowed, then I'll go with Beiaard/Bayard :jevans4949 wrote:One could always go with Invicta ...
http://en.wikipedia.org/wiki/White_horse_of_Kent
http://en.wikipedia.org/wiki/Bayard_%28legend%29
-
- Posts: 1186
- Joined: May 08, 2006 21:58
- Location: Crewe, England
Re: What is the name of the horse that is in FB logo??
Hmmm, so an extensible horse - but is FB an extensible langiuage?marcov wrote:If locale legendary horses are allowed, then I'll go with Beiaard/Bayard :jevans4949 wrote:One could always go with Invicta ...
http://en.wikipedia.org/wiki/White_horse_of_Kent
http://en.wikipedia.org/wiki/Bayard_%28legend%29
http://en.wikipedia.org/wiki/Extensible_programming