37 Star 239 Fork 36

GVP墨客实验室 / 墨干理工套件

Create your Gitee Account
Explore and code with more than 12 million developers,Free private repositories !:)
Sign up
Clone or Download
svg.scm 1.61 KB
Copy Edit Raw Blame History
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; MODULE : svg.scm
;; DESCRIPTION : SVG Image plugin
;; COPYRIGHT : (C) 2003 Joris van der Hoeven
;; 2024 Darcy Shen
;;
;; This software falls under the GNU general public license version 3 or later.
;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(texmacs-module (image svg)
(:use (binary rsvg-convert)
(binary inkscape)
(binary convert)))
(converter svg-file png-file
(:require (has-binary-inkscape?))
(:shell ,(url->system (find-binary-inkscape)) "-z" "-d" "600" from "--export-png" to))
(converter svg-file png-file
(:require (has-binary-rsvg-convert?))
(:function-with-options svg2png-by-rsvg-convert))
;; svg -> pdf (the latter one which meets the requirements will work)
(converter svg-file pdf-file
(:require (has-binary-rsvg-convert?))
(:shell ,(url->system (find-binary-rsvg-convert)) "-f pdf" "-o" to from ))
(converter svg-file pdf-file
(:require (has-binary-inkscape?))
(:shell ,(url->system (find-binary-inkscape)) from "-o" to))
;; svg -> postscript (the latter one which meets the requirements will work)
(converter svg-file postscript-file
(:require (has-binary-rsvg-convert?))
(:shell ,(url->system (find-binary-rsvg-convert)) "-f eps" "-o" to from ))
(converter svg-file postscript-file
(:require (has-binary-inkscape?))
(:shell ,(url->system (find-binary-inkscape)) from "-o" to))
C++
1
https://gitee.com/XmacsLabs/mogan.git
git@gitee.com:XmacsLabs/mogan.git
XmacsLabs
mogan
墨干理工套件
branch-1.2

Search