Oikea reuna

[viesti Survo-keskustelupalstalla (2001-2013)]

Seminaarissa toivottiin yhtä ja toista ...
Pari esimerkkiä logoihin tai kortteihin PSPossulla.
Selitykset ovat puutteellisia - niinhän se on aina.
Katsotaan ja käännetäänpääs käyntikortista kulma!


*/GS-PDF  DIAM.PS
*pRINT CUR+1,E TO DIAM.PS
-%---------------- Variables ------------------[LF]
-/m { 0.28346 mul } def [LF]
-%---------------- Procedures -------------------[LF]
-/box {[LF]
-      exch dup 0 rlineto[LF]
-      exch 0 exch rlineto[LF]
-      neg 0 rlineto[LF]
-      closepath[LF]
-      } bind def[LF]
-/rightshow % stk: string[LF]
-{ dup stringwidth pop      %get length of string[LF]
-350 m exch sub             %calc. white space[LF]
-0 rmoveto                  %Move over that much[LF]
-show } def                 %show string[LF]
-/CardOutline               %Print card's outline[LF]
-{ newpath[LF]
-100 m 100 m moveto[LF]
-0 500 m rlineto[LF]
-900 m 0 rlineto[LF]
-0 -500 m rlineto[LF]
-closepath[LF]
-1 setlinewidth[LF]
-stroke } def[LF]
-/doBorder                  %Print card's border[LF]
-{ 140 m 140 m moveto[LF]
-0 420 m rlineto            %Border: 126 pts high[LF]
-820 m 0 rlineto            % & 234 points wide[LF]
-0 -420 m rlineto[LF]
-closepath[LF]
-2 setlinewidth             %2-point-wide line[LF]
-stroke } def[LF]
-/Diamond[LF]
-{ newpath                  %define & fill[LF]
-300 m 300 m moveto         % a diamond-shaped[LF]
-100 m -40 m rlineto        % path[LF]
--100 m -40 m rlineto[LF]
--100 m 40 m rlineto[LF]
-closepath[LF]
-0.8 setgray  fill } def[LF]
-500 m 200 m moveto[LF]
-70 m 100 m box[LF]
-stroke[LF]
-/doText %Print card's text[LF]
-{ 0 setgray  200 m 400 m moveto[LF]
-[SWISS(14)]                            % FONTTI [LF]
-(Oikealle vietyä) rightshow[LF]
-200 m 360 m moveto[LF]
-[SWISS(10)][LF]
-(tekstiä) rightshow[LF]
-650 m 280 m moveto[LF]
-[SWISS(8)][LF]
-(Vasemmmalta) show[LF]
-650 m 240 m  moveto[LF]
-(lähtevä teksti) show } def[LF]
-%---------- Main Program ------------[LF]
-CardOutline[LF]
-doBorder[LF]
-Diamond[LF]
-doText[LF]
E



*/GS-PDF  DIAM2.PS
*pRINT CUR+1,E TO DIAM2.PS
-%---------------- Variables ------------------[LF]
-/m { 0.28346 mul } def [LF]
-/r 60 m  def[LF]
-/x 290 m  def[LF]
-/y 170 m  def[LF]
-/xm2 120 m  def[LF]
-/ym2 70 m  def[LF]
-/rm2 40 m  def[LF]
-/h 60 m def[LF]               % Korkeus
-/x1 254 m  def[LF]
-/y1 254 m  def[LF]
-/x2 381 m  def[LF]
-/y2 254 m  def[LF]
-% ------------ Define Procedures -------------[LF]
-/Helvetica-Bold findfont  27 scalefont setfont[LF]
-/fourpops[LF]
-{ 4 {pop} repeat } def[LF]
-/background                    %Black background[LF]
-{ 0 h moveto                  % with rounded corners[LF]
-0 y1  x2 y2  h arcto fourpops[LF]
-x2 y2  x2  0  h arcto fourpops[LF]
-x2 0  0 0  h arcto fourpops[LF]
-0 0  0 y1  h  arcto fourpops[LF]
-fill } def[LF]
-/moon[LF]
-{ .6 setgray                   % set gray level[LF]
-x y r 0 360 arc fill        % draw a circle[LF]
-} def                          % end of definition[LF]
-/moon2[LF]
-{ gsave [LF]
-[RED][LF]
-1 2 scale                      % double y-scale[LF]
-xm2 ym2 rm2 0 360 arc fill        % draw a circle[LF]
-grestore [LF]
-} def                          % end of definition[LF]
-/survo[LF]
-{ 1 setgray[LF]
-0 -1 moveto[LF]
-1 2 scale                      % double y-scale[LF]
-(SURVO) stringwidth pop        % width of word[LF]
-108 exch sub 2 div             % calc. indentation[LF]
-0 rmoveto                      % indent[LF]
-(SURVO) show }def[LF]
-% ------------ Begin Program -----------------[LF]
- / 255 465 translate[LF]
-background[LF]
-moon[LF]
-moon2[LF]
-survo[LF]
-showpage[LF]
E

Luettelo keskustelunaiheista

Survo-keskustelupalstan (2001-2013) viestit arkistoitiin aika ajoin sukrolla, joka automaattisesti rakensi viesteistä (yli 1600 kpl) HTML-muotoisen sivukokonaisuuden. Vuoden 2013 alusta Survo-keskustelua on jatkettu entistäkin aktiivisemmin osoitteessa forum.survo.fi. Tervetuloa mukaan!