{===========================================================================}
{                                                                           }
{ Filename:  'schwerpunkt'                                                  }
{ Startname:                                                                }
{                                                                           }
{ Dieses Macro ist geistiges Eigentum der Inauen-Schätti AG und darf ohne   }
{ unser Einverstaendnis weder kopiert noch weitergegeben werden.            }
{                                                                           }
{                                                                           }
{ Copyright by ISAG	21.11.02 \ Urs Thali                                    }
{                                                                           }
{===========================================================================}
{                                                                           }
{ Inauen-Schätti AG                                   Telefon 055 647 48 91 }
{ Tschachen 1                                         Telefax 055 647 48 69 }
{ 8672 Schwanden                               E-Mail  uthali@seilbahnen.ch }
{                                                                           }
{===========================================================================}


DEFINE FLAECHENMASS
  LOCAL A
  LOCAL EINH
  LOCAL FARBE
  LOCAL LINIENTYP
  LOCAL DRG_SCALE
  LOCAL P1
  LOCAL P2
  LOCAL ZEILE
  INQ_ENV 7
  LET DRG_SCALE (INQ 4)
  INQ_ENV 3
  LET FARBE (INQ 201)
  LET LINIENTYP (INQ 301)
  READ PNT 'Picken Sie einen Punkt in der FlÌche an:' P1
  AREA_PROPERTY P1 DEL_OLD 'C:\temp\flaeche'
  OPEN_INFILE 1 'C:\temp\flaeche'
  READ_FILE 1 ZEILE
  READ_FILE 1 ZEILE
  LET EINH (LWC(TRIM(SUBSTR(ZEILE) 11 10)))
  LOOP
    READ_FILE 1 ZEILE
    LET ZEILE (TRIM(ZEILE))
    EXIT_IF (ZEILE='FLØCHENMASS')
  END_LOOP
  READ_FILE 1 A
  LET A (ROUND(VAL(SUBSTR(A) 8 100)*100)/100)
  READ_FILE 1 ZEILE
  READ_FILE 1 ZEILE
  CLOSE_FILE 1
  LET P2 (VAL(TRIM(SUBSTR(ZEILE) 16 100)))
  LINE DOTTED CYAN
  POINT P2
  LINEPATTERN LINIENTYP
  LINE RGB_COLOR FARBE END
  REDRAW
  LET T (5/DRG_SCALE)
  LET P3 (P2+(PNT_XY T 0))
  TEXT CYAN 'S' P3
  CHANGE_TEXT_SIZE 3 P3
  CHANGE_TEXT_SLANT 15 P3
  TEXT_ADJUST 4 P3 END
END_DEFINE