doc/luabind-logo-label.ps

   1 %!PS-Adobe-2.0 EPSF-2.0
   2 %%Title: Lua logo
   3 %%Creator: lua@tecgraf.puc-rio.br
   4 %%CreationDate: Wed Nov 29 19:04:04 EDT 2000
   5 %%BoundingBox: -45 0 1035 1080
   6 %%Pages: 1
   7 %%EndComments
   8 %%EndProlog
   9
  10 %------------------------------------------------------------------------------
  11 %
  12 % Copyright (C) 1998-2000. All rights reserved.
  13 % Graphic design by Alexandre Nakonechny (nako@openlink.com.br).
  14 % PostScript programming by the Lua team (lua@tecgraf.puc-rio.br).
  15 %
  16 % Permission is hereby granted, without written agreement and without license
  17 % or royalty fees, to use, copy, and distribute this logo for any purpose,
  18 % including commercial applications, subject to the following conditions:
  19 %
  20 % * The origin of this logo must not be misrepresented; you must not
  21 %   claim that you drew the original logo. We recommend that you give credit
  22 %   to the graphics designer in all printed matter that includes the logo.
  23 %
  24 % * The only modification you can make is to adapt the orbiting text to
  25 %   your product name.
  26 %
  27 % * The logo can be used in any scale as long as the relative proportions
  28 %   of its elements are maintained.
  29 %
  30 %------------------------------------------------------------------------------
  31
  32 /LABEL          (luabind) def
  33
  34 %-- DO NOT CHANGE ANYTHING BELOW THIS LINE ------------------------------------
  35
  36 /PLANETCOLOR    {0 0 0.5 setrgbcolor} bind def
  37 /HOLECOLOR      {1.0 setgray} bind def
  38 /ORBITCOLOR     {0.5 setgray} bind def
  39 /LOGOFONT       {/Helvetica 0.90} def
  40 /LABELFONT      {/Helvetica 0.36} def
  41
  42 %------------------------------------------------------------------------------
  43
  44 /MOONCOLOR      {PLANETCOLOR} bind def
  45 /LOGOCOLOR      {HOLECOLOR} bind def
  46 /LABELCOLOR     {ORBITCOLOR} bind def
  47
  48 /LABELANGLE     125 def
  49 /LOGO           (Lua) def
  50
  51 /DASHANGLE      10 def
  52 /HALFDASHANGLE  DASHANGLE 2 div def
  53
  54 % moon radius. planet radius is 1.
  55 /r 1 2 sqrt 2 div sub def
  56
  57 /D {0 360 arc fill} bind def
  58 /F {exch findfont exch scalefont setfont} bind def
  59
  60 % place it nicely on the paper
  61 /RESOLUTION     1024 def
  62 RESOLUTION 2 div dup translate
  63 RESOLUTION 2 div 2 sqrt div dup scale
  64
  65 %-------------------------------------------------------------------- planet --
  66 PLANETCOLOR
  67 0 0 1 D
  68
  69 %---------------------------------------------------------------------- hole --
  70 HOLECOLOR
  71 1 2 r mul sub dup r D
  72
  73 %---------------------------------------------------------------------- moon --
  74 MOONCOLOR
  75 1 1 r D
  76
  77 %---------------------------------------------------------------------- logo --
  78 LOGOCOLOR
  79 LOGOFONT
  80 F
  81 LOGO stringwidth pop 2 div neg
  82 -0.5 moveto
  83 LOGO show
  84
  85 %------------------------------------------------------------------------------
  86 % based on code from Blue Book Program 10, on pages 167--169
  87 % available at ftp://ftp.adobe.com/pub/adobe/displaypostscript/bluebook.shar
  88
  89 %       str ptsize centerangle radius   outsidecircletext       --
  90 /outsidecircletext {
  91         circtextdict begin
  92         /radius exch def
  93         /centerangle exch def
  94         /ptsize exch def
  95         /str exch def
  96
  97         gsave
  98          str radius ptsize findhalfangle
  99          centerangle
 100          add rotate
 101          str
 102                 { /charcode exch def
 103                   ( ) dup 0 charcode put outsideplacechar
 104                 } forall
 105
 106         grestore
 107         end
 108 } def
 109
 110 %       string radius ptsize    findhalfangle   halfangle
 111 /findhalfangle {
 112         4 div add
 113         exch
 114         stringwidth pop 2 div
 115         exch
 116         2 mul 3.1415926535 mul div 360 mul
 117 } def
 118
 119 /circtextdict 16 dict def
 120 circtextdict begin
 121
 122  /outsideplacechar {
 123         /char exch def
 124         /halfangle char radius ptsize findhalfangle def
 125         gsave
 126          halfangle neg rotate
 127          radius 0 translate
 128          -90 rotate
 129          char stringwidth pop 2 div neg 0 moveto
 130          char show
 131         grestore
 132         halfangle 2 mul neg rotate
 133  } def
 134
 135 end
 136
 137 %--------------------------------------------------------------------- label --
 138 LABELFONT
 139 F
 140
 141 /LABELSIZE      LABELFONT exch pop def
 142 /LABELRADIUS    LABELSIZE 3 div 1 r add sub neg 1.02 mul def
 143
 144
 145 /HALFANGLE
 146         LABEL LABELRADIUS LABELSIZE findhalfangle
 147         HALFDASHANGLE div ceiling HALFDASHANGLE mul
 148 def
 149
 150 /LABELANGLE
 151         60 LABELANGLE HALFANGLE sub
 152         lt
 153         {
 154         HALFANGLE
 155         HALFANGLE DASHANGLE div floor DASHANGLE mul
 156         eq
 157                 {LABELANGLE DASHANGLE div ceiling DASHANGLE mul}
 158                 {LABELANGLE HALFDASHANGLE sub DASHANGLE div round DASHANGLE mul HALFDASHANGLE add}
 159         ifelse
 160         }
 161         {HALFANGLE 60 add}
 162         ifelse
 163 def
 164
 165 LABELCOLOR
 166 LABEL
 167 LABELSIZE
 168 LABELANGLE
 169 LABELRADIUS
 170 outsidecircletext
 171
 172 %--------------------------------------------------------------------- orbit --
 173 ORBITCOLOR
 174 0.03 setlinewidth
 175 [1 r add 3.1415926535 180 div HALFDASHANGLE mul mul] 0 setdash
 176 newpath
 177 0 0
 178 1 r add
 179 3 copy
 180 30
 181 LABELANGLE HALFANGLE add
 182 arcn
 183 stroke
 184 60
 185 LABELANGLE HALFANGLE sub
 186 2 copy
 187 lt {arc stroke} {4 {pop} repeat} ifelse
 188
 189 %------------------------------------------------------------------ copyright --
 190 /COPYRIGHT
 191 (Graphic design by A. Nakonechny. Copyright (c) 1998, All rights reserved.)
 192 def
 193
 194 LABELCOLOR
 195 LOGOFONT
 196 32 div
 197 F
 198 2 sqrt 0.99 mul
 199 dup
 200 neg
 201 moveto
 202 COPYRIGHT
 203 90 rotate
 204 %show
 205
 206 %---------------------------------------------------------------------- done --
 207 showpage
 208
 209 %%Trailer
 210 %%EOF