The new website
-
- Posts: 255
- Joined: Jan 05, 2006 0:56
-
- Site Admin
- Posts: 6323
- Joined: Jul 05, 2005 17:32
- Location: Manchester, Lancs
For about one week, there are often problems with connection to the website FreeBasic (and phatcode), with failure time of about one hour or more:
- firstly 'Network Error (TCP timeout)'
- then long time problem to access to the data-base (forum).
The last problem occured today at about 13:15 GMT.
Am I the only one to see this behavior?
This somewhat spoils the new website.
- firstly 'Network Error (TCP timeout)'
- then long time problem to access to the data-base (forum).
The last problem occured today at about 13:15 GMT.
Am I the only one to see this behavior?
This somewhat spoils the new website.
fxm wrote:For about one week, there are often problems with connection to the website FreeBasic (and phatcode), with failure time of about one hour or more.
I would think this is the website phatcode (hosting freeBbsic) which has big problems for a week.TJF wrote:I second that (connecting from Europe).
I tried to send a post. I had to store the text local and send it 1 hour later.
-
- Posts: 2338
- Joined: May 31, 2005 9:59
- Location: Croatia
- Contact:
Gallery: the link (as follows) to FBedit does not work:
http://fbedit.freebasic.net/
IMHO, the right link is:
http://radasm.cherrytree.at/
http://fbedit.freebasic.net/
IMHO, the right link is:
http://radasm.cherrytree.at/
-
- Posts: 5494
- Joined: Sep 12, 2005 20:06
- Location: California
http://freebasic.net/about/gettingstarted
My name's in the tutorial you link to on that page. If I don't revise it, I'll lose all of my dignity. I get a feeling this was premeditated effort intended to increase the quality of community content.
Put pressure on anonymous1337, and he will revise the content he's contributed to the community. I'm sure that's what you were all thinking.
Well you were right. I'm not sure how long I'll last without revising that tutorial, now that you've put it in the spotlight.
My name's in the tutorial you link to on that page. If I don't revise it, I'll lose all of my dignity. I get a feeling this was premeditated effort intended to increase the quality of community content.
Put pressure on anonymous1337, and he will revise the content he's contributed to the community. I'm sure that's what you were all thinking.
Well you were right. I'm not sure how long I'll last without revising that tutorial, now that you've put it in the spotlight.
I also noticed that the download link goes directly to a Sourceforge site. There's no link for the various IDEs as before.. people will not bother using Freebasic without an IDE, and many won't bother looking for one if it's not staring them in the face.
ALSO
"Elegance, Power, Speed; Choose all three." is grammatically incorrect. It looks very unprofessional. That should be a colon, not a semicolon, and the C in "Choose" should not be capitalized.
ALSO
"Elegance, Power, Speed; Choose all three." is grammatically incorrect. It looks very unprofessional. That should be a colon, not a semicolon, and the C in "Choose" should not be capitalized.
-
- Posts: 124
- Joined: Aug 24, 2005 1:55
- Contact:
Speed is meaningful and measurable.
Power can be interpreted in several ways.
Elegance like beauty, is subjective.
It is best to start on solid ground, then lead their brain up the garden path, by turning it round to:
Either, my preferred: "Speed, Power, Elegance; choose all three."
Or an alternative: "Speed, Power, Elegance: Choose all three."
Power can be interpreted in several ways.
Elegance like beauty, is subjective.
It is best to start on solid ground, then lead their brain up the garden path, by turning it round to:
Either, my preferred: "Speed, Power, Elegance; choose all three."
Or an alternative: "Speed, Power, Elegance: Choose all three."
Speling and pungchewaishon don't upset me neither up or down, butmarinedalek wrote:Well, the C shouldn't be capitalised with a semicolon, but it should with a colon because in terms of capitalisation it is the same as a full stop (period).
Code: Select all
Dim Shared As Double next_x,next_y
Sub draw_string(xpos As Integer,ypos As Integer,text As String,colour As Uinteger,size As Single,textangle As Single=0,charangle As Single=0)
Type point2d
As Single x,y
As Uinteger col
End Type
Dim As Integer codenum=128 '(Full Asci 256 if required)
Static As Integer runflag
Static As point2d infoarray()
Redim Preserve As point2d infoarray(64,codenum) '64 = 8 x 8 pixel size
If runflag=0 Then ' 'scan codenum of codepage once
Dim As Uinteger background=Rgb(0,0,0)
Screenres 10,10,32 '8 x 8 pixels on this screen
Dim count As Integer
For ch As Integer=1 To codenum
Cls
Draw String(1,1),Chr(ch)
For x As Integer=1 To 8 'scan for characters
For y As Integer=1 To 8
If Point(x,y)<>background Then
count=count+1
infoarray(count,ch)=Type<point2d>(x,y)'save pixel position
End If
Next y
Next x
count=0
Next ch
runflag=1
End If
If size=0 Then Exit Sub
Dim As point2d temp(1 To 64,codenum),np
Dim As Single cr= 0.01745329,x1,y1,x2,y2 '(4*atn(1))/180=.017453....
#macro rotate(p1,p2,a,d)
np.col=p2.col
np.x=d*(Cos(a*cr)*(p2.x-p1.x)-Sin(a*cr)*(p2.y-p1.y)) +p1.x
np.y=d*(Sin(a*cr)*(p2.x-p1.x)+Cos(a*cr)*(p2.y-p1.y)) +p1.y
#endmacro
#macro _box()
Dim As Single dx=x2-x1,dy=y2-y1
Swap dx,dy:dx=-dx
Dim As Single p1x=x1+dx/2,p1y=y1+dy/2
Dim As Single p2x=x1-dx/2,p2y=y1-dy/2
Dim As Single p3x=x2+dx/2,p3y=y2+dy/2
Dim As Single p4x=x2-dx/2,p4y=y2-dy/2
Dim As Uinteger c=Rgb(255,255,254)
For x As Integer=1 To 2
Line(p1x,p1y)-(p2x,p2y),c
Line(p3x,p3y)-(p4x,p4y),c
Line(p1x,p1y)-(p3x,p3y),c
Line(p2x,p2y)-(p4x,p4y),c
Paint((p1x+p2x+p3x+p4x)/4,(p1y+p2y+p3y+p4y)/4),c,c
c=cpt(z).col
Next x
#endmacro
Dim As point2d cpt(1 To 64),c=Type<point2d>(xpos,ypos),c2
Dim As Single sz =size/2
Dim As Integer dx=xpos,dy=ypos,asci
For z6 As Integer=1 To Len(text)
asci=Asc(Mid(text,z6,1))
For x1 As Integer=1 To 64
temp(x1,asci).x=infoarray(x1,asci).x+dx
temp(x1,asci).y=infoarray(x1,asci).y+dy
temp(x1,asci).col=colour
Next x1
c2=Type<point2d>(xpos+(size*(z6-1)*8)*Cos(textangle*cr),ypos+(size*(z6-1)*8)*Sin(textangle*cr))
For z2 As Integer=1 To 64
rotate(c,temp(z2,asci),textangle,size)
cpt(z2)=np
If charangle<>0 Then
rotate(c2,cpt(z2),charangle,1)
cpt(z2)=np
End If
Next z2
For z As Integer=1 To 64
x1=cpt(z).x-sz*(Cos((textangle+charangle)*cr)):y1=cpt(z).y-sz*(Sin((textangle+CHARANGLE)*cr))
x2=cpt(z).x+sz*(Cos((textangle+charangle)*cr)):y2=cpt(z).y+sz*(Sin((textangle+charangle)*cr))
If infoarray(z,asci).x<>0 Then 'paint only relevant points
If Abs(size)>1 Then
_box()
Else
Pset(cpt(z).x,cpt(z).y),cpt(z).col
End If
End If
Next z
dx=dx+8
Next z6
next_x=dx+20
End Sub
Sub init
draw_string(0,0,"",0,0)
Screen 0
End Sub
init
Screen 19,32',,1
dim shared as single sz=3.5
dim shared as integer ln=17
dim as string q="Will they no come back again?"
type point2d
as double x,y
as uinteger col
as uinteger asci
as string char
end type
dim shared as point2d p1(1 to ln),p2(1 to ln)
sub storeline1(col as uinteger)
next_x=5:next_y=100
restore data1
For x As Integer=1 To ln
read p1(x).asci'u(x)
p1(x).char=chr(p1(x).asci)
p1(x).x=next_x:p1(x).y=next_y:p1(x).col=rgb(200,200,200)
draw_string(next_x,next_y,p1(x).char,col,sz)
next x
end sub
sub storeline2(col as uinteger)
next_x=5:next_y=300
restore data2
For x As Integer=1 To ln
read p2(x).asci'u(x)
p2(x).char=chr(p2(x).asci)
p2(x).x=next_x:p2(x).y=next_y:p2(x).col=rgb(00,00,0)
draw_string(next_x,next_y,p2(x).char,col,sz)
next x
end sub
sub writeline1(p() as point2d)
for x as integer=1 to ln
draw_string(p(x).x,p(x).y,p1(x).char,p(x).col,sz)
next x
end sub
sub writeline2(p() as point2d)
for x as integer=1 to ln
draw_string(p(x).x,p(x).y,p2(x).char,p(x).col,sz)
next x
end sub
storeline1 rgb(0,0,0)
storeline2 rgb(0,0,0)
dim temp(1 to ln) as string
dim as double dx,dy,sx,sy,temp2
for x1 as integer=1 to ln
for x2 as integer=1 to ln
if temp(x2)<>p1(x1).char then
if p1(x1).char=p2(x2).char then
temp(x2)=p1(x1).char
dx=p2(x2).x-p1(x1).x
dy=p2(x2).y-p1(x1).y
temp2=sqr(dx^2+dy^2)
dx=dx/temp2:dy=dy/temp2
for z as single=0 to temp2 step 5
screenlock
cls
writeline1(p1())
sx=p1(x1).x+z*dx
sy=p1(x1).y+z*dy
draw_string(sx,sy,p2(x2).char,p1(x2).col,sz)
writeline2(p2())
screenunlock
sleep 1,1
next z
p2(x2).col=p1(x2).col
exit for
end if
end if
next x2
next x1
cls
writeline1(p1())
writeline2(p2())
draw_string 150,500,q,rgb(0,100,0),2
'__________________________________________________
Sleep
DATA2:
data 65,82,67,72,73,86,69,83,32,65,82,69,32,71,79,78,69
DATA1:
data 72,79,65,82,83,69,32,71,82,73,69,86,65,78,67,69,32