[dennou-ruby:000988] DCL color maps, uetonc

[Takeshi Horinouchi <horinout@xxxxxx>]

��Ƿ��Ǥ���

�Ƕ� ruby �� DCL ��ȤäƤơ������ʤ�Ȥ����ʤ��Ȼפä����ȤǤ���

�� color map �μ���ؤ����ưפ�

���� color map �ϥǥե���Ȥ� colormap.x11 ���� dcldbase �ǥ���
���ȥ꡼�˥��󥹥ȡ��뤵��ޤ��󤬡�dcl �����ۥѥå�������ˤϡ�
����ʳ��˴��Ĥ�����Ƥ���褦�Ǥ�(find������Ȥʤ󤫽ФƤ���
��)�������� $prefix/dcldbase �˥��󥹥ȡ��뤵���褦�ˤ���ĺ
�������Ȼפ��ޤ���demo/rakuraku ��� colormap2.x11,
colormap2.x11,.. �Ȥ����ե����뤬����ޤ��������Τ褦���ֹ���
������������Ȥ����Ȼפ��ޤ�����������ȡ��ֲ��֤Υ��顼�ޥåפ�
�Ȥ��פȤ���ɽ����ǧ���ˤ��Ǥ��������Ǥ����Ĥ��Ǥˡ��ƥ��顼�ޥ�
�פˤĤ��ơ�������Υݥꥷ���Υ����Ȥ�����Фʤ��褷�Ǥ����ǥե�
��Ȥϡ����ʤ�ɤ��ˡס�1�֤ϥ��졼�������롢2�֤ϥѥ��ƥ�Ĵ����
����

�������顼�ޥåפ� sgopn �λ��˷���졢���θ��ѹ��Ǥ��ʤ��褦
�Ǥ���������Ū�˻ȤäƤ���ȥ��顼�ޥåפ����ؤ��Ƹ��Ƥߤ�����
�Ȥ������Ȥ�����ޤ�������ǥ��顼�ޥåפ��ѹ����륵�֥롼����
�ߤ����Ǥ�����������ȴ��˽񤤤��ޤο����ѤäƤ��ޤ��Ǥ��礦����
����Ǥ����ؤ���Ȥ�������褬�ߤ����Ǥ������Τ�������� grcls
& gropn ����Τϴ򤷤��ʤ��Τǡ�

�� uetonc

�ɥ�����Ȥ��ʤ��Τ��Τ�ͤ��Τ�⥶��������Ǥ��͡����η�»��
�����������Ƚ���Ƥޤ���uetonf ����٤�ĺ����Ф�ʬ����Ȼ�
���ޤ��������ɤ�Υ�٥�η���ˤϷ�»�ͤ���θ����Ƥ���Τˡ���
��˿��ֹ�������Ƥ�Ȥ��˷�»�ͤ��θ��˺��Ƥ��ޤ������Τ��ᡢ
��»��ʬ�˿����դ����Ȥ�����ޤ���

uetonc.f:
67:          IF (UX .EQ. RUNDEF) THEN
68:            IMAGE(I) = 0
69:          ELSE
70:            IX = IUWGX(UX)
71:            IY = IUWGY(UY)
72:            IF (IX.EQ.IUNDEF .OR. IY.EQ.IUNDEF) THEN
73:              IMAGE(I) = 0
74:            ELSE
75:              ZZ = Z(IX, IY)
76:              IMAGE(I) = IUETON(ZZ)/1000
77:            END IF
78:          END IF

uetonf.f:
69:          IF (UX.EQ.RUNDEF) THEN
70:            IMAGE(I) = 0
71:          ELSE
72:            CALL UWQGXI(UX,IX,FX)
73:            CALL UWQGYI(UY,IY,FY)
74:            IF (IX.EQ.IUNDEF .OR. IY.EQ.IUNDEF) THEN
75:              IMAGE(I) = 0
76:            ELSE
77:              IF (LMISS .AND.
78:     +             (Z(IX  , IY  ).EQ.RMISS .OR.
79:     +              Z(IX+1, IY  ).EQ.RMISS .OR.
80:     +              Z(IX  , IY+1).EQ.RMISS .OR.
81:     +              Z(IX+1, IY+1).EQ.RMISS)     ) THEN
82:                IMAGE(I) = 0
83:              ELSE
84:                ZZ = (Z(IX, IY  )*(1-FX) + Z(IX+1,IY  )*FX)*(1-FY)
85:     +             + (Z(IX, IY+1)*(1-FX) + Z(IX+1,IY+1)*FX)*FY
86:                IMAGE(I) = IUETON(ZZ)/1000
87:              END IF
88:            END IF
89:          END IF


�⤦�ҤȤĵ��ˤʤ�Τ��������ϰϤǤ���ü�Υ⥶�������������Ⱦʬ
�ˤʤ�褦�ˤʤäƤޤ����Ĥޤ겼�Τ褦�ʤʥ֥��å��˿����ɤ���
�褦�ˤʤäƤޤ���

     _____________________
     |_|___|___|___|___|_|
     | |   |   |   |   | |
     |_|___|___|___|___|_|
     | |   |   |   |   | |
     |_|___|___|___|___|_|
     |_|___|___|___|___|_|

�����Ǥʤ��������в��Τ褦�ˤʤäƤ����ȴ򤷤��Ǥ��ʤ��뤤�ϡ�
�ѥ�᥿���Ǥɤ��餫���٤�褦�ˤʤ�Ȥ��ˡ�

      _______________________
     |   |   |   |   |   |   |
     |___|___|___|___|___|___|
     |   |   |   |   |   |   |
     |___|___|___|___|___|___|
     |   |   |   |   |   |   |
     |___|___|___|___|___|___|
     |   |   |   |   |   |   |
     |___|___|___|___|___|___|

�ʾ塢�ѥå��Ǥʤ�ñ�ʤ����Ǥ��ߤޤ���

��Ƿ�� ��                    horinout@xxxxxx
�������������Ȳʳظ��楻�󥿡�     611-0011 �����Ըޥ���