scripts_online5/save.gs at main · afrassoni/scripts_online5 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
*
* Help is in the end of this script.
*
function save( args )

  _version='0.02r2'

  if( args = '' )
    help()
    return
  endif

*** arguements ***
  fhead = subwrd( args, 1 )

*** save ***
  'enable print 'fhead'.gmf'
  'print'
  'disable'
  '!gxeps -c -i 'fhead'.gmf -o 'fhead'.eps'
  '!rm -f 'fhead'.gmf'

return

*
* help
*
function help()
  say ' Name:'
  say '   save '_version' - save image as eps format'
  say ' '
  say ' Usage:'
  say '   save file-head'
  say ''
  say '     file-head : filename before'
  say '       (ex. file-head=test -> save as test.eps)'
  say ''
  say ' Note:'
  say '   [arg-name]       : specify if needed'
  say '   (arg1 | arg2)    : arg1 or arg2 must be specified'
  say '   This function uses gxeps command.'
  say ''
  say ' Copyright (C) 2009 Chihiro Kodama'
  say ' Distributed under GNU GPL (http://www.gnu.org/licenses/gpl.html)'
  say ''
return