[交流] 我也晒晒我做的little bear 自制书

本帖最后由欢乐chylli 于 2011-10-23 19:50 编辑

linux下用程序生成的,为了程序的简单,并且也由于自己没有美术细胞,做的有些丑,大家凑合着看看吧
图形用mplayer截取,用imagemagick只作了一下锐化(我也不懂啥叫锐化...),然后用latex生成pdf.

不会上传附件,就来个分享地址吧.

http://115.com/file/e6dnieh4#
新建书册_2.pdf

该贴已经同步到欢乐chylli的微博

本帖子中包含更多资源

您需要登录才可以下载或查看，没有账号？新会员加入

4683 查看 38 收藏帖子 (6)

说说我的看法高级模式

全部评论

欢乐chylli

楼主 2011-10-23 19:41:09 使用道具

houhou19 发表于 2011-10-23 19:38

啥意思啊...是说很丑陋么 ?

欢乐chylli于2011-10-23 19:49补充以下内容：
主贴不会加附件啊,这里倒是可以

欢乐chylli

楼主 2011-10-23 19:51:33 使用道具

欢乐chylli 发表于 2011-10-23 19:41
啥意思啊...是说很丑陋么 ?

汗,这论坛太高级了,搞不定

牛牛妈

2011-10-23 20:02:31 使用道具

呵呵{:soso_e113:}

math123

2011-10-23 20:34:10 使用道具

辛苦了，花了不少时间吧

欢乐chylli

楼主 2011-10-23 20:38:43 使用道具

math123 发表于 2011-10-23 20:34
辛苦了，花了不少时间吧

程序花了较长的时间,毕竟多年不用latex了. 以后就简单了,截图+分文本就行了.然后运行程序搞定.现在的最大的问题就是文本不全.
可惜程序运行的环境比较复杂,不能分享给大家...

math123

2011-10-23 20:46:02 使用道具

欢乐chylli 发表于 2011-10-23 20:38
程序花了较长的时间,毕竟多年不用latex了. 以后就简单了,截图+分文本就行了.然后运行程序搞定.现在的最大 ...

可以把编辑版的Latex文件传上来，我一直用Latex，可以参考一下哈

欢乐chylli

楼主 2011-10-23 20:50:25 使用道具

本帖最后由欢乐chylli 于 2011-10-23 20:50 编辑

汗,还能遇到熟悉latex的人啊,真难得.不过latex我实在是不好意思说会用啊,发上来看看,下面是用一个perl语言的template写的,用perl处理一下就会生成latex,您正好给改一下:

\documentclass[20pt,a4paper]{extarticle}
\usepackage{graphicx}
\usepackage[top=1.5cm, bottom=1.5cm, left=2.0cm, right=2.0cm]{geometry}
%%\usepackage[debugshow,final]{graphics}

%%\revision$Header: /tmp/a.tex,v 0.0 2011/10/22 08:05:57 chylli Exp$
%%\renewcommand\baselinestretch{1.5}
\begin{document}
\mbox{}
\vfill
\centerline{\LARGE LITTLE BEAR}
\vfill

%%%%##########################################################################
\begin{figure}[h!]
  \centering
\includegraphics[width=1\textwidth]{0001}
\end{figure}
\vfill
\centerline{\LARGE Book [% bookNo %]}
\vfill
\newpage

[% FOREACH item = infos %]
[% pngfile = "${item.png}.png" %]

\begin{figure}[h!]
  \centering
\includegraphics[width=1\textwidth]{[% pngfile %]}
\end{figure}

\vfill

\begin{description}
[% item.txt %]
\end{description}

\vfill

\newpage
[% END %]
[% WHILE blankPages > 0 %]
\mbox{}
\newpage

[% blankPages = blankPages - 1 %]
[% END %]

\begin{figure}[h!]
  \centering
\includegraphics[width=1\textwidth]{../back}
\end{figure}
\vfill
\centerline{\LARGE Book [% bookNo %]}
\vfill
\centerline{\Large chylli@163.com}
\vfill

%%%%##########################################################################

\end{document}

欢乐chylli

楼主 2011-10-23 20:51:23 使用道具

math123 发表于 2011-10-23 20:46
可以把编辑版的Latex文件传上来，我一直用Latex，可以参考一下哈

这里是perl程序:

#!/usr/bin/perl
use strict;
use warnings;

use File::Basename;
use FindBin qw($Bin);

use Template;

my $bookNo = shift;

$bookNo || die "give me book No. and dir please\n";

my $tt = Template->new({
INCLUDE_PATH => '.',
INTERPOLATE  => 1,
}) || die "$Template::ERROR\n";

my @pngs = <$bookNo/shot*.png>;
#my @texs = <$bookNo/*.tex>;

@pngs = grep {/shot\d{4}.png$/} @pngs;
my @newpngs;

foreach my $png (@pngs) {
my $newpng = $png;
$newpng =~ s/shot//g;
`convert -sharpen 10 $png $newpng`;
push @newpngs, $newpng;
}

my @txt;

open(my $fh, "<$bookNo/a.txt") || die "no text file\n";

my @txtbuf;

while (my $line = <$fh>) {
chomp($line);
$line =~ s/^\s+$//g;

if ($line eq "") {
      if (@txtbuf) {
         my $txtbuf = join "\n", @txtbuf;
         push @txt, $txtbuf;
         @txtbuf = ();
      }
      next;
}
$line =~ s/^([^:]*:)/\\item[$1]/;
push @txtbuf, $line;
}

my $txtbuf = join "\n", @txtbuf;

push @txt, $txtbuf;

#print join "\n--------\n", @txt;

my %mergeFileHash = map {basename($_,".png") => 1} @newpngs;

delete $mergeFileHash{"0001"};
my @mergeFile = keys %mergeFileHash;
@mergeFile = sort {$a cmp $b} @mergeFile;

my @infos;
for my $f (@mergeFile) {
my $t = shift @txt || "";
push @infos, {png => $f, txt => $t};
}

my $var = {
mergeFile => \@mergeFile,
bookNo => $bookNo,
blankPages => (4 - (scalar(@mergeFile) + 2) % 4) % 4,
infos => \@infos,
};

print scalar(@mergeFile),"\n";

print scalar (4 - (scalar(@mergeFile) + 2) % 4) % 4;

$tt->process('a.tex.tt2',$var,"$bookNo/$bookNo.tex")
|| die $tt->error(),"\n";

#`cd $bookNo;pdflatex $bookNo`;