summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/third/degrade/t-degrade.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/third/degrade/t-degrade.tex')
-rw-r--r--Master/texmf-dist/tex/context/third/degrade/t-degrade.tex163
1 files changed, 0 insertions, 163 deletions
diff --git a/Master/texmf-dist/tex/context/third/degrade/t-degrade.tex b/Master/texmf-dist/tex/context/third/degrade/t-degrade.tex
deleted file mode 100644
index b2dbba495c3..00000000000
--- a/Master/texmf-dist/tex/context/third/degrade/t-degrade.tex
+++ /dev/null
@@ -1,163 +0,0 @@
-%D \enableregime[utf]
-%D \module
-%D [ file=t-degrade,
-%D version=2006.09.12,
-%D title=\CONTEXT\ User Module,
-%D subtitle=Degrading JPEG images,
-%D author=Peter Münster,
-%D date=\currentdate,
-%D copyright={Peter Münster}]
-%C This module is copyrighted by Peter Münster.
-%C Please send any comments to pmrb at free.fr.
-
-% This program is free software; you can redistribute it and/or
-% modify it under the terms of the GNU General Public License
-% as published by the Free Software Foundation; either version 2
-% of the License, or (at your option) any later version.
-
-% This program is distributed in the hope that it will be useful,
-% but without any warranty; without even the implied warranty of
-% merchantability or fitness for a particular purpose. See the
-% GNU General Public License for more details.
-
-\writestatus{loading}{Degrading JPEG images on the fly}
-
-\unprotect
-
-%D In this module we suppose, that original figures are either eps or jpg.
-%D When creating pdf, eps is converted to pdf, and when creating dvi,
-%D jpg is converted to eps.
-%D Furthermore, jpg-images can be degraded to a given resolution, to get
-%D smaller documents.
-
-%D When
-%D \type{http://context.literatesolutions.com/collector/63}
-%D is solved, we can make it better using \type{\appliedfigurefilename},
-%D \type{\figurewidth} etc, and without redefining \type{\externalfigure}.
-
-%D \macros{setupDegrade}
-%D Sets the resolution, the directory for degraded images and the
-%D directory, where the original images can be found (source directory).
-%D
-%D Default setup:
-%D
-%D \starttyping
-%D \setupDegrade[Res=100,Dir=degrade,SDir=.]
-%D \stoptyping
-%D
-%D Example:
-%D
-%D \starttyping
-%D \setupDegrade[Res=600,Dir=degraded-images,SDir=/home/peter/jpegs]
-%D \stoptyping
-
-\def\setupDegrade[#1]{\getparameters[Deg][#1]}
-\setupDegrade[Res=100,Dir=degrade,SDir=.]
-
-%D In order to use this module, you must use \type{\externalfigure}
-%D in the following way: \type{\externalfigure[file-prefix][options]},
-%D where \type{options} must contain the width or the height.
-%D Furthermore, \type{\write18} must be enabled.
-%D The shell-script is in a buffer, just to keep this module in only
-%D one file.
-
-\startbuffer[degrade-script]
-#!/bin/bash
-
-# We consider, that original figures are either eps or jpg.
-
-# Arguments:
-# $1 = filename
-# $2 = eps or pdf
-# $3 = w or h
-# $4 = resolution
-# $5 = dimension of image
-# $6 = source directory
-# $7 = destination directory
-
-for i in jpeg2ps convert identify bc; do
- if ! type $i &>/dev/null; then
- echo Error: $i is not installed.
- exit 1
- fi
-done
-
-EPSTOPDF=epstopdf
-
-if ! type epstopdf &>/dev/null; then
- if type texmfstart &>/dev/null; then
- EPSTOPDF="texmfstart newpstopdf"
- else
- EPSTOPDF="texutil --figures --epstopdf"
- fi
-fi
-
-if [ -s "$1.jpg" ]; then
- if [ "$2" = eps ] && [ "$1.jpg" -nt "$1.eps" ]; then
- jpeg2ps "$1.jpg" >"$1.eps"
- fi
-else
- if [ "$2" = pdf ] && [ "$1.eps" -nt "$1.pdf" ]; then
- $EPSTOPDF "$1.eps"
- fi
-fi
-
-X=
-[ $3 = h ] && X=x
-FORMAT="%$3"
-FILE="$6/$1.jpg"
-DFILE="$7/$1.jpg"
-DFILE_EPS="$7/$1.eps"
-DPI="$4"
-IW="$5"
-MODE="$2"
-INCH=72.27
-
-mkdir -p $7
-
-if [ -s "$FILE" ]; then
- W=`identify -format "$FORMAT" "$FILE"`
-else
- rm -f "$DFILE"
- exit 0
-fi
-
-NW=`echo "$DPI * $IW / $INCH" | bc`
-
-if [ $NW -ge $W ]; then
- rm -f "$DFILE"
-else
- if [ -s "$DFILE" ] && \
- [ `identify -format "$FORMAT" "$DFILE"` -eq $NW ]; then
- exit 0
- else
- convert -verbose -resize $X$NW "$FILE" "$DFILE"
- [ $MODE = eps ] && jpeg2ps "$DFILE" >"$DFILE_EPS"
- fi
-fi
-\stopbuffer
-
-\def\Command{\immediate\write18}
-\let\externalfigureO=\externalfigure
-\def\externalfigure[#1][#2]{%
- \getparameters[Deg][height=,#2]%
- \processaction[\Degheight][%
- \s!default =>\scratchdimen=\Degwidth \def\Deg@WH{w},
- \s!unknown =>\scratchdimen=\Degheight \def\Deg@WH{h}]%
- \Command{bash ./\jobname-degrade-script.tmp #1 \ifcase\pdfoutput eps\else
- pdf\fi\space\Deg@WH\space\DegRes\space\withoutpt\the\scratchdimen\space
- \DegSDir\space\DegDir}%
- \doiffileexistselse{\DegDir/#1.jpg}{\def\Deg@File{\DegDir/#1}}{%
- \def\Deg@File{#1}}%
- \externalfigureO[\Deg@File][#2]}
-
-\protect
-
-\doifnotmode{demo}{\endinput}
-
-%D Usage example:
-%\usemodule[degrade]
-% \setupDegrade[Res=200] Here you can adjust the resolution (unit = dpi).
-\starttext
-\externalfigure[hacker][width=0.2\textwidth]
-\stoptext