Script Library: 1236 scripts
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

Discussion posts for script code39.r

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
REBOL

Thanks a lot for your great help!

Contents:

www.clearviewwc.com

MakeDoc2 by REBOL- 25-Jan-2021
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
REBOL

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/