The new website

[ike]

NACE

[agamemnus]

The site design does not fit 800x600 (or heck, I'm actually using 1280x1024 and it STILL doesn't fit..) I'm fine with that; at least there is a scrollbar. But, for the love of god, please don't mess with the forum like that.

I also have no idea why the links are hidden on the bottom of the page.

[BastetFurry]

Looks like a parked domain now. Zero personality. *shouder*

[counting_pine]

Hi. I've been away for a week, and then suffered a spell of computer/Internet related problems. Great to see the new site up!

Just thinking, would now be a good point to upgrade the phpbb software?

[fxm]

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.

[TJF]

Am I the only one to see this behavior?

This somewhat spoils the new website.

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.

[fxm]

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 second that (connecting from Europe).
I tried to send a post. I had to store the text local and send it 1 hour later.

I would think this is the website phatcode (hosting freeBbsic) which has big problems for a week.

[agamemnus]

The ultimate host, Site5, changed our (Phatcode's) servers, and there were some problems as usual. My own domain names weren't working because the old nameservers stopped working.

[Lachie Dazdarian]

Don't want to be negative, but I don't think I like anything about the new layout and design. Wouldn't know where to start, beside make a complete overhaul. But kudos for making any change, if nothing else. At least the forum is easier to find now.

[fxm]

Gallery: the link (as follows) to FBedit does not work:
http://fbedit.freebasic.net/

IMHO, the right link is:
http://radasm.cherrytree.at/

[anonymous1337]

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.

[agamemnus]

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.

[marinedalek]

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).

[Richard]

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."

[dodicat]

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).

Speling and pungchewaishon don't upset me neither up or down, but

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