New website

General discussion for topics related to the FreeBASIC project or its community.
MrSwiss
Posts: 3910
Joined: Jun 02, 2013 9:27
Location: Switzerland

Re: New website

Post by MrSwiss »

Yes, I also want to second, what's been stated so far: fxm / bcohio2001.

And, I have a additional request:
Please, get the -button to work again, as it did in the previous design:
MONO-SPACED-FONT (tt = tele-type style)
Which was really usefull, to explain coding mistakes (inside flowed text),
without the rather massive break, introduced, by having to use [code]-tags.
(even for a single line of code ...)
fxm
Moderator
Posts: 12081
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: New website

Post by fxm »

Me too, I used before the control to highlight some keyword/code inserted in the text. Now, I put it in italics surrounded by simple quotes, but it is less visible than before.
fxm
Moderator
Posts: 12081
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: New website

Post by fxm »

fxm wrote:For the Search Query menu:

Admins,

Could you reduce the minimum size of words taken into account for the search function from 4 to 3 (as is done on other forums) ?
I think that a sequence of 3 concordant characters (acronym for example) is already quite discriminating as a search criterion.
This would often avoid going to Google for example, to search inside the FreeBASIC forum.
TJF wrote: I second that. I mislike that I often have to use external search engines for 3 letter word searches.
bcohio2001 wrote:And allow for searches with the underscore character. Such as "__FB_64BIT__" or "WM_PAINT"
MrSwiss wrote: And, I have a additional request:
Please, get the -button to work again, as it did in the previous design:
MONO-SPACED-FONT (tt = tele-type style) Which was really usefull, to explain coding mistakes (inside flowed text), without the rather massive break, introduced, by having to use [code]-tags.
(even for a single line of code ...)
No administrator reaction on our proposals to improve the search function on the forum, and to reactive the -button?
coderJeff
Site Admin
Posts: 4313
Joined: Nov 04, 2005 14:23
Location: Ontario, Canada
Contact:

Re: New website

Post by coderJeff »

Sounds good to me.
fxm
Moderator
Posts: 12081
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: New website

Post by fxm »

Thank you.
But who has the rights to do it?
fxm
Moderator
Posts: 12081
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: New website

Post by fxm »

counting_pine,

Do you have administrator rights for making the adjustments as proposed above?
(viewtopic.php?p=253482#p253482)
counting_pine
Site Admin
Posts: 6323
Joined: Jul 05, 2005 17:32
Location: Manchester, Lancs

Re: New website

Post by counting_pine »

OK, regarding the three-character search limit - it can be done but involves changing the search backend or the SQL configuration on the server. I could try the former, but I don't know what consequences it will have on things like server load, processing speed, internal cache use...

With , it used to work, and it still produces text in <tt> HTML tags, but I think at some point a forum upgrade changed the CSS for <tt> so that it's no longer monospaced.
MrSwiss
Posts: 3910
Joined: Jun 02, 2013 9:27
Location: Switzerland

Re: New website

Post by MrSwiss »

AFAIK, the search string minimum lenght setting, involves only a change in the BB's
Administrative Panel. (admin rights in the BB itself)

Since a CSS is a ordinary text file, changing a <TAG>'s Font setting, should be easy.
The bigger problem (related to CSS behaviour, of overlapping) is usually, to figure
out which CSS file needs to be edited. This needs rights on the Web-Server.
(because file access is needed, to download/edit/upload, over FTP usually)
fxm
Moderator
Posts: 12081
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: New website

Post by fxm »

And so for all his requests, what do admins decide?
St_W
Posts: 1618
Joined: Feb 11, 2009 14:24
Location: Austria
Contact:

Re: New website

Post by St_W »

Thanks to whoever (finally) fixed the CSS to make tt tags work again!
counting_pine
Site Admin
Posts: 6323
Joined: Jul 05, 2005 17:32
Location: Manchester, Lancs

Re: New website

Post by counting_pine »

I've fixed the CSS for the <tt> HTML element, and changed the forum search engine to one that allows three-character searches.
I had to update an scss file for the current forum theme, and install an scss compiler module to actually get the changes working.
The new index has led to a notable increase in HDD and SQL usage on the server - about 200MB total. That may become a concern at some point.
fxm
Moderator
Posts: 12081
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: New website

Post by fxm »

A big thank-you.
badidea
Posts: 2586
Joined: May 24, 2007 22:10
Location: The Netherlands

Re: New website

Post by badidea »

Thanks (Teletype test)
dodicat
Posts: 7976
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: New website

Post by dodicat »

Thank you counting pine.
I have an old blueprint of a shed for fxm's new garden.

Code: Select all

Dim As Integer xres,yres
Screen 19
Screeninfo xres,yres
Type V3
    As Single x,y,z
    As Uinteger col
    #define vct Type<V3>
End Type

Type angle
    As Single a(1 To 6)
End Type

Function Rotate(c As V3,p As V3,a As angle,scale As V3=vct(1,1,1)) As V3
    Dim As Single dx=p.x-c.x,dy=p.y-c.y,dz=p.z-c.z
    Return vct((scale.x)*((a.a(5)*a.a(6))*dx+(-a.a(4)*a.a(3)+a.a(1)*a.a(2)*a.a(6))*dy+(a.a(1)*a.a(3)+a.a(4)*a.a(2)*a.a(6))*dz)+c.x,_
    (scale.y)*((a.a(5)*a.a(3))*dx+(a.a(4)*a.a(6)+a.a(1)*a.a(2)*a.a(3))*dy+(-a.a(1)*a.a(6)+a.a(4)*a.a(2)*a.a(3))*dz)+c.y,_
    (scale.z)*((-a.a(2))*dx+(a.a(1)*a.a(5))*dy+(a.a(4)*a.a(5))*dz)+c.z,p.col)
End Function

Function perspective(p As V3,eyepoint As V3) As V3
    Dim As Single   w=1+(p.z/eyepoint.z)
    Return vct((p.x-eyepoint.x)/w+eyepoint.x,_
    (p.y-eyepoint.y)/w+eyepoint.y,_
    (p.z-eyepoint.z)/w+eyepoint.z,p.col)
End Function 

Function map(a As Double,b As Double,x As Double,c As Double,d As Double) As Double
    Return ((d)-(c))*((x)-(a))/((b)-(a))+(c)
End Function

Sub expand(p() As v3,m As Single,t As v3)
    Dim As Single cx,cy,cz
    For n As Long=Lbound(p) To Ubound(p)
        cx+=p(n).x:cy+=p(n).y:cz+=p(n).z
    Next
    Var s=Ubound(p)-Lbound(p)+1
    cx=cx/s:cy=cy/s:cz=cz/s
    
    For n As Long=Lbound(p) To Ubound(p)
        p(n).x=t.x+m*(p(n).x-cx)
        p(n).y=t.y+m*(p(n).y-cy)
        p(n).z=t.z+m*(p(n).z-cz)
    Next 
End Sub

Sub translate(p() As v3,t As V3)
    For n As Long=Lbound(p) To Ubound(p)
        p(n).x+=t.x
        p(n).y+=t.y
        p(n).z+=t.z
    Next 
End Sub

Function Regulate(Byval MyFps As Integer,Byref fps As Integer=0) As Integer
    Static As Double timervalue,lastsleeptime,t3,frames
    Var t=Timer
    frames+=1
    If (t-t3)>=1 Then t3=t:fps=frames:frames=0
    Var sleeptime=lastsleeptime+((1/myfps)-T+timervalue)*1000
    If sleeptime<1 Then sleeptime=1
    lastsleeptime=sleeptime
    timervalue=T
    Return sleeptime
End Function

Sub _line(x1 As Integer,y1 As Integer,x2 As Integer,y2 As Integer,l As Integer,col As Uinteger,Byref xp As Integer=0,Byref yp As Integer=0)
    Dim As Integer diffx=x2-x1,diffy=y2-y1,ln=Sqr(diffx*diffx+diffy*diffy)
    If ln=0 Then ln=1e-6
    Dim As Single nx=diffx/ln,ny=diffy/ln 
    xp=x1+l*nx:yp=y1+l*ny
    Line(x1,y1)-(xp,yp),col
End Sub

Sub Nmouse(mx As Integer,my As Integer,sz As Integer,col As Ulong)
    Getmouse mx,my
    Dim As Integer xp,yp
    _line(mx,my,mx+sz,my+.8*sz,sz,col,xp,yp)
    _line(xp,yp,mx+sz/2,yp+.03*sz,.4*sz,col,xp,yp)
    Var tx=xp,ty=yp
    _line(mx,my,mx,my+1.2*sz,sz,col,xp,yp)
    _line(xp,yp,mx+sz/2,yp-sz/2,.4*sz,col,xp,yp)
    _line(xp,yp,mx+sz/2,yp+sz/2,sz,col,xp,yp)
    _line(xp,yp,xp+sz/2,yp-.4*sz,.2*sz,col,xp,yp)
    _line(xp,yp,tx,ty,.95*sz,col,xp,yp)
    Paint(mx+.1*sz,my+.2*sz),col/2,col
End Sub


Sub joinpoints(p() As v3,n As Long)
    #define j(p1,p2) Line (p1.x,p1.y)-(p2.x,p2.y),4
    j(p(1),p(2))
    j(p(2),p(3))
    j(p(3),p(4))
    j(p(4),p(5))
    j(p(5),p(1))
    
    j(p(1+5),p(2+5))
    j(p(2+5),p(3+5))
    j(p(3+5),p(4+5))
    j(p(4+5),p(5+5))
    j(p(5+5),p(1+5))
    
    j(p(1),p(6))
    j(p(2),p(7))
    j(p(3),p(8))
    j(p(4),p(9))
    j(p(5),p(10))
    Var f=map(10,-10,n,2,.1)
    Circle(p(1).x,p(1).y),f*map(200,-200,p(1).z,5,7),6,,,,f
    Circle(p(10).x,p(10).y),f*map(200,-200,p(10).z,5,7),6,,,,f
    Circle(p(5).x,p(5).y),f*map(200,-200,p(5).z,5,7),6,,,,f
    Circle(p(6).x,p(6).y),f*map(200,-200,p(6).z,5,7),6,,,,f
End Sub

#macro display()
Screenlock
Cls

scale=Type(1+mw/10,1+mw/10,1+mw/10)
If scale.x<.1 Then scale=Type(.1,.1,.1)

angle.y+=.01
A=Type<angle>({Sin(angle.x),Sin(angle.y),Sin(angle.z),Cos(angle.x),Cos(angle.y),Cos(angle.z)}) 
For n As Long=Lbound(pts) To Ubound(pts)
    rot(n)=rotate(ctr,pts(n),A,scale)
    rot(n)=perspective(rot(n),eyepoint)
Next n
joinpoints(rot(),mw)
Draw String(p1.x+10,p1.y-5),msg

Circle(p1.x,p1.y),10,5,,,,f
Nmouse(p1.x,p1.y,25,8)
Screenunlock
Sleep regulate(60),1
#endmacro

#macro mouse(pt)
Dim As Integer x=mx,y=my,dx,dy
While mb = 1
    Display()
    Getmouse mx,my,,mb
    If onscreen Then
        If mx<>x Or my<>y  Then
            dx = mx - x
            dy = my - y
            x = mx
            y = my
            pt.x=x+dx
            pt.y=y+dy
            eyepoint.x=pt.x:eyepoint.y=pt.y
        End If
    End If
    msg=""
Wend
#endmacro

#define incircle(cx,cy,radius,x,y) (cx-x)*(cx-x) +(cy-y)*(cy-y)<= radius*radius
#define onscreen (mx>0) and (mx<xres) and (my>0) and (my<yres)

Dim As v3 pts(1 To 10)
pts(1)=vct(-1,1,-2)
pts(2)=vct(-1,-1,-2)
pts(3)=vct(0,-2,-2)
pts(4)=vct(1,-1,-2)
pts(5)=vct(1,1,-2)

pts(6)=vct(-1,1,2)
pts(7)=vct(-1,-1,2)
pts(8)=vct(0,-2,2)
pts(9)=vct(1,-1,2)
pts(10)=vct(1,1,2)
expand(pts(),80,vct(400,300,0))

Dim As v3 rot(Lbound(pts) To Ubound(pts))
Dim As V3 eyepoint=vct(400,300,800)
Dim As V3 ctr=vct(400,300,0)
Dim As V3 scale=vct(1,1,1)
Dim As v3 angle

Dim As angle A
Dim As V3 p1,p2
p1.x=100:p1.y=550
Dim As Integer mx,my,mb,mw,rflag
Dim As String msg="<----  mouse"
#define resetwheel(w,fl) fl=w
#define wheel(w,f) w-f
Setmouse ,,0
Do
    Getmouse mx,my,mw,mb
    If mb=2 Then  resetwheel(mw,rflag)   'right cick to reset wheel
    mw=wheel(mw,rflag)
    display() 
    mouse(p1)
Loop Until Inkey=Chr(27)

Sleep


  
Munair
Posts: 1286
Joined: Oct 19, 2017 15:00
Location: Netherlands
Contact:

Re: New website

Post by Munair »

Would be nice to have a globe (with map) like that which the mouse can turn.
Post Reply