https://github.com/simmone/racket-simple-qr

a qr code tool for racket-lang
https://github.com/simmone/racket-simple-qr

Last synced: 3 months ago
JSON representation

a qr code tool for racket-lang

• Host: GitHub
• URL: https://github.com/simmone/racket-simple-qr
• Owner: simmone
• License: mit
• Created: 2015-05-26T12:17:54.000Z (over 9 years ago)
• Default Branch: master
• Last Pushed: 2024-04-12T16:05:51.000Z (7 months ago)
• Last Synced: 2024-04-14T04:05:53.902Z (7 months ago)
• Language: Racket
• Homepage:
• Size: 7.44 MB
• Stars: 11
• Watchers: 2
• Forks: 2
• Open Issues: 1
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

• awesome-racket - simple-qr - a qr code tool for racket-lang. (Images)

README

        
# racket-simple-qr

A Qr Code Writer Library For Racket

==================

# Install

    raco pkg install simple-qr

# Usage

```racket

(define (qr-write data file_name

                  #:mode [mode 'B]

                  #:error_level [error_level 'H]

                  #:module_width [module_width 5]

                  #:color [color '("black" . "white")]

                  #:output_type [output_type 'png]

                  ))

```

output qr code image to file.

  

color's form is '(front_color . background_color).

  

use color 'transparent to set transparent background.

# Example

```racket

#lang racket

(require "../main.rkt")

(qr-write "https://github.com/simmone" "normal.png")

(qr-write "https://github.com/simmone" "normal_color.png" #:color '("#ffbb33" . "#0d47a1"))

(qr-write "https://github.com/simmone" "normal_trans.png" #:color '("#9933CC" . transparent))

(qr-write "https://github.com/simmone" "small.png" #:module_width 2)

(qr-write "https://github.com/simmone" "large.png" #:module_width 10)

(qr-write "https://github.com/simmone" "normal.svg" #:output_type 'svg)

(qr-write "https://github.com/simmone" "large.svg" #:module_width 10 #:output_type 'svg)

(qr-write "https://github.com/simmone" "normal_color.svg" #:color '("#ffbb33" . "#0d47a1") #:output_type 'svg)

(qr-write "https://github.com/simmone" "normal_trans.svg" #:color '("#9933CC" . transparent) #:output_type 'svg)

```

# Png

normal.png:

![ScreenShot](simple-qr/example/normal.png)

normal_color.png:

![ScreenShot](simple-qr/example/normal_color.png))

normal_trans.png:

![ScreenShot](simple-qr/example/normal_trans.png)

small.png:

![ScreenShot](simple-qr/example/small.png)

large.png:

![ScreenShot](simple-qr/example/large.png)

# SVG

normal.svg:

![ScreenShot](simple-qr/example/normal.svg)

large.svg:

![ScreenShot](simple-qr/example/large.svg)

normal_color.svg:

![ScreenShot](simple-qr/example/normal_color.svg)

normal_trans.svg:

![ScreenShot](simple-qr/example/normal_trans.svg)