← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to prim/proc/overlab.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
prim/proc/overlab.prg
 
1
! ++++++++++++++++++++++++++++++++++++++++++++++
 
2
!.IDENTIFICATION: overlab.prg
 
3
!.PURPOSE:        write a text (80 char. max.) on a graphic device
 
4
!.USE             execute as LABEL par1 par2 par3 par4 par5, where: 
 
5
!                 par1 = "text to write"
 
6
!                 par2 = position in world units
 
7
!                 par3 = text angle
 
8
!                 par4 = character expansion factor
 
9
!                 par5 = centering parameter
 
10
!.AUTHOR:         Ch. Ounnas   820705
 
11
!.VERSION         860911 KB  ???
 
12
!                 880303 RHW centering par. added, free angle and size
 
13
!.VERSION:        930512 RHW addition for non-existing plot file
 
14
! 070928        last modif
 
15
! 
 
16
!------------------------------------------------------------------
 
17
! 
 
18
define/param p1 ? c "Enter text to be overplotted: "
 
19
define/param p2 c c
 
20
define/param p3 0 n
 
21
define/param p4 1 n
 
22
define/param p5 0 n
 
23
!
 
24
inputi = m$index(p1,"\aglquotes")
 
25
if inputi .gt. 0 then
 
26
   write/keyw outputc/c/1/80 {p1}       !get rid of any outer "'s
 
27
   inputi = m$index(outputc,"\aglquotes")
 
28
   inputi(2) = inputi+10
 
29
 
 
30
   if inputi .eq. 1 then
 
31
      write/keyw inputc/c/1/5 "\{"\}"
 
32
      inputc(6:) = outputc({inputi(2)}:)
 
33
   else
 
34
      inputc = outputc(1:{inputi})      !last char overwritten in next line...
 
35
      write/keyw inputc/c/{inputi}/5 "\{"\}"
 
36
      inputi = inputi+5
 
37
      inputc({inputi}:) = outputc({inputi(2)}:)
 
38
   endif
 
39
else
 
40
   write/keyw inputc/c/1/80 {p1}
 
41
endif
 
42
write/keyw inputr/r/1/2  {p3},{p4}
 
43
write/keyw inputi/i/1/1  {p5}
 
44
!
 
45
run MID_EXE:overlab
 
46
copy/graph
 
47