← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/proc/colourdef.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/colourdef.prg
 
1
! @(#)colourdef.prg     19.1 (ES0-DMD) 02/25/03 14:08:46
 
2
! +++++++++++++++++++++++++++++++++++++
 
3
! 
 
4
! command procedure colourdef.prg to define "main" colours
 
5
! K. Banse      910124
 
6
!       
 
7
!  use via  @ colourdef color_name
 
8
! 
 
9
! the R,G,B values for given colour are written
 
10
! into keyword INPUTR/R/1/3
 
11
! for the 8 plot colours also keyword INPUTI(20) is set to the correct no.
 
12
!  
 
13
! +++++++++++++++++++++++++++++++++++++
 
14
! 
 
15
DEFINE/PARAM P1 RED C "Enter colour name: "
 
16
! 
 
17
INPUTI(20) = -1                         !init to not found
 
18
BRANCH P1(1:3) RED,GRE,BLU,WHI,BLA RED,GREEN,BLUE,WHITE,BLACK
 
19
GOTO TESTA
 
20
! 
 
21
RED:
 
22
 WRITE/KEYW INPUTR 1.,0.,0.
 
23
 INPUTI(20) = 3
 
24
 RETURN
 
25
GREEN:
 
26
 WRITE/KEYW INPUTR 0.,1.,0.
 
27
 INPUTI(20) = 4
 
28
 RETURN
 
29
BLUE:
 
30
 WRITE/KEYW INPUTR 0.,0.,1.
 
31
 INPUTI(20) = 5
 
32
 RETURN
 
33
WHITE:
 
34
 WRITE/KEYW INPUTR 1.,1.,1.
 
35
 INPUTI(20) = 2
 
36
 RETURN
 
37
BLACK:
 
38
 WRITE/KEYW INPUTR 0.,0.,0.
 
39
 INPUTI(20) = 1
 
40
 RETURN
 
41
! 
 
42
TESTA:
 
43
BRANCH P1(1:3) YEL,PIN,BRO,ORA,VIO YELLOW,PINK,BROWN,ORANGE,VIOLET
 
44
GOTO TESTB
 
45
! 
 
46
YELLOW:
 
47
 WRITE/KEYW INPUTR 1.,1.,0.
 
48
 INPUTI(20) = 6
 
49
 RETURN
 
50
PINK:
 
51
! WRITE/KEYW INPUTR 0.,0.2,0.8
 
52
 WRITE/KEYW INPUTR 0.87,0.71,0.77
 
53
 RETURN
 
54
BROWN:
 
55
 WRITE/KEYW INPUTR 0.784,0.196,0.039
 
56
 RETURN
 
57
ORANGE:
 
58
 WRITE/KEYW INPUTR 1.,0.4,0.05
 
59
 RETURN
 
60
VIOLET:
 
61
 WRITE/KEYW INPUTR 1.,0.,1.
 
62
 RETURN
 
63
! 
 
64
TESTB:
 
65
BRANCH P1(1:3) AQU,GOL,SAL,COR,SEA AQUA,GOLD,SALMON,CORAL,SEAGREEN
 
66
GOTO TESTC
 
67
! 
 
68
AQUA:
 
69
 WRITE/KEYW INPUTR 0.44,0.859,0.576
 
70
 RETURN
 
71
GOLD:
 
72
 WRITE/KEYW INPUTR 0.8,0.6,0.3
 
73
 RETURN
 
74
SALMON:
 
75
 WRITE/KEYW INPUTR 0.435,0.259,0.259
 
76
 RETURN
 
77
CORAL:
 
78
 WRITE/KEYW INPUTR 1.0,0.5,0.0
 
79
 RETURN
 
80
SEAGREEN:
 
81
 WRITE/KEYW INPUTR 0.137,0.557,0.42
 
82
 RETURN
 
83
! 
 
84
TESTC:
 
85
BRANCH P1(1:1) B,W,R,G,Y,M,C BLACK,WHITE,RED,GREEN,YELLOW,MAGENTA,CYAN
 
86
GOTO WHITE                                      !we don't know that colour
 
87
! 
 
88
MAGENTA:
 
89
 INPUTI(20) = 7
 
90
 RETURN
 
91
! 
 
92
CYAN:
 
93
 INPUTI(20) = 8