begin

;
; Open a PostScript workstation. Note that the coordinates selected
; do not form a square, so the aspect ratio of the plot will also
; not be a square.  
;
  wid = create "workstation" psWorkstationClass defaultapp
      "wkDeviceLowerX" : -75   ; These coordinates can be negative.
      "wkDeviceLowerY" : -50
      "wkDeviceUpperX" : 750
      "wkDeviceUpperY" : 950
  end create

;
; Create the default TickMark object.
;
  tmid = create "ticks" tickMarkClass wid end create

  draw(tmid)  ; Draw the TickMark object.
  frame(wid)  ; Advance the frame.
end