vectory 0.1.0 → 0.2.0

data/lib/vectory/svg.rb

@@ -0,0 +1,27 @@
+# frozen_string_literal: true
+
+module Vectory
+  class Svg < Vector
+    SVG = { "m" => "http://www.w3.org/2000/svg" }.freeze
+
+    def self.default_extension
+      "svg"
+    end
+
+    def self.mimetype
+      "image/svg+xml"
+    end
+
+    def to_emf
+      convert_with_inkscape("--export-type=emf", Emf)
+    end
+
+    def to_eps
+      convert_with_inkscape("--export-type=eps", Eps)
+    end
+
+    def to_ps
+      convert_with_inkscape("--export-type=ps", Ps)
+    end
+  end
+end

data/lib/vectory/system_call.rb

@@ -0,0 +1,49 @@
+require "open3"
+
+module Vectory
+  class SystemCall
+    attr_reader :status, :stdout, :stderr, :cmd
+
+    def initialize(cmd)
+      @cmd = cmd
+    end
+
+    def call
+      log_cmd(@cmd)
+
+      execute(@cmd)
+
+      log_result
+
+      raise_error unless @status.success?
+
+      self
+    end
+
+    private
+
+    def log_cmd(cmd)
+      Vectory.ui.debug("Cmd: '#{cmd}'")
+    end
+
+    def execute(cmd)
+      @stdout, @stderr, @status = Open3.capture3(cmd)
+    rescue Errno::ENOENT => e
+      raise SystemCallError, e.inspect
+    end
+
+    def log_result
+      Vectory.ui.debug("Status: #{@status.inspect}")
+      Vectory.ui.debug("Stdout: '#{@stdout.strip}'")
+      Vectory.ui.debug("Stderr: '#{@stderr.strip}'")
+    end
+
+    def raise_error
+      raise SystemCallError,
+            "Failed to run #{@cmd},\n  " \
+            "status: #{@status.exitstatus},\n  " \
+            "stdout: '#{@stdout.strip}',\n  " \
+            "stderr: '#{@stderr.strip}'"
+    end
+  end
+end

data/lib/vectory/utils.rb

@@ -0,0 +1,54 @@
+# frozen_string_literal: true
+
+module Vectory
+  class Utils
+    # Extracted from https://github.com/metanorma/metanorma-utils/blob/v1.5.2/lib/utils/image.rb
+    class << self
+      # sources/plantuml/plantuml20200524-90467-1iqek5i.png
+      # already includes localdir
+      # Check whether just the local path or the other specified relative path
+      # works.
+      def datauri(uri, local_dir = ".")
+        return uri if datauri?(uri) || url?(uri)
+
+        options = absolute_path?(uri) ? [uri] : [uri, File.join(local_dir, uri)]
+        path = options.detect do |p|
+          File.exist?(p) ? p : nil
+        end
+
+        unless path
+          warn "Image specified at `#{uri}` does not exist."
+          return uri # Return original provided location
+        end
+
+        encode_datauri(path)
+      end
+
+      def encode_datauri(path)
+        return nil unless File.exist?(path)
+
+        type = Marcel::MimeType.for(Pathname.new(path)) ||
+          'text/plain; charset="utf-8"'
+
+        bin = File.binread(path)
+        data = Base64.strict_encode64(bin)
+        "data:#{type};base64,#{data}"
+      rescue StandardError
+        warn "Data-URI encoding of `#{path}` failed."
+        nil
+      end
+
+      def datauri?(uri)
+        /^data:/.match?(uri)
+      end
+
+      def url?(url)
+        %r{^[A-Z]{2,}://}i.match?(url)
+      end
+
+      def absolute_path?(uri)
+        %r{^/}.match?(uri) || %r{^[A-Z]:/}.match?(uri)
+      end
+    end
+  end
+end

data/lib/vectory/vector.rb

@@ -0,0 +1,74 @@
+# frozen_string_literal: true
+
+require_relative "inkscape_converter"
+
+module Vectory
+  class Vector < Image
+    def self.from_path(path)
+      content = File.read(path, mode: "rb")
+      new(content, path)
+    end
+
+    def self.default_extension
+      raise Vectory::NotImplementedError,
+            "#default_extension should be implemented in a subclass."
+    end
+
+    def self.mimetype
+      raise Vectory::NotImplementedError,
+            "#mimetype should be implemented in a subclass."
+    end
+
+    attr_reader :initial_path
+
+    def initialize(content = nil, initial_path = nil)
+      super(content)
+
+      @initial_path = initial_path
+    end
+
+    def to_uri
+      Datauri.from_vector(self)
+    end
+
+    def convert_with_inkscape(inkscape_options, target_class)
+      with_file(self.class.default_extension) do |input_path|
+        output_extension = target_class.default_extension
+        output_path = InkscapeConverter.instance.convert(input_path,
+                                                         output_extension,
+                                                         inkscape_options)
+
+        target_class.from_path(output_path)
+      end
+    end
+
+    def write(path = nil)
+      target_path = path || @path || tmp_path
+      File.binwrite(target_path, @content)
+      @path = File.expand_path(target_path)
+
+      self
+    end
+
+    def path
+      @path || raise(NotWrittenToDiskError)
+    end
+
+    private
+
+    def with_file(input_extension)
+      Dir.mktmpdir do |dir|
+        input_path = File.join(dir, "image.#{input_extension}")
+        File.binwrite(input_path, @content)
+
+        yield input_path
+      end
+    end
+
+    def tmp_path
+      dir = Dir.mktmpdir
+      filename = "image.#{self.class.default_extension}"
+      File.join(dir, filename)
+    end
+  end
+end

data/lib/vectory/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module Vectory
-  VERSION = "0.1.0"
+  VERSION = "0.2.0"
 end

data/lib/vectory.rb

@@ -1,8 +1,41 @@
 # frozen_string_literal: true
 
+require "logger"
 require_relative "vectory/version"
+require_relative "vectory/utils"
+require_relative "vectory/image"
+require_relative "vectory/datauri"
+require_relative "vectory/vector"
+require_relative "vectory/eps"
+require_relative "vectory/ps"
+require_relative "vectory/emf"
+require_relative "vectory/svg"
 
 module Vectory
   class Error < StandardError; end
-  # Your code goes here...
+
+  class ConversionError < Error; end
+
+  class SystemCallError < Error; end
+
+  class InkscapeNotFoundError < Error; end
+
+  class NotImplementedError < Error; end
+
+  class NotWrittenToDiskError < Error; end
+
+  def self.ui
+    @ui ||= Logger.new(STDOUT).tap do |logger|
+      logger.level = ENV['VECTORY_LOG'] || Logger::WARN
+      logger.formatter = proc { |severity, datetime, progname, msg| "#{msg}\n" }
+    end
+  end
+
+  def self.root_path
+    Pathname.new(File.dirname(__dir__))
+  end
+
+  def self.convert(image, format)
+    image.convert(format)
+  end
 end

data/spec/examples/emf2eps/img.emf.datauri

@@ -0,0 +1 @@
+data:image/emf;base64,AQAAANQAAAAAAAAAAAAAAPsEAAD7BAAAAAAAAAAAAACLCgAAiwoAACBFTUYAAAEAMAQAACgAAAACAAAANAAAAGwAAAAAAAAA3ScAAH0zAADYAAAAFwEAAAAAAAAAAAAAAAAAAMBLAwDYQQQASQBuAGsAcwBjAGEAcABlACAAMQAuADMAIAAoADAAZQAxADUAMABlAGQALAAgADIAMAAyADMALQAwADcALQAyADEAKQAgAAAAZgBpAGwAZQAzAC4AcwB2AGcALgBlAG0AZgAAAAAAAAARAAAADAAAAAEAAAAkAAAAJAAAAAAAgD8AAAAAAAAAAAAAgD8AAAAAAAAAAAIAAABGAAAALAAAACAAAABTY3JlZW49MTAyMDV4MTMxODFweCwgMjE2eDI3OW1tAEYAAAAwAAAAIwAAAERyYXdpbmc9MTAwLjB4MTAwLjBweCwgMjYuNXgyNi41bW0AABIAAAAMAAAAAQAAABMAAAAMAAAAAgAAABYAAAAMAAAAGAAAABgAAAAMAAAAAAAAABQAAAAMAAAADQAAACcAAAAYAAAAAQAAAAAAAAAAAJkABgAAACUAAAAMAAAAAQAAADsAAAAIAAAAGwAAABAAAACkBAAAcQIAAAUAAAA0AAAAAAAAAAAAAAD//////////wMAAACkBAAAqAMAAKgDAACkBAAAcQIAAKQEAAAFAAAANAAAAAAAAAAAAAAA//////////8DAAAAOgEAAKQEAAA/AAAAqAMAAD8AAABxAgAABQAAADQAAAAAAAAAAAAAAP//////////AwAAAD8AAAA6AQAAOgEAAD8AAABxAgAAPwAAAAUAAAA0AAAAAAAAAAAAAAD//////////wMAAACoAwAAPwAAAKQEAAA6AQAApAQAAHECAAA9AAAACAAAADwAAAAIAAAAPgAAABgAAAAAAAAAAAAAAP//////////JQAAAAwAAAAFAACAKAAAAAwAAAABAAAAJwAAABgAAAABAAAAAAAAAP///wAGAAAAJQAAAAwAAAABAAAAOwAAAAgAAAAbAAAAEAAAAJ0BAABFAQAANgAAABAAAADPAwAARQEAAAUAAAA0AAAAAAAAAAAAAAD//////////wMAAABfBAAA7QEAAGQEAADjAgAA2wMAAJEDAAAFAAAANAAAAAAAAAAAAAAA//////////8DAAAAUgMAAD4EAABhAgAAcwQAAJ0BAAAOBAAANgAAABAAAACdAQAAyQIAADYAAAAQAAAA4gIAAMkCAAA2AAAAEAAAAOICAAAaAgAANgAAABAAAACdAQAAGgIAAD0AAAAIAAAAPAAAAAgAAAA+AAAAGAAAAAAAAAAAAAAA//////////8lAAAADAAAAAUAAIAoAAAADAAAAAEAAAAOAAAAFAAAAAAAAAAAAAAAMAQAAA==

data/spec/examples/emf2eps/img.eps

@@ -0,0 +1,88 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%Creator: cairo 1.17.9 (https://cairographics.org)
+%%CreationDate: Mon Oct  2 11:24:42 2023
+%%Pages: 1
+%%DocumentData: Clean7Bit
+%%LanguageLevel: 2
+%%BoundingBox: 3 5 72 74
+%%EndComments
+%%BeginProlog
+50 dict begin
+/q { gsave } bind def
+/Q { grestore } bind def
+/cm { 6 array astore concat } bind def
+/w { setlinewidth } bind def
+/J { setlinecap } bind def
+/j { setlinejoin } bind def
+/M { setmiterlimit } bind def
+/d { setdash } bind def
+/m { moveto } bind def
+/l { lineto } bind def
+/c { curveto } bind def
+/h { closepath } bind def
+/re { exch dup neg 3 1 roll 5 3 roll moveto 0 rlineto
+      0 exch rlineto 0 rlineto closepath } bind def
+/S { stroke } bind def
+/f { fill } bind def
+/f* { eofill } bind def
+/n { newpath } bind def
+/W { clip } bind def
+/W* { eoclip } bind def
+/BT { } bind def
+/ET { } bind def
+/BDC { mark 3 1 roll /BDC pdfmark } bind def
+/EMC { mark /EMC pdfmark } bind def
+/cairo_store_point { /cairo_point_y exch def /cairo_point_x exch def } def
+/Tj { show currentpoint cairo_store_point } bind def
+/TJ {
+  {
+    dup
+    type /stringtype eq
+    { show } { -0.001 mul 0 cairo_font_matrix dtransform rmoveto } ifelse
+  } forall
+  currentpoint cairo_store_point
+} bind def
+/cairo_selectfont { cairo_font_matrix aload pop pop pop 0 0 6 array astore
+    cairo_font exch selectfont cairo_point_x cairo_point_y moveto } bind def
+/Tf { pop /cairo_font exch def /cairo_font_matrix where
+      { pop cairo_selectfont } if } bind def
+/Td { matrix translate cairo_font_matrix matrix concatmatrix dup
+      /cairo_font_matrix exch def dup 4 get exch 5 get cairo_store_point
+      /cairo_font where { pop cairo_selectfont } if } bind def
+/Tm { 2 copy 8 2 roll 6 array astore /cairo_font_matrix exch def
+      cairo_store_point /cairo_font where { pop cairo_selectfont } if } bind def
+/g { setgray } bind def
+/rg { setrgbcolor } bind def
+/d1 { setcachedevice } bind def
+/cairo_data_source {
+  CairoDataIndex CairoData length lt
+    { CairoData CairoDataIndex get /CairoDataIndex CairoDataIndex 1 add def }
+    { () } ifelse
+} def
+/cairo_flush_ascii85_file { cairo_ascii85_file status { cairo_ascii85_file flushfile } if } def
+/cairo_image { image cairo_flush_ascii85_file } def
+/cairo_imagemask { imagemask cairo_flush_ascii85_file } def
+%%EndProlog
+%%BeginSetup
+%%EndSetup
+%%Page: 1 1
+%%BeginPageSetup
+%%PageBoundingBox: 3 5 72 74
+%%EndPageSetup
+q 3 5 69 69 rectclip
+1 0 0 -1 0 77 cm q
+0 0 0.6 rg
+71.281 37.5 m 71.281 56.16 56.16 71.281 37.5 71.281 c 18.84 71.281 3.781
+ 56.16 3.781 37.5 c 3.781 18.84 18.84 3.781 37.5 3.781 c 56.16 3.781 71.281
+ 18.84 71.281 37.5 c h
+71.281 37.5 m f
+1 g
+24.781 19.5 m 58.5 19.5 l 67.141 29.578 67.441 44.34 59.219 54.781 c 51
+ 65.16 36.539 68.34 24.781 62.281 c 24.781 42.781 l 44.281 42.781 l 44.281
+ 32.281 l 24.781 32.281 l h
+24.781 19.5 m f
+Q Q
+showpage
+%%Trailer
+end
+%%EOF

data/spec/examples/emf2ps/img.ps

@@ -0,0 +1,125 @@
+%!PS-Adobe-3.0
+%%Creator: cairo 1.17.9 (https://cairographics.org)
+%%CreationDate: Fri Oct  6 12:34:05 2023
+%%Pages: 1
+%%DocumentData: Clean7Bit
+%%LanguageLevel: 2
+%%DocumentMedia: 27x27mm 77 77 0 () ()
+%%BoundingBox: 3 5 72 74
+%%EndComments
+%%BeginProlog
+/languagelevel where
+{ pop languagelevel } { 1 } ifelse
+2 lt { /Helvetica findfont 12 scalefont setfont 50 500 moveto
+  (This print job requires a PostScript Language Level 2 printer.) show
+  showpage quit } if
+/q { gsave } bind def
+/Q { grestore } bind def
+/cm { 6 array astore concat } bind def
+/w { setlinewidth } bind def
+/J { setlinecap } bind def
+/j { setlinejoin } bind def
+/M { setmiterlimit } bind def
+/d { setdash } bind def
+/m { moveto } bind def
+/l { lineto } bind def
+/c { curveto } bind def
+/h { closepath } bind def
+/re { exch dup neg 3 1 roll 5 3 roll moveto 0 rlineto
+      0 exch rlineto 0 rlineto closepath } bind def
+/S { stroke } bind def
+/f { fill } bind def
+/f* { eofill } bind def
+/n { newpath } bind def
+/W { clip } bind def
+/W* { eoclip } bind def
+/BT { } bind def
+/ET { } bind def
+/BDC { mark 3 1 roll /BDC pdfmark } bind def
+/EMC { mark /EMC pdfmark } bind def
+/cairo_store_point { /cairo_point_y exch def /cairo_point_x exch def } def
+/Tj { show currentpoint cairo_store_point } bind def
+/TJ {
+  {
+    dup
+    type /stringtype eq
+    { show } { -0.001 mul 0 cairo_font_matrix dtransform rmoveto } ifelse
+  } forall
+  currentpoint cairo_store_point
+} bind def
+/cairo_selectfont { cairo_font_matrix aload pop pop pop 0 0 6 array astore
+    cairo_font exch selectfont cairo_point_x cairo_point_y moveto } bind def
+/Tf { pop /cairo_font exch def /cairo_font_matrix where
+      { pop cairo_selectfont } if } bind def
+/Td { matrix translate cairo_font_matrix matrix concatmatrix dup
+      /cairo_font_matrix exch def dup 4 get exch 5 get cairo_store_point
+      /cairo_font where { pop cairo_selectfont } if } bind def
+/Tm { 2 copy 8 2 roll 6 array astore /cairo_font_matrix exch def
+      cairo_store_point /cairo_font where { pop cairo_selectfont } if } bind def
+/g { setgray } bind def
+/rg { setrgbcolor } bind def
+/d1 { setcachedevice } bind def
+/cairo_data_source {
+  CairoDataIndex CairoData length lt
+    { CairoData CairoDataIndex get /CairoDataIndex CairoDataIndex 1 add def }
+    { () } ifelse
+} def
+/cairo_flush_ascii85_file { cairo_ascii85_file status { cairo_ascii85_file flushfile } if } def
+/cairo_image { image cairo_flush_ascii85_file } def
+/cairo_imagemask { imagemask cairo_flush_ascii85_file } def
+/cairo_set_page_size {
+  % Change paper size, but only if different from previous paper size otherwise
+  % duplex fails. PLRM specifies a tolerance of 5 pts when matching paper size
+  % so we use the same when checking if the size changes.
+  /setpagedevice where {
+    pop currentpagedevice
+    /PageSize known {
+      2 copy
+      currentpagedevice /PageSize get aload pop
+      exch 4 1 roll
+      sub abs 5 gt
+      3 1 roll
+      sub abs 5 gt
+      or
+    } {
+      true
+    } ifelse
+    {
+      2 array astore
+      2 dict begin
+        /PageSize exch def
+        /ImagingBBox null def
+      currentdict end
+      setpagedevice
+    } {
+      pop pop
+    } ifelse
+  } {
+    pop
+  } ifelse
+} def
+%%EndProlog
+%%BeginSetup
+%%EndSetup
+%%Page: 1 1
+%%BeginPageSetup
+%%PageMedia: 27x27mm
+%%PageBoundingBox: 3 5 72 74
+77 77 cairo_set_page_size
+%%EndPageSetup
+q 3 5 69 69 rectclip
+1 0 0 -1 0 77 cm q
+0 0 0.6 rg
+71.281 37.5 m 71.281 56.16 56.16 71.281 37.5 71.281 c 18.84 71.281 3.781
+ 56.16 3.781 37.5 c 3.781 18.84 18.84 3.781 37.5 3.781 c 56.16 3.781 71.281
+ 18.84 71.281 37.5 c h
+71.281 37.5 m f
+1 g
+24.781 19.5 m 58.5 19.5 l 67.141 29.578 67.441 44.34 59.219 54.781 c 51
+ 65.16 36.539 68.34 24.781 62.281 c 24.781 42.781 l 44.281 42.781 l 44.281
+ 32.281 l 24.781 32.281 l h
+24.781 19.5 m f
+Q Q
+showpage
+%%Trailer
+%%EOF

data/spec/examples/emf2svg/img.svg

@@ -0,0 +1,9 @@
+
+<svg version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" width="1275.0000" height="1275.0000">
+<g transform="translate(-0.0000, -0.0000)">
+<g transform="matrix(1.0000 0.0000 0.0000 1.0000 0.0000 0.0000)">
+<path d="M 1188.0000,625.0000 C 1188.0000,936.0000 936.0000,1188.0000 625.0000,1188.0000 C 314.0000,1188.0000 63.0000,936.0000 63.0000,625.0000 C 63.0000,314.0000 314.0000,63.0000 625.0000,63.0000 C 936.0000,63.0000 1188.0000,314.0000 1188.0000,625.0000 Z "  fill="#000099" stroke="none" />
+<path d="M 413.0000,325.0000 L 975.0000,325.0000 C 1119.0000,493.0000 1124.0000,739.0000 987.0000,913.0000 C 850.0000,1086.0000 609.0000,1139.0000 413.0000,1038.0000 L 413.0000,713.0000 L 738.0000,713.0000 L 738.0000,538.0000 L 413.0000,538.0000 Z "  fill="#FFFFFF" stroke="none" />
+</g>
+</g>
+</svg>

data/spec/examples/eps2emf/img.eps

@@ -0,0 +1,199 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%Document-Fonts: Times-Roman
+%%Title: circle.eps
+%%Creator: PS_Write.F
+%%CreationDate: 02-Aug-99
+%%Pages: 1
+%%BoundingBox:   36   36  576  756
+%%LanguageLevel: 1
+%%EndComments
+%%BeginProlog
+%%EndProlog
+/inch {72 mul} def
+/Palatino-Roman findfont
+1.00 inch scalefont
+setfont
+ 0.0000 0.0000 0.0000 setrgbcolor
+%% Page:     1    1
+save
+  63 153 moveto
+ newpath
+  63 153 moveto
+ 549 153 lineto
+ stroke
+ newpath
+ 549 153 moveto
+ 549 639 lineto
+ stroke
+ newpath
+ 549 639 moveto
+  63 639 lineto
+ stroke
+ newpath
+  63 639 moveto
+  63 153 lineto
+ stroke
+ newpath
+ 360 261 108   0 360 arc
+ closepath stroke
+ newpath
+ 361 357 moveto
+ 358 358 lineto
+ 353 356 lineto
+ 348 353 lineto
+ 342 347 lineto
+ 336 340 lineto
+ 329 331 lineto
+ 322 321 lineto
+ 315 309 lineto
+ 307 296 lineto
+ 300 283 lineto
+ 292 268 lineto
+ 285 253 lineto
+ 278 237 lineto
+ 271 222 lineto
+ 266 206 lineto
+ 260 191 lineto
+ 256 177 lineto
+ 252 164 lineto
+ 249 152 lineto
+ 247 141 lineto
+ 246 131 lineto
+ 246 123 lineto
+ 247 117 lineto
+ 248 113 lineto
+ 251 111 lineto
+ 254 110 lineto
+ 259 112 lineto
+ 264 115 lineto
+ 270 121 lineto
+ 276 128 lineto
+ 283 137 lineto
+ 290 147 lineto
+ 297 159 lineto
+ 305 172 lineto
+ 312 185 lineto
+ 320 200 lineto
+ 327 215 lineto
+ 334 231 lineto
+ 341 246 lineto
+ 346 262 lineto
+ 352 277 lineto
+ 356 291 lineto
+ 360 304 lineto
+ 363 316 lineto
+ 365 327 lineto
+ 366 337 lineto
+ 366 345 lineto
+ 365 351 lineto
+ 364 355 lineto
+ 361 357 lineto
+ stroke
+ newpath
+ 171 261 moveto
+ 171 531 lineto
+ stroke
+ newpath
+ 198 261 moveto
+ 198 531 lineto
+ stroke
+ newpath
+ 225 261 moveto
+ 225 531 lineto
+ stroke
+ newpath
+ 252 261 moveto
+ 252 531 lineto
+ stroke
+ newpath
+ 279 261 moveto
+ 279 531 lineto
+ stroke
+ newpath
+ 306 261 moveto
+ 306 531 lineto
+ stroke
+ newpath
+ 333 261 moveto
+ 333 531 lineto
+ stroke
+ newpath
+ 360 261 moveto
+ 360 531 lineto
+ stroke
+ newpath
+ 387 261 moveto
+ 387 531 lineto
+ stroke
+ newpath
+ 414 261 moveto
+ 414 531 lineto
+ stroke
+ newpath
+ 441 261 moveto
+ 441 531 lineto
+ stroke
+ newpath
+ 171 261 moveto
+ 441 261 lineto
+ stroke
+ newpath
+ 171 288 moveto
+ 441 288 lineto
+ stroke
+ newpath
+ 171 315 moveto
+ 441 315 lineto
+ stroke
+ newpath
+ 171 342 moveto
+ 441 342 lineto
+ stroke
+ newpath
+ 171 369 moveto
+ 441 369 lineto
+ stroke
+ newpath
+ 171 396 moveto
+ 441 396 lineto
+ stroke
+ newpath
+ 171 423 moveto
+ 441 423 lineto
+ stroke
+ newpath
+ 171 450 moveto
+ 441 450 lineto
+ stroke
+ newpath
+ 171 477 moveto
+ 441 477 lineto
+ stroke
+ newpath
+ 171 504 moveto
+ 441 504 lineto
+ stroke
+ newpath
+ 171 531 moveto
+ 441 531 lineto
+ stroke
+ newpath
+ 306 396   5   0 360 arc
+ closepath stroke
+ 0.0000 1.0000 0.0000 setrgbcolor
+ newpath
+ 387 477  54   0  90 arc
+ stroke
+ 171 261 moveto
+ 0.0000 0.0000 0.0000 setrgbcolor
+/Palatino-Roman findfont
+   0.250 inch scalefont
+setfont
+(This is "circle.plot".) show
+ 171 342 moveto
+/Palatino-Roman findfont
+   0.125 inch scalefont
+setfont
+(This is small print.) show
+restore showpage
+%%Trailer