{ *********************************************************** }

define em edit_macro end_define

define dac edit_part top delete all confirm end_define

LET FORM_ROT   1
LET FORM_GRUEN 1
LET FORM_BLAU  1
LET FORM_FARBE_TAFEL 0,0,0
LET FORM_FARBE_HGEO  0.5,1,1
LET FORM_FARBE_GEO   1,1,0
LET FORM_FARBE_SCHRAFFUR 1,1,1

DEFINE Form_farbtafel
  LOCAL I
 LET Lastmen 'Tm_picture'
  IF (I_port)
    Check_i_port
  END_IF
  IF (NOT I_port)
    MENU_BUFFER ON
    CURRENT_MENU Sm_picture_layout_name T_clear_menu Menu_control_icons
  LET I 0
  REPEAT
    MENU WHITE
    RGB_COLOR (PNT_XYZ (I/10) 0 0) '' ('LET FORM_rot '+STR (I/10)+
    ' FORM_farbe') (I+2) 1
    MENU WHITE
    RGB_COLOR (PNT_XYZ 0 (I/10) 0) '' ('LET FORM_gruen '+STR (I/10)+
    ' FORM_farbe') (I+2) 2
    MENU WHITE
    RGB_COLOR (PNT_XYZ 0 0 (I/10)) '' ('LET FORM_blau '+STR (I/10)+
    ' FORM_farbe') (I+13) 1
    MENU WHITE
    RGB_COLOR (PNT_XYZ (I/10) (I/10) (I/10)) '' ('LET FORM_rot '+STR (I/10)
    +' LET FORM_gruen '+STR (I/10)+' LET FORM_blau '+STR (I/10)+
    ' FORM_farbe') (I+13) 2
    LET I (I+1)
  UNTIL (I>10)
  MENU WHITE
  BLACK 'Elem'
  'LET FORM_farbe_geo (PNT_XYZ FORM_rot FORM_gruen FORM_blau) FORM_farbe' 26
  2
  MENU WHITE
  BLACK 'Hint'
  'LET FORM_farbe_tafel (PNT_XYZ FORM_rot FORM_gruen FORM_blau) FORM_farbe'
  26 4
  MENU WHITE
  BLACK 'Schr'
  'LET FORM_farbe_schraffur (PNT_XYZ FORM_rot FORM_gruen FORM_blau) FORM_farbe'
  27 2
  MENU WHITE
  BLACK 'HGeo'
  'LET FORM_farbe_hgeo (PNT_XYZ FORM_rot FORM_gruen FORM_blau) FORM_farbe'
  27 4 Form_farbe    Eight_menu_slots_add
  END_IF

END_DEFINE      {FORM_farbtafel }

DEFINE FORM_farbe
  MENU WHITE RGB_COLOR (PNT_XYZ FORM_rot FORM_gruen FORM_blau) '' '' 1 3
  MENU WHITE BLACK (STR FORM_rot)   '' 24 1
  MENU WHITE BLACK (STR FORM_gruen) '' 24 2
  MENU WHITE BLACK (STR FORM_blau)  '' 25 1
  MENU WHITE RGB_COLOR FORM_farbe_geo '' '' 26 1
  MENU WHITE RGB_COLOR FORM_farbe_tafel '' '' 26 3
  MENU WHITE RGB_COLOR FORM_farbe_schraffur '' '' 27 1
  MENU WHITE RGB_COLOR FORM_farbe_hgeo '' '' 27 3
  COLOR RGB_COLOR FORM_farbe_geo
  CHANGE_VIEWPORT_COLOR RGB_COLOR FORM_farbe_tafel
  HATCH_COLOR RGB_COLOR FORM_farbe_schraffur
  C_COLOR RGB_COLOR FORM_farbe_hgeo
END_DEFINE      {FORM_farbe }

DEFINE Lm
  LIST_MACRO_NAMES SCREEN
END_DEFINE

DEFINE Ef
  EDIT_FILE
END_DEFINE

DEFINE Tron
  TRACE DEL_OLD 'c:/tmp/trace_on'
END_DEFINE

DEFINE Troff
  TRACE OFF
  EDIT_FILE 'c:/tmp/trace_on'
END_DEFINE