Script Library: 1236 scripts

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

Thanks a lot for your great help!

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

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/

Discussion posts for script code39.r

Thanks a lot for your great help!

Contents:

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

Contents:

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.