← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to prim/proc/alpha.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/alpha.prg
 
1
! @(#)alpha.prg 19.1 (ESO-DMD) 02/25/03 14:08:43
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! MIDAS procedure alpha.prg to implement LABEL/DISPLAY + CLEAR/ALPHA
 
5
! K. Banse      910314, 941116, 961030, 981022
 
6
! 
 
7
! use via LABEL/DISPLAY string line,column [mode] [option] [size] [key_flag]
 
8
!                       mode : A for alpha channel, O for overlay channel
 
9
!                       option : for DeAnza - submode for mode = A
 
10
!                                             angle for mode = O
 
11
!                                for X11 - color for mode = O
 
12
! or      CLEAR/ALPHA
 
13
!
 
14
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
15
!
 
16
CROSSREF TEXT POSITION CHANNEL COLOR SIZE KEY
 
17
! 
 
18
action(1:3) = "ANX"
 
19
if mid$cmnd(1:1) .eq. "C" THEN
 
20
   write/keyw p1 " "                    !handle CLEAR/ALPHA
 
21
   write/keyw p3 A                      !make sure we have the alph option
 
22
   !
 
23
else
 
24
   if mid$cmnd(11:11) .eq. "A" then     !here for LABEL/ANY
 
25
      action(3:3) = "F"                 !indicate input from ASCII file
 
26
   else                                 !here for LABEL/DISPLAY
 
27
      define/param p1 ? c "Enter string: "
 
28
      define/param p2 cursor c "Enter line_no,column_no or CURSOR: "
 
29
      define/param p3 O c "Enter mode: "
 
30
      define/param p4 white c "Enter color: "
 
31
      define/param p5 0 n "Enter text size, 0/1/2 for Normal/Large/VeryLarge: "
 
32
      define/param p6 n c "Enter key_flag, K(ey) or N(okey): "
 
33
   endif
 
34
endif
 
35
!
 
36
run MID_EXE:IDFUNC