← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/proc/tutgrp.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/tutgrp.prg
 
1
! @(#)tutgrp.prg        19.1 (ES0-DMD) 02/25/03 14:09:10
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!.IDENTIFICATION: TUTPLT.PRG
 
4
!.PURPOSE:        Demonstration procedure for the graphics package. 
 
5
!.AUTHOR:         Rein Warmels  ESO - Garching April. 25 , 1988
 
6
!.USE:            Execute as TUTORIAL/GRAPHICS
 
7
!.NOTE:           The following files should exist
 
8
!                     UGC.TBL & EXAMPL.TBL in MID_TEST
 
9
!.VERSION:        880425 RHW creation
 
10
!.VERSION:        881005 RHW split up into several parts
 
11
!.VERSION:        931029 RvH added 3-D table tutorial
 
12
! -----------------------------------------------------------------------
 
13
DEFINE/PARAM P1 GENERAL C                              ! default tutorial
 
14
!
 
15
BRANCH P1(1:2) GE,AX,TA,1D,2D,TB,AL,LO,AU GENERAL,AXES,TABLE,DIM1,DIM2,TABLE3,ALL,LOOP,ALL
 
16
!
 
17
! Here for a general demonstration
 
18
GENERAL:
 
19
@ pltgen
 
20
RETURN
 
21
!
 
22
! Here you will find a number of examples to draw axes
 
23
AXES:
 
24
@ pltaxs
 
25
RETURN
 
26
!
 
27
! Here for the table stuff
 
28
TABLE:
 
29
@ plttbl
 
30
RETURN
 
31
!
 
32
! Here you will find a number of examples to draw spectra
 
33
DIM1:
 
34
@ plt1d
 
35
RETURN
 
36
!
 
37
! Here for the two-dimensional stuff
 
38
DIM2:
 
39
@ plt2d
 
40
RETURN
 
41
!
 
42
! Here for the three-dimensional table stuff
 
43
TABLE3:
 
44
@ plttbl3
 
45
RETURN
 
46
!
 
47
! Here for all
 
48
ALL:
 
49
@ pltgen
 
50
@ pltaxs
 
51
@ plttbl
 
52
@ plt1d
 
53
@ plt2d
 
54
@ plttbl3
 
55
IF P1(1:4) .EQ. "AUTO" THEN
 
56
  -DELETE tspiral.bdf
 
57
  -DELETE graph_wnd000.plt
 
58
  -DELETE image_wnd000.plt
 
59
  -DELETE texample.plt
 
60
  -DELETE tugc.dat
 
61
  -DELETE tugc.fmt
 
62
   write/out successful end of graphics subsystem tutorial...
 
63
ENDIF
 
64
RETURN
 
65
!
 
66
! Here for all
 
67
LOOP:
 
68
@ pltgen
 
69
@ pltaxs
 
70
@ plttbl
 
71
@ plt1d
 
72
@ plt2d
 
73
@ plttbl3
 
74
GOTO LOOP