New website

For other topics related to the FreeBASIC project or its community.
MrSwiss
Posts: 3191
Joined: Jun 02, 2013 9:27
Location: Switzerland

Re: New website

Postby MrSwiss » Oct 10, 2018 13:26

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

And, I have a additional request:
Please, get the [tt]-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
Posts: 9077
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: New website

Postby fxm » Oct 10, 2018 13:41

Me too, I used before the [tt] 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
Posts: 9077
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: New website

Postby fxm » Oct 17, 2018 19:00

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 [tt]-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 [tt]-button?
coderJeff
Site Admin
Posts: 2957
Joined: Nov 04, 2005 14:23
Location: Ontario, Canada
Contact:

Re: New website

Postby coderJeff » Oct 18, 2018 0:38

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

Re: New website

Postby fxm » Oct 18, 2018 6:08

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

Re: New website

Postby fxm » Nov 03, 2018 20:59

counting_pine,

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

Re: New website

Postby counting_pine » Nov 04, 2018 17:41

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 [tt], 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: 3191
Joined: Jun 02, 2013 9:27
Location: Switzerland

Re: New website

Postby MrSwiss » Nov 06, 2018 14:31

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

Re: New website

Postby fxm » Nov 24, 2018 14:47

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

Re: New website

Postby St_W » Nov 24, 2018 20:39

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

Re: New website

Postby counting_pine » Nov 24, 2018 21:19

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

Re: New website

Postby fxm » Nov 24, 2018 22:24

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

Re: New website

Postby badidea » Nov 24, 2018 23:34

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

Re: New website

Postby dodicat » Nov 25, 2018 15:44

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: 834
Joined: Oct 19, 2017 15:00
Location: 't Zand, NL
Contact:

Re: New website

Postby Munair » Nov 25, 2018 16:07

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

Return to “Community Discussion”

Who is online

Users browsing this forum: No registered users and 15 guests