Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1380 1721 (N36W53 L=156)  2551    372        1 (1227/1655-1544/1758) -13.6 W36-W69 N29-N39
      2 1230 1590 (N33W32 L=136)   825    151        2 (1192/1519-1280/1654)  78.7 W29-W35 N27-N37
      3  587 1123 (N23E24 L= 79)   282     33        1 ( 566/1096- 607/1144) -71.6 E25-E22 N21-N24
      4 1735  898 (S21W42 L=146)  1254    288        1 (1631/ 853-1802/ 992)  -3.4 W33-W50 S23-S15
      5 1519  945 (S11W27 L=130)   302     67        0 (1494/ 918-1549/ 975) -68.2 W25-W28 S13-S08
      6  229  876 (N16E60 L= 44)   347     59        0 ( 214/ 846- 246/ 906)  63.4 E61-E57 N13-N17
      7 1855  849 (S29W56 L=159)  1505    150        0 (1794/ 814-1922/ 899)  -2.9 W47-W67 S30-S26
      8  175  795 (N11E70 L= 34)  2319    131        3 ( 125/ 735- 216/ 852) -28.6 E79-E65 N07-N14
      9  481  794 (N06E39 L= 64)   241     85        0 ( 448/ 767- 510/ 828) -59.0 E40-E37 N04-N09
     10 1413  743 (S19W15 L=119)   440     96        0 (1392/ 686-1432/ 790)  51.3 W12-W17 S22-S16
     11 1763  697 (S35W44 L=147)  1096    130        0 (1735/ 635-1798/ 759)  54.5 W40-W48 S38-S31
     12  367  568 (S05E57 L= 47)   641     98        0 ( 312/ 549- 410/ 589)   0.0 E62-E51 S06-S03
     13 1260  462 (S33E01 L=102)   405     81        0 (1234/ 427-1278/ 509)  59.0 E03-W01 S35-S30
     14  748  349 (S27E39 L= 64)   369     52        0 ( 720/ 326- 778/ 372)   9.5 E42-E36 S28-S25
  

    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