Are there official graphics for downloading?

General discussion for topics related to the FreeBASIC project or its community.
Post Reply
song
Posts: 48
Joined: Jan 24, 2006 8:39

Are there official graphics for downloading?

Post by song »

I think that some FreeBASIC users really need official graphics for various purposes.

An example. This type of graphic:

https://love2d.org/wiki/Löve_Logo_Graphics

This kind of graphic may be an effective promotion for FreeBASIC. Thank you.

(Any forum member who is good at creating graphics is willing to design and make different sizes of official graphics for FreeBASIC?)
St_W
Posts: 1627
Joined: Feb 11, 2009 14:24
Location: Austria
Contact:

Re: Are there official graphics for downloading?

Post by St_W »

If just the logo is enough you can find it in the repo: https://github.com/freebasic/fbc/tree/master/contrib
song
Posts: 48
Joined: Jan 24, 2006 8:39

Re: Are there official graphics for downloading?

Post by song »

St_W wrote:If just the logo is enough you can find it in the repo: https://github.com/freebasic/fbc/tree/master/contrib
Thanks!

There are several PNG files:

Image
Image

Image
Image

The most important file, SVG file, cannot be opened by graphic editors. (Ordinary SVG file can be enlarged to various sizes without loss of image quality.) I hope that graphic expert will repair the SVG file. Thanks. I can't open this SVG file with Paint.net and other several image editors.
https://raw.githubusercontent.com/freeb ... fblogo.svg

I also hope that graphic experts will make a SVG file of the horse logo with the word "freeBASIC".(The one at the top left corner of this official forum.)
dodicat
Posts: 7987
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: Are there official graphics for downloading?

Post by dodicat »

Couldn't find any pictures, but I found an old negative.

Code: Select all

 Dim As String nag = _
"C0BM197,165M+5,-27M+3,-25M+4,-21M+6,-10M+15,-10"_
&"M+5,-4M+11,-4M+8,0M+2,4M+48,1M+15,7"_
&"M+15,7M+12,10M+12,13M+19,27M+7,15M+6,13"_
&"M+7,7M+23,5M+39,-9M+37,-10M+20,-1M+24,3"_
&"M+30,5M+18,-10M+34,-23M+15,-3M+18,6M+15,11"_
&"M+12,15M+2,28M+5,39M+-5,18M+-17,38M+-7,14"_
&"M+-20,34M+-12,21M+-4,9M+-2,3M+-1,37M+4,9"_
&"M+-4,1M+-9,-7M+-7,-17M+-3,-30M+6,-38M+23,-59"_
&"M+4,-29M+-3,-21M+-13,-17M+-10,-6M+-13,-4M+-17,0"_
&"M+-6,3M+5,18M+11,28M+0,27M+-3,15M+-7,13"_
&"M+-10,16M+-12,11M+-9,11M+-9,10M+6,19M+8,13"_
&"M+5,6M+6,12M+-4,11M+-12,17M+-14,13M+-10,13"_
&"M+-8,13M+-7,10M+-4,11M+-12,6M+-8,3M+-5,11"_
&"M+0,6M+-28,-9M+3,-12M+8,-8M+13,-7M+8,-5"_
&"M+12,-10M+9,-16M+10,-15M+12,-15M+0,-10M+-3,-13"_
&"M+-2,-8M+-5,1M+-3,12M+-8,9M+-12,13M+-10,13"_
&"M+-7,16M+-8,15M+-5,8M+-8,11M+-9,9M+-13,12"_
&"M+-3,9M+273,4M+0,13M+-382,-1M+-1,-12M+71,-3"_
&"M+20,-21M+27,-20M+28,-41M+6,-14M+5,-20M+-19,-35"_
&"M+-7,-10M+-8,-7M+-9,-4M+-16,7M+-12,3M+-29,0"_
&"M+-22,1M+-14,21M+-13,27M+-13,19M+-12,30M+-7,22"_
&"M+-4,19M+-7,22M+31,3M+-1,15M+-171,-1M+-2,-13"_
&"M+95,-2M+13,-8M+15,-9M+8,-13M+8,-21M+5,-32"_
&"M+5,-22M+9,-21M+8,-22M+8,-19M+-3,-4M+-17,5"_
&"M+-9,3M+-69,0M+-4,7M+-4,12M+5,17M+9,10"_
&"M+13,14M+11,10M+10,3M+12,4M+4,11M+-2,12"_
&"M+-8,7M+-8,-4M+-20,-14M+-15,-13M+-36,-56M+-2,-19"_
&"M+7,-14M+15,-8M+48,-20M+-7,-26M+5,-11M+1,-11"_
&"M+7,-7M+6,-11M+8,-18M+3,-18M+-1,-14M+-4,-10"_
&"M+-6,-11M+-8,1M+-14,12M+-7,10M+-3,15M+-6,8"_
&"M+-12,-2M+-16,-6M+-4,-17M+1,-16"_
&"BM+191,77P4294967295,0"
'======================== variables/macros ==========================
Dim  As Integer pitch,pitchS,mx,my
Dim  As Any Pointer row,rowS
Dim As Ulong c
#define dist(x,y,mx,my) sqr((mx-x)*(mx-x)+(my-y)*(my-y))
#define getpixel(_x,_y)           *cptr(ulong ptr,row + (_y)*pitch + (_x) shl 2)
#define putpixel(_x,_y,colour)    *cptr(ulong ptr,rowS+ (_y)*pitchS+ (_x) shl 2)  =(colour)
#define map(a,b,x,c,d) ((d)-(c))*((x)-(a))/((b)-(a))+(c)
'=============================================================
Screenres 800,600,32
Dim As Any Ptr i=Imagecreate(800,600,Rgb(0,0,0))
Imageinfo i,,,,pitch,row
Screeninfo ,,,,pitchS
rowS=Screenptr
Draw i,nag
Setmouse ,,0,1
Do
    Getmouse mx,my
    Screenlock
    For x As long=0 To 799
        For y As long=0 To 599
            Var d=dist(x,y,mx,my)
            c=GetPixel(x,y)
            Var clr=Cptr(Ubyte Ptr,@c),f=map(0,250,d,1,0)
            If f<0 Then f=0
            PutPixel(x,y,Rgb(f*clr[2],f*clr[1],f*clr[0]))
        Next y
    Next x
    Screenunlock
    Sleep 1,1
Loop Until Len(Inkey)
imagedestroy i
 
Tourist Trap
Posts: 2958
Joined: Jun 02, 2015 16:24

Re: Are there official graphics for downloading?

Post by Tourist Trap »

song wrote:I can't open this SVG file with Paint.net and other several image editors.
https://raw.githubusercontent.com/freeb ... fblogo.svg
I also hope that graphic experts will make a SVG file of the horse logo with the word "freeBASIC".(The one at the top left corner of this official forum.)
The file is not broken, you will open it if you use Inkscape for instance, or something else that can edit the SVG vector format. Then adding some text to it shouldn't be too difficult.
song
Posts: 48
Joined: Jan 24, 2006 8:39

Re: Are there official graphics for downloading?

Post by song »

.

dodicat, Tourist Trap,
Thanks a lot!

By the way, there are actually many software logos which are good designs. They are effective promotions for the softwares.
Image
Image
Image
Image
Image
Image
Image
Post Reply