[verein.git] Try to make Internetmarke

teckids.sty

 % Teckids e.V. - Allgemeine Vorlage
 %-
-% Copyright © 2013
-%	Dominik George <nik@naturalnet.de>
+% Copyright © 2013, 2015
+%	Dominik George <dominik.george@teckids.org>
 %
 % Copyright © 2014, 2015
 %	Thorsten “mirabilos” Glaser <thorsten.glaser@teckids.org>
@@ -27,6 +27,9 @@
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{teckids}
 
+\RequirePackage{picins}
+\RequirePackage{intcalc}
+
 \RequirePackage[utf8]{inputenc}
 \RequirePackage[pdftex]{graphics}
 \RequirePackage{ngerman}
@@ -237,3 +240,20 @@
 	literate={0}{\0}1{0\ }{\0\ }2,
 }
 }
+
+\newcount\stamps
+\stamps=0
+
+\newcommand{\briefmarke}[1]{
+ \newcount\stampoff
+ \stampoff=\intcalcAdd(#1}{\stamps}
+ \newcount\page
+ \page=\intcalcAdd{\intcalcMod{\stampoff}{32}}{1}
+ \stampoff=\intcalcSub{\stampoff}{\intcalcMul{\page}{32}}
+ \newcount\row
+ \row=\intcalcMod{\stampoff}{4}
+ \stampoff=\intcalcSub{\stampoff}{\intcalcMul{\row}{4}}
+ \newcount\col
+ \col=\stampoff
+ \parpic[r]{\includegraphics[trim=\intcalcAdd{25}{\intcalcMul{\col}{40}}mm \intcalcSub{259}{\intcalcMul{33}{\row}}mm \intcalcSub{177}{\intcalcAdd{25}{\intcalcMul{\col}{40}}mm \intcalcAdd{25}{\intcalcMul{40}{\row}}mm,crop]{\page}
+}
\ No newline at end of file