Re: rahmen

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

ob das sch"on ist, oder schlicht und 
ergreifend pott-h"asslich ist eine andere
Frage

g1 = Plot[Sin[x], {x, 0, 2.5}, Background -> GrayLevel[1], Frame ->
False, 
    Axes -> True]

g2 = Graphics[{GrayLevel[0.25], 
        Line[{{-1.15, -1.15}, {3.1, -1.15}, {3.1, 2.1}, {-1.15, 
              2.1}, {-1.15, -1.15}}], 
        Rectangle[{-1, -1}, {3, 2}, FullGraphics[g1]]}] // Show

Bl"uten und Rankenmuster um die Graphik herum sind etwas
schwieriger. Aber genauso abstossend.

Gruss
  Jens


Hans.Dolhaine@XXXXXXX.com wrote:
> 
> Guten Morgen allerseits,
> 
> wie kann ich eine Grafik mit einem "schönen" Rahmen versehen?
> 
> Beispiel:
> 
> g1 = Plot [ Sin[x],{x,0,2.5}]  gibt einen schönen Kurvenzug inklusive
> Achsenkreuz
> 
> Frame -> True  gibt einen mir zu engen Rahmen, überdies verschwindet das
> Achsenkreuz.
> 
> Der Versuch, ein Rectangle
> 
> g2=Graphics[ { GrayLevel[.95],Rectangle[{-1,-1},{3,2}]}]
> 
> mit g1 via Show[g2,g1] zu kombinieren gibt zwar den Kurvenzug, aber keine
> Achsen.
> Ein Line-Objekt um den Kurvenzug herum erzeugt sein eigenes Achsenkreuz,
> das ich nicht haben will. Ich möchte die Originalgrafik schlicht einrahmen.
> 
> Weiss jemand Rat?
> 
> Mit freundlichen Grüssen
> 
> Hans Dolhaine
> _________________________________
> 
> VTR-TO
> Phone:      +49-211-797-4809
> Fax:        +49-211-798-1853
> Mobile:     0171 97 17 049
> E-Mail:     Hans.Dolhaine@XXXXXXX.com