The new website

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

NACE

Postby ike » Aug 14, 2011 4:10

NACE
agamemnus
Posts: 1842
Joined: Jun 02, 2005 4:48

Postby agamemnus » Aug 19, 2011 22:54

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
Posts: 255
Joined: Jan 05, 2006 0:56

Postby BastetFurry » Aug 21, 2011 10:39

Looks like a parked domain now. Zero personality. *shouder*
counting_pine
Site Admin
Posts: 6229
Joined: Jul 05, 2005 17:32
Location: Manchester, Lancs

Postby counting_pine » Aug 22, 2011 23:49

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
Posts: 9986
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Postby fxm » Aug 23, 2011 14:34

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
Posts: 3604
Joined: Dec 06, 2009 22:27
Location: N47°, E15°
Contact:

Postby TJF » Aug 23, 2011 15:25

fxm wrote: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
Posts: 9986
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Postby fxm » Aug 23, 2011 18:14

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.

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.

I would think this is the website phatcode (hosting freeBbsic) which has big problems for a week.
agamemnus
Posts: 1842
Joined: Jun 02, 2005 4:48

Postby agamemnus » Aug 23, 2011 21:28

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
Posts: 2338
Joined: May 31, 2005 9:59
Location: Croatia
Contact:

Postby Lachie Dazdarian » Aug 23, 2011 21:36

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
Posts: 9986
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Postby fxm » Aug 23, 2011 22:03

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

IMHO, the right link is:
http://radasm.cherrytree.at/
anonymous1337
Posts: 5494
Joined: Sep 12, 2005 20:06
Location: California

Postby anonymous1337 » Aug 24, 2011 5:46

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
Posts: 1842
Joined: Jun 02, 2005 4:48

Postby agamemnus » Aug 24, 2011 18:15

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
Posts: 124
Joined: Aug 24, 2005 1:55
Contact:

Postby marinedalek » Aug 25, 2011 0:03

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
Posts: 3036
Joined: Jan 15, 2007 20:44
Location: Australia

Postby Richard » Aug 25, 2011 1:22

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
Posts: 6723
Joined: Jan 10, 2006 20:30
Location: Scotland

Postby dodicat » Aug 25, 2011 2:36

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

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



Return to “Community Discussion”

Who is online

Users browsing this forum: song and 1 guest