1 notchent 12-Mar-2010 3:38 | REBOL [title: "code39 barcode generator"]
barcode-string: "123 hat"
barcode-file: %code39.png
barcode-width: 1 ; default 1
barcode-height: 40 ; default 40
xshift: 20 ; default 20
yshift: 20 ; default 20
code39: [
"1" "110100101011"
"2" "101100101011"
"3" "110110010101"
"4" "101001101011"
"5" "110100110101"
"6" "101100110101"
"7" "101001011011"
"8" "110100101101"
"9" "101100101101"
"0" "101001101101"
"A" "110101001011"
"B" "101101001011"
"C" "110110100101"
"D" "101011001011"
"E" "110101100101"
"F" "101101100101"
"G" "101010011011"
"H" "110101001101"
"I" "101101001101"
"J" "101011001101"
"K" "110101010011"
"L" "101101010011"
"M" "110110101001"
"N" "101011010011"
"O" "110101101001"
"P" "101101101001"
"Q" "101010110011"
"R" "110101011001"
"S" "101101011001"
"T" "101011011001"
"U" "110010101011"
"V" "100110101011"
"W" "110011010101"
"X" "100101101011"
"Y" "110010110101"
"Z" "100110110101"
"-" "100101011011"
"." "110010101101"
" " "100110101101"
"*" "100101101101"
"$" "100100100101"
"/" "100100101001"
"+" "100101001001"
"%" "101001001001"
]
convfrom: rejoin ["*" barcode-string "*"]
out: copy [backdrop white]
x: 0
foreach char convfrom [
pattern: select code39 form char
foreach bit pattern [
x: x + 1
if bit = #"1" [
append out compose [
at (to-pair reduce [((x * barcode-width) + xshift) yshift])
box (to-pair reduce [barcode-width barcode-height]) black
]
]
]
x: x + 1
]
save/png barcode-file to-image layout out ; layout/tight out
browse barcode-file |
|
2 liammorn 29-Dec-2020 10:39 | I hope I can understand this better. https://healthybodyhealthymind.com |
|
3 jhonny022117 19-Jan 9:20 Edited: jhonny022117 19-Jan 9:23 | |
|
4 jhonny022117 19-Jan 9:27 | Thank for the code! I hope this will help me. https://www.concretecontractorsrochestermn.com |
|
5 liammorn 20-Jan 11:19 | This is plain smart! https://www.svgmotors.com/ |
|
6 chriscole 20-Jan 11:30 | Thank you so much. https://www.carpetcleanercolumbia.com |
|
7 brielleluna 25-Jan 9:36 Edited: brielleluna 25-Jan 9:37 | |
|
8 danielperez1 25-Jan 10:04 | Nice content admin! Thanks https://www.thrustelectricbikes.com |
|
9 alisha986 2-Feb 1:53 | Our Nainital escorts offers sharp, world class girls for elegant noble men searching for call girls that aren't revealed on each website he sees. With fresh indicating the ceremony keeps serving for contemporary, adapting. https://www.alishaoberoi.com https://www.alishaoberoi.com/haldwani-escort-service.html https://www.alishaoberoi.com/ramnagar-escort-service.html https://www.alishaoberoi.com/dehradun-escort-service.html https://www.alishaoberoi.com/ajmer-escort-service.html https://www.alishaoberoi.com/rishikesh-escort-service.html https://www.alishaoberoi.com/haridwar-escort-service.html https://www.alishaoberoi.com/mussoorie-escort-service.html |
|
10 pault 4-Feb 20:33 | Perfect, thanks for sharing this. https://www.sprayfoaminsulationwinnipeg.com/ https://www.photoboothwinnipeg.com/ |
|
11 fredfx167 4-Feb 20:55 Edited: fredfx167 16-Feb 22:23 | This is a barcode generator. Has anyone tried it? Does it work? semenax |
|
12 kirisashing 5-Feb 4:00 | This is amazing, if you are looking for Ohare Limousines, please do visit: https://www.napervilleservicelimo.com/airport-service.html |
|
13 liammorn 5-Feb 11:21 | This is definitely interesting. Thank you! https://www.lynnlaw.com/ |
|
14 lufferyu 8-Feb 6:33 | Definitely this is so interesting! https://www.mycardetailchicago.com/ |
|
15 chrisjohn221 9-Feb 10:28 |
 |
This is really great! The codes are wonderful. You work hard on this and you have my gratitude. Thank you for sharing this! concrete yuma az
concrete yuma az
Contents:
|
 |
MakeDoc2 by REBOL- 9-Feb-2021
|
|
|
16 derrick 14-Feb 6:12 Edited: derrick 14-Feb 6:15 | Great website and the information. https://www.foundationrepaircorpuschristi.net/ |
|
17 tyrielley 15-Feb 9:30 | what a useful info, this is such a rare content https://www.mycardetailchicago.com/ |
|
18 jamesbell2 18-Feb 8:03 Edited: jamesbell2 18-Feb 8:04 | I really like what you did there. Feel free to call our team if you need auto repair, just visit this site to get our details: https://www.avery-vehicle-services.com |
|
19 ray01 18-Feb 10:21 | I really liked your article , your article is very petrified me in the learning process and provide additional knowledge to me , maybe I can learn more from you, I will wait for your next article, thanks. https://www.homeinspectionraleighnc.net/ |
|
20 tiertwo 25-Feb 8:39 | I really liked the way you convey the message and the learning behind, awesome It was great https://atlasdoorrepair.com/tampa-florida-door-repair-services/ |
|