Predesigner für Paperback

MarkusGronotte · 31.01.2010

Mich hat es gestern mal wieder genervt, dass die Berücksichtigung von Buchrücken und Beschnittrand beim Coverdesign so umständlich ist, deshalb habe ich eine kleine Software geschrieben, die mir das Coverdesign vereinfacht. Ich habe die Software als Freeware zum download verfügbar gemacht.

Dieses Programm ist dazu gedacht, um für Bücher, die man über BoD veröffentlicht, eine Hintergrundbitmap zu erzeugen, welche den Buchrücken und den Beschnittrand anzeigt.

Diese Bilddatei kann in einem Bildverarbeitungsprogramm als Hintergrundlayer eingeblendet werden, um das Designen des Buchcovers zu vereinfachen. Später, wenn das Coverdesign fertig ist, blendet man den Hintergrundlayer einfach aus.

Nicht vergessen: Die rechte Hälfte ist die Vorderseite des Buches.

Dieses Programm ist ausschließlich für die Paperback-Berechnung geeignet!

Umwandeln des Buchcovers in ein für BoD-geeignetes PDF:

1.) Man speichert das Cover im PNG-Format!
2.) Man öffnet Open Office Draw
3.) Man stellt die Seitenbreite und -Höhe auf die Gesamtbreite und -Höhe INKLUSIVE Beschnittrand ein. Die Seitenränder sind auf 0 (Null!) einzustellen.
4.) Dan klickt man auf Einfügen -> Bild -> Aus Datei -> und wählt die PNG-Datei des Cover-Entwurfes aus.
5.) Rechtsklick auf das Bild -> Position und Größe -> Beide Positionen auf 0 einstellen und die Größe kontrollieren.
6.) Klick auf Datei -> Exportieren als PDF -> Verlustfreie Komprimierung anklicken.
7.) Cover bei BoD hochladen.

Alle Angaben ohne Gewähr!

Download hier, da für Anhang zu groß:
http://home.arcor.de/lielow/Bod-Cover-Predesigner.zip

Die Erstellung der Bilddatei wird mit folgendem Code durchgeführt:

procedure TForm1.ButtonErstellenClick(Sender: TObject);
Var rPixelFaktor,
rBuchruecken,
rGesamtBreite,
rGesamtHoehe,
rBeschnittrand,
x,y,
x1,x2,x3,x4,y1,y2,
rSeitenbreite : real;
Bitmap:TBitmap;
begin

try
rPixelFaktor := 600 / 2.54;
rBuchruecken := StrToFloat(EditRuecken.Text);
rGesamtBreite := StrToFloat(EditBreite.Text)+1.0;
rGesamtHoehe := StrToFloat(EditHoehe.Text)+1.0;
rBeschnittrand := 0.5;
x := rGesamtBreite * rPixelFaktor;
y := rGesamtHoehe * rPixelFaktor;
Bitmap := TBitmap.Create;
Bitmap.PixelFormat := pf24bit;
Bitmap.Width := Round(x);
Bitmap.Height := Round(y);

x1 := 0.5 * rPixelFaktor;
rSeitenbreite := (rGesamtBreite-rBuchruecken-1)/2;
x2 := (0.5 + rSeitenbreite) * rPixelFaktor;
x3 := (0.5 + rSeitenbreite + rBuchruecken) * rPixelFaktor;
x4 := x - (0.5 * rPixelFaktor);
y1 := x1;
y2 := y - (0.5 * rPixelFaktor);

Bitmap.Canvas.Pen.Color := clBlack;

Bitmap.Canvas.MoveTo(Round(x1),0);
Bitmap.Canvas.LineTo(Round(x1),Round(y-1));
Bitmap.Canvas.MoveTo(Round(x2),0);
Bitmap.Canvas.LineTo(Round(x2),Round(y-1));
Bitmap.Canvas.MoveTo(Round(x3),0);
Bitmap.Canvas.LineTo(Round(x3),Round(y-1));
Bitmap.Canvas.MoveTo(Round(x4),0);
Bitmap.Canvas.LineTo(Round(x4),Round(y-1));
Bitmap.Canvas.MoveTo(0,Round(y1));
Bitmap.Canvas.LineTo(Round(x-1),Round(y1));
Bitmap.Canvas.MoveTo(0,Round(y2));
Bitmap.Canvas.LineTo(Round(x-1),Round(y2));

SavePictureDialog1.FileName := 'PredesignedCover.bmp';
if SavePictureDialog1.Execute
then Bitmap.SaveToFile(SavePictureDialog1.FileName);

Bitmap.Free;
except
on e:exception do
begin
ShowMessage(e.Message);
end;
end

end;

Die Software wird sicherlich keinen Designpreis gewinnen, aber für mich tat sie ihren Dienst.

Wer Fehler findet, kann mir diese gerne mitteilen. Diese werden dann so bald wie möglich korrigiert.

Viele Grüße,

Markus Gronotte

FL · 26.10.2009

Hallo,

sozusagen gebitmappte layout Führungslinien.
Ich habe es gerade ausprobiert. Die Maße stimmen.
Ein nettes Hilfsmittel für Leute, die ein entsprechendes Raster in ihrem DTP nicht einstellen können. thumb up

fl

MarkusGronotte · 31.01.2010