Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  783 1644 (N39E28 L=125)   591     68        1 ( 756/1609- 822/1672)  53.1 E31-E24 N36-N41
      2 1412 1578 (N42W26 L=178)   871    134        1 (1363/1533-1471/1614) -29.1 W21-W30 N39-N44
      3  358 1519 (N25E61 L= 91)  1787    225        4 ( 333/1428- 386/1603) -31.4 E74-E54 N19-N30
      4 1629 1498 (N38W46 L=198)   508     73        1 (1592/1464-1660/1528) -31.0 W42-W48 N35-N40
      5  821 1402 (N23E18 L=135)   573    210        0 ( 793/1314- 871/1497)  85.2 E18-E16 N17-N29
      6  446  835 (S16E37 L=115)  2922    553        4 ( 271/ 629- 585/1007)  41.2 E60-E27 S32-S04
      7 1088  782 (S13W06 L=159)   344     85        2 (1063/ 739-1107/ 826) -68.2 W04-W07 S15-S10
      8 1819  749 (S09W64 L=217)   525     57        1 (1806/ 711-1832/ 783) -68.2 W62-W66 S11-S06
      9 1463  711 (S14W32 L=185)   545    151        0 (1396/ 686-1543/ 732)   0.0 W27-W38 S15-S12
     10 1733  671 (S14W57 L=209)   460     59        1 (1711/ 644-1762/ 692)   0.0 W53-W60 S15-S12
     11 1148  652 (S21W12 L=164)   224     72        2 (1111/ 622-1177/ 680)  45.0 W09-W13 S22-S18
     12 1395  518 (S27W33 L=185)   595    151        1 (1329/ 467-1453/ 564)  53.1 W28-W35 S31-S23
     13 1437  386 (S36W43 L=195)  1281    154        3 (1388/ 355-1510/ 433)   4.4 W37-W51 S38-S33
     14  562  405 (S46E34 L=118)   516     78        1 ( 532/ 378- 602/ 430)  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