Fontstructions tagged with “Bar”

10 52352 Published: 3rd January, 2019
Last edited: 5th January, 2019
Created: 3rd January, 2019

A quaint and slightly whimsical serif doodle which quickly turned into something serious!

Creative Commons

24 811372 Published: 10th December, 2018
Last edited: 14th January, 2019
Created: 10th December, 2018

Font from the ingame marquee display of Barcade Brawl, a 2015 game by yours truly. This was made to look similar to the system fonts from old arcade boards, PC microsystems, etc. You've probably seen the fonts I'm talking about; they're everywhere and many people refer to them singularly as "the arcade font" or "the NES font".

This is 7x7 with no wasted matrix, but it looks better without monospacing since not every glyph is the same width. It also makes a decent terminal & chat font, at least for those who don't care about the case of the messages they read and write.

Feel free to use this in your games, etc.!

*

Original size: 5.25pt (use multiples of this size for pixel perfection)

Creative Commons

10 1861 Published: 13th August, 2018
Last edited: 2nd October, 2018
Created: 13th August, 2018

A gnarled, pointy design which fits into many historical periods and aesthetics. It makes me think of Wild West woodtype and gargoyles.

Creative Commons

8 11020 Published: 11th August, 2018
Last edited: 19th September, 2018
Created: 11th August, 2018

Neon-style lettering in 5x5. I tried to keep the considerations of neon tubes in mind. Most forms are simple and several of them get repurposed for other glyphs. Further, the bends which would occur in actual neon tubing were taken into account while routing each glyph.

A closer look will find some advanced glyphs which would have to be produced by a master glassblower in order to work as neon fixtures (such as DHJKXOQ08*#+).

*

This is spaced like a pixel font so that it can be used as one. Fonts which work especially well in both pixel and high-res mediums can be considered Hybrids.

"Lightened Son" is an anagram for "Neon Delights".

*

Idea for Improvement: A wiring solution - some system designed to be on a layer behind the letters so that they look convincingly wired up.

See also:Technokratz family

Creative Commons

11 12003 Published: 16th May, 2013
Last edited: 28th January, 2013
Created: 26th January, 2013
A monospaced font I did with my dormitory in mind (Robert Jacobsen Kollegiet). The intended use was for the bar logo and menus and such. Never actually got used, but it might be at some point.

Monospaced

Creative Commons

7 0522 Published: 19th January, 2013
Last edited: 19th January, 2013
Created: 19th January, 2013
This font is impossibly thin, like a rubber band. In sample text it looks sorta like a barcode

Creative Commons

6 0990 Published: 3rd March, 2012
Last edited: 3rd March, 2012
Created: 2nd March, 2012
I cloned the ASCII SB font to use it as a basic template for assigning the bars for this code font. 0's are black spaces and 1's are white spaces. The bars are 8 spaces of 4x4 squares. there is no spacing between characters to keep the barcode look to it.This is a clone of ASCII SB

Creative Commons

11 0972 Published: 3rd February, 2012
Last edited: 3rd February, 2012
Created: 2nd February, 2012
It is a format based on Binary Code and is almost correct try it out today

Creative Commons

27 11153 Published: 30th December, 2011
Last edited: 30th December, 2011
Created: 30th December, 2011
Clone of bargraphPM with bar display for both positive and negative valuesThis is a clone of bargraphPM

Creative Commons

119 01155 Published: 30th December, 2011
Last edited: 30th December, 2011
Created: 30th December, 2011
Clone of bargraph with support for positive and negative bars.This is a clone of bargraph

Creative Commons

57 1288 Published: 17th August, 2011
Last edited: 17th August, 2011
Created: 30th July, 2011
English characters manipulated to look like Hindi or something.

Creative Commons

7 0990 Published: 14th July, 2010
Last edited: 3rd August, 2010
Created: 14th July, 2010
This font is what I personally use for making userbars. Made the font to save time ENJOY! :D

Creative Commons

17 0912 Published: 23rd May, 2010
Last edited: 23rd May, 2010
Created: 22nd May, 2010
Horizontal-bar font.

Creative Commons

16 1151 Published: 13th February, 2010
Last edited: 8th February, 2010
Created: 8th February, 2010
Font for creation barcodes. This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report.

Monospaced

Creative Commons

11 0150 Published: 13th February, 2010
Last edited: 8th February, 2010
Created: 8th February, 2010
Font for creation barcodes. This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report.

Monospaced

Creative Commons

14 0310 Published: 13th February, 2010
Last edited: 13th February, 2010
Created: 12th February, 2010
Font for creation barcodes. This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report. This is a clone of Bar31

Monospaced

Creative Commons

13 0310 Published: 13th February, 2010
Last edited: 13th February, 2010
Created: 12th February, 2010
Font for creation barcodes. This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report. This is a clone of Bar15

Monospaced

Creative Commons

10 0630 Published: 13th February, 2010
Last edited: 13th February, 2010
Created: 13th February, 2010
More sophisticated font for creation barcodes. Contains space - chr(32) and 63 bar characters from chr(33) to chr(95). This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report. Visual basic function below display barcode of Code128 type. Function Code128(s As String) As String Dim A As Variant A = Array("11011001100", "11001101100", "11001100110", "10010011000", "10010001100", _ "10001001100", "10011001000", "10011000100", "10001100100", "11001001000", _ "11001000100", "11000100100", "10110011100", "10011011100", "10011001110", _ "10111001100", "10011101100", "10011100110", "11001110010", "11001011100", _ "11001001110", "11011100100", "11001110100", "11101101110", "11101001100", _ "11100101100", "11100100110", "11101100100", "11100110100", "11100110010", _ "11011011000", "11011000110", "11000110110", "10100011000", "10001011000", _ "10001000110", "10110001000", "10001101000", "10001100010", "11010001000", _ "11000101000", "11000100010", "10110111000", "10110001110", "10001101110", _ "10111011000", "10111000110", "10001110110", "11101110110", "11010001110", _ "11000101110", "11011101000", "11011100010", "11011101110", "11101011000", _ "11101000110", "11100010110", "11101101000", "11101100010", "11100011010", _ "11101111010", "11001000010", "11110001010", "10100110000", "10100001100", _ "10010110000", "10010000110", "10000101100", "10000100110", "10110010000", _ "10110000100", "10011010000", "10011000010", "10000110100", "10000110010", _ "11000010010", "11001010000", "11110111010", "11000010100", "10001111010", _ "10100111100", "10010111100", "10010011110", "10111100100", "10011110100", _ "10011110010", "11110100100", "11110010100", "11110010010", "11011011110", _ "11011110110", "11110110110", "10101111000", "10100011110", "10001011110", _ "10111101000", "10111100010", "11110101000", "11110100010", "10111011110", _ "10111101110", "11101011110", "11110101110", "11010000100", "11010010000", _ "11010011100", "1100011101011") Dim CheckSum As Long Dim Ct As Integer Dim Cr As Integer Dim Tx As String Dim Tp As String Dim i As Integer Tx = "" If Len(s) > 0 Then i = 1 Ct = 0 If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Tp = "C" Tx = A(105) CheckSum = 105 Else Tp = "B" Tx = A(104) CheckSum = 104 End If While i <= Len(s) If Len(s) - i > 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" And _ Mid(s, i + 2, 1) >= "0" And Mid(s, i + 2, 1) <= "9" And _ Mid(s, i + 3, 1) >= "0" And Mid(s, i + 3, 1) <= "9" Then Ct = Ct + 1 Cr = 99 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "C" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If Else If Len(s) - i = 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else While i <= Len(s) Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 Wend End If Else If Tp = "C" Then Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If End If Wend Cr = CheckSum Mod 103 Tx = Tx & A(Cr) Tx = Tx & A(106) End If Code128 = ToBar63(Tx) End Function Function ToBar63(s As String) Dim i As Integer ToBar63 = "" If Len(s) Mod 6 <> 0 Then s = s & Replace(Space(6 - Len(s) Mod 6), " ", "0") For i = 1 To Len(s) / 6 ToBar63 = ToBar63 & Chr(BinToDec(Mid(s, i * 6 - 5, 6)) + 32) Next i End Function Function BinToDec(Bits As String) As Long If Len(Bits) > 0 Then BinToDec = 2 * BinToDec(Left(Bits, Len(Bits) - 1)) + CLng(Right(Bits, 1)) End If End FunctionThis is a clone of Bar31

Monospaced

Creative Commons

Palmer Lake

Some fonts you just can’t FontStruct.
Buy & download premium fonts on MyFonts.com

18 0630 Published: 13th February, 2010
Last edited: 13th February, 2010
Created: 13th February, 2010
More sophisticated font for creation barcodes. Contains space - chr(32) and 63 bar characters from chr(33) to chr(95). This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report. Visual basic function below display barcode of Code128 type. Function Code128(s As String) As String Dim A As Variant A = Array("11011001100", "11001101100", "11001100110", "10010011000", "10010001100", _ "10001001100", "10011001000", "10011000100", "10001100100", "11001001000", _ "11001000100", "11000100100", "10110011100", "10011011100", "10011001110", _ "10111001100", "10011101100", "10011100110", "11001110010", "11001011100", _ "11001001110", "11011100100", "11001110100", "11101101110", "11101001100", _ "11100101100", "11100100110", "11101100100", "11100110100", "11100110010", _ "11011011000", "11011000110", "11000110110", "10100011000", "10001011000", _ "10001000110", "10110001000", "10001101000", "10001100010", "11010001000", _ "11000101000", "11000100010", "10110111000", "10110001110", "10001101110", _ "10111011000", "10111000110", "10001110110", "11101110110", "11010001110", _ "11000101110", "11011101000", "11011100010", "11011101110", "11101011000", _ "11101000110", "11100010110", "11101101000", "11101100010", "11100011010", _ "11101111010", "11001000010", "11110001010", "10100110000", "10100001100", _ "10010110000", "10010000110", "10000101100", "10000100110", "10110010000", _ "10110000100", "10011010000", "10011000010", "10000110100", "10000110010", _ "11000010010", "11001010000", "11110111010", "11000010100", "10001111010", _ "10100111100", "10010111100", "10010011110", "10111100100", "10011110100", _ "10011110010", "11110100100", "11110010100", "11110010010", "11011011110", _ "11011110110", "11110110110", "10101111000", "10100011110", "10001011110", _ "10111101000", "10111100010", "11110101000", "11110100010", "10111011110", _ "10111101110", "11101011110", "11110101110", "11010000100", "11010010000", _ "11010011100", "1100011101011") Dim CheckSum As Long Dim Ct As Integer Dim Cr As Integer Dim Tx As String Dim Tp As String Dim i As Integer Tx = "" If Len(s) > 0 Then i = 1 Ct = 0 If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Tp = "C" Tx = A(105) CheckSum = 105 Else Tp = "B" Tx = A(104) CheckSum = 104 End If While i <= Len(s) If Len(s) - i > 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" And _ Mid(s, i + 2, 1) >= "0" And Mid(s, i + 2, 1) <= "9" And _ Mid(s, i + 3, 1) >= "0" And Mid(s, i + 3, 1) <= "9" Then Ct = Ct + 1 Cr = 99 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "C" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If Else If Len(s) - i = 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else While i <= Len(s) Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 Wend End If Else If Tp = "C" Then Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If End If Wend Cr = CheckSum Mod 103 Tx = Tx & A(Cr) Tx = Tx & A(106) End If Code128 = ToBar63(Tx) End Function Function ToBar63(s As String) Dim i As Integer ToBar63 = "" If Len(s) Mod 6 <> 0 Then s = s & Replace(Space(6 - Len(s) Mod 6), " ", "0") For i = 1 To Len(s) / 6 ToBar63 = ToBar63 & Chr(BinToDec(Mid(s, i * 6 - 5, 6)) + 32) Next i End Function Function BinToDec(Bits As String) As Long If Len(Bits) > 0 Then BinToDec = 2 * BinToDec(Left(Bits, Len(Bits) - 1)) + CLng(Right(Bits, 1)) End If End FunctionThis is a clone of Bar63

Monospaced

Creative Commons

8 2661 Published: 3rd October, 2009
Last edited: 3rd October, 2009
Created: 24th September, 2009
((sound))This is a clone

Creative Commons

9 0980 Published: 17th November, 2008
Last edited: 15th January, 2009
Created: 12th November, 2008
My second fontstruct. more tips please.

Creative Commons

2267 19634 Published: 9th May, 2008
Last edited: 13th February, 2009
Created: 9th May, 2008
Clone of Structurosa. Cloned by ChandooThis is a clone of Structurosa

Display

Creative Commons

184 04111 Published: 1st May, 2008
Last edited: 18th October, 2008
Created: 1st May, 2008
Finally, a font that combines MICR with UPC-A* To use, A-J is 0-9 start digit, 0-9 is 0-9 left of the guard bars, - is the guard bars, )!@#$%^&*( are 0-9 right of the guard bars, and a-j is 0-9 in the check digit. For instance to encode the UPC for Adobe Photoshop CS3 (883919080222) you would type: I83919-)*)@@c I hope that's clear :-) *Note: Font may not actually work with either MICR or UPC systems, although it will work as an awesome futuristic machine prison camp tattoo.

Creative Commons

8 0540 Published: 1st October, 2020
Last edited: 20th December, 2013
Created: 12th November, 2013
The first row of QWERTY (QWERTYUIOP) is the up number and the second row (ASDFGHJKL) is the down numbers. AZERTY version: http://fontstruct.com/fontstructions/show/920858

Creative Commons