New website
Re: New website
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 ...)
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 ...)
Re: New website
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.
Re: New website
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"
No administrator reaction on our proposals to improve the search function on the forum, and to reactive the -button?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 ...)
Re: New website
Sounds good to me.
Re: New website
Thank you.
But who has the rights to do it?
But who has the rights to do it?
Re: New website
counting_pine,
Do you have administrator rights for making the adjustments as proposed above?
(viewtopic.php?p=253482#p253482)
Do you have administrator rights for making the adjustments as proposed above?
(viewtopic.php?p=253482#p253482)
-
- Site Admin
- Posts: 6323
- Joined: Jul 05, 2005 17:32
- Location: Manchester, Lancs
Re: New website
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.
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.
Re: New website
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)
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)
Re: New website
And so for all his requests, what do admins decide?
Re: New website
Thanks to whoever (finally) fixed the CSS to make tt tags work again!
-
- Site Admin
- Posts: 6323
- Joined: Jul 05, 2005 17:32
- Location: Manchester, Lancs
Re: New website
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.
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.
Re: New website
A big thank-you.
Re: New website
Thanks (Teletype test)
Re: New website
Thank you counting pine.
I have an old blueprint of a shed for fxm's new garden.
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
Re: New website
Would be nice to have a globe (with map) like that which the mouse can turn.