Schenken Sie doch diesmal etwas origenelles: Einen Stern durch die Sternwarte Bochum
Home
 

Corel Script: Ventura-Scripte

21.2.2002 Diese Seite drucken  Diese Seite per E-Mail empfehlen

Bild in Rahmen einpassen

Sehr oft müssen Bilder in einen Rahmen eingepasst werden, dessen Größe vorgegeben ist. So zum Beispiel beim Zeitungssatz, bei dem die Zeilenhöhe und Spaltenbreite feststeht. Das Bild muss nun mit möglichst wenig Verschnitt eingepasst werden, selbstverständlich ohne Verzerrungen. Dazu dient dieses Script.

Je nach Format des Rahmens (hoch oder quer) wird das Bild links und rechts, bzw. oben und unten zu gleichen Teilen abgeschnitten und exakt in den Rahmen eingepasst.

Die unten abgebildeten Beispiele sind zur Verdeutlichung sehr extrem gehalten. Meist handelt es sich in der Praxis nur um wenige Millimeter, die ein Bild beschnitten wird. Und gerade da wird das Script zum unverzichtbaren Helfer, so daß Sie schon bald nicht mehr wissen, wie Sie je ohne klargekommen sind. Dieses Script hat große Ähnlichkeit mit Rahmengröße an Bildgröße anpassen.


Script:

REM Dieser Befehl passt die Bildgröße der augenblicklichen Rahmengröße an
REM © 2001 by Ulrich Albrecht
 
WITHOBJECT "CorelVentura.Automation.8"
  DIM fw&,fh&, pw&,ph&,fx&,fy&,fwa&,fha&
  
  .FormatFrameGeneralGet .Width=fwa, .Height=fha 'Anfangsrahmengröße
  .FormatFramePictureGet .Width=pw, .Height=ph
  .FormatFramePicture .HorzShift=0, .VertShift=0
  .FormatFramePicture .FitInFrame=TRUE
  
  .FormatFrameGeneralGet .Width=fw, .Height=fh, .Left=fx, .Top=fy
  .FrameSizeToObject
  .FormatFrameGeneralGet .Width=pw, .Height=ph
  .FormatFrameGeneral .Width=fw, .Height=fh
 
  mp=pw/ph 'Seitenverhältnis Bild
  mf=fw/fh 'Seitenverhältnis Rahmen
 
  if mp>mf then
  .FormatFramePicture .Width=fha*mp, .FitInFrame=0, .HorzShift=(fha*mp-fwa)/2
  else
  .FormatFramePicture .Width=fwa, .FitInFrame=0,.VertShift=(fwa/mp-fha)/2
  end if
END WITHOBJECT

Kommentare

Schreiben Sie einen Kommentar zu diesem Artikel.
Um Kommentare zu schreiben, müssen Sie sich zuerst hier anmelden.

Anzeigen

 Zeichnen mit dem Stift 
Grafiktabletts: