Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  749 1762 (N31E43 L=139)  1879    320        0 ( 675/1655- 855/1818) -82.4 E48-E34 N21-N36
      2 1179 1704 (N39E11 L=171)   697    170        1 (1126/1632-1220/1765) -33.7 E17-E05 N34-N42
      3  527 1665 (N19E53 L=129)   427     61        2 ( 502/1637- 548/1700) -76.0 E54-E50 N17-N21
      4  372 1516 (N07E58 L=125)   872    111        2 ( 319/1478- 415/1567)  71.6 E61-E54 N04-N10
      5 1736 1384 (N35W40 L=222)   796    212        0 (1703/1287-1765/1466) -65.6 W36-W43 N28-N40
      6  423 1277 (S06E43 L=139)   305     54        1 ( 394/1251- 441/1302)  53.1 E45-E41 S08-S04
      7  705 1188 (S06E22 L=160)   293     92        0 ( 693/1134- 722/1233) -68.2 E23-E20 S08-S03
      8 1540 1140 (N13W27 L=209)   222      0       -1 (1512/1121-1567/1153)  33.7 W25-W28 N11-N14
      9  227  965 (S28E56 L=126)  1754    400        0 ( 165/ 800- 271/1134)  64.5 E68-E52 S38-S17
     10 1846 1061 (N19W55 L=237)   759    135        1 (1826/ 991-1865/1117)  90.0 W52-W57 N14-N22
     11  352  870 (S31E43 L=140)  1186    403        3 ( 307/ 718- 403/1047) -73.3 E47-E37 S40-S20
     12  467  957 (S24E33 L=149)   476     97        2 ( 440/ 924- 509/1000) -26.6 E36-E29 S26-S21
     13  678  929 (S21E18 L=164)   594    193        0 ( 602/ 855- 727/ 982) -26.6 E23-E13 S24-S18
     14 1713  910 (N06W45 L=227)   263     58        1 (1686/ 887-1738/ 938)  53.1 W43-W47 N03-N07
     15 1454  816 (S07W30 L=212)   444    100        3 (1424/ 771-1482/ 866) -81.9 W28-W31 S10-S03
     16 1617  639 (S11W48 L=231)  1385    244        0 (1511/ 575-1718/ 687)  42.5 W43-W55 S17-S06
     17 1324  504 (S28W35 L=217)   582    142        1 (1255/ 482-1386/ 537)  32.0 W30-W38 S30-S24
     18 1509  381 (S28W57 L=239)  1679    251        1 (1391/ 352-1624/ 410)  16.3 W47-W71 S32-S24
     19  609  336 (S64E13 L=169)  1615    186        1 ( 522/ 296- 688/ 380)   2.3 E26-E01 S66-S60
     20 1191  331 (S42W38 L=220)  1500    226        3 (1065/ 298-1281/ 365)  19.4 W28-W45 S46-S37
     21 1103  175 (S56W52 L=234)   397     44        0 (1084/ 158-1125/ 196)  -5.7 W47-W57 S57-S54
  

    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