Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  790 1643 (N39E27 L=125)   714    100        1 ( 753/1606- 838/1680) -16.7 E32-E22 N36-N41
      2 1416 1579 (N42W26 L=178)   911    131        3 (1366/1534-1475/1618) -29.1 W21-W31 N39-N45
      3  362 1522 (N25E61 L= 91)  1671    184        5 ( 330/1435- 388/1599) -31.4 E72-E54 N19-N30
      4 1635 1497 (N38W46 L=198)   517     85        1 (1596/1461-1667/1529) -51.3 W42-W49 N35-N40
      5  825 1395 (N22E17 L=135)   584    211        0 ( 793/1301- 862/1479)  85.2 E18-E16 N16-N28
      6  454  835 (S16E37 L=115)  3040    555        5 ( 277/ 629- 596/1007)  40.3 E59-E26 S32-S04
      7 1098  782 (S13W07 L=159)   320     98        2 (1077/ 740-1117/ 824) -59.0 W05-W08 S15-S10
      8 1824  747 (S09W65 L=217)   518     55        2 (1811/ 709-1836/ 782) -59.0 W63-W67 S11-S06
      9 1466  713 (S14W32 L=184)   455    144        0 (1407/ 689-1540/ 732)   0.0 W28-W38 S14-S12
     10 1734  670 (S14W57 L=209)   433     62        1 (1706/ 639-1762/ 690) -31.0 W53-W60 S16-S12
     11 1404  519 (S27W33 L=185)   608    158        0 (1335/ 469-1466/ 558)  45.0 W29-W37 S31-S23
     12 1444  379 (S37W44 L=196)  1743    171        4 (1395/ 339-1516/ 435) -10.6 W37-W53 S39-S32
     13  568  405 (S46E33 L=118)   570     67        1 ( 536/ 380- 607/ 429)  26.6 E38-E28 S48-S43
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y