Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1456 1606 (N27W42 L=201)   408    114        0 (1399/1577-1501/1625) -45.0 W38-W45 N24-N29
      2 1409 1399 (N16W31 L=189)   707    266        0 (1308/1364-1539/1435) -14.0 W24-W40 N13-N19
      3  141 1262 (N30E69 L= 90)  2704    256        3 (  84/1157- 214/1372)  42.7 E82-E59 N24-N36
      4  317 1132 (N19E45 L=114)  3035    655       13 ( 213/ 940- 387/1354)  76.0 E56-E38 N08-N33
      5  643 1249 (N21E19 L=139)   939    342        1 ( 477/1208- 781/1285) -13.4 E31-E10 N18-N25
      6  671 1157 (N15E19 L=140)   207     44        2 ( 647/1136- 693/1180)  18.4 E20-E17 N13-N16
      7 1841 1142 (S07W58 L=217)   795    135        4 (1800/1097-1892/1171) -24.0 W53-W63 S08-S04
      8  943 1012 (N02E05 L=154)   545    228        1 ( 881/ 913- 977/1114) -80.5 E06-E03 S04-N08
      9  773 1072 (N08E14 L=145)   376    126        0 ( 710/1052- 829/1091)  -8.1 E17-E10 N07-N09
     10 1790  996 (S14W51 L=209)  1025    197        2 (1739/ 904-1831/1074) -63.4 W46-W54 S20-S08
     11  221 1032 (N15E55 L=104)   313     63        0 ( 199/1000- 238/1060)  36.9 E57-E53 N13-N16
     12  124  982 (N13E68 L= 90)   681     66        2 ( 106/ 942- 152/1018) -63.4 E71-E64 N11-N15
     13  383  986 (N10E41 L=118)   305     89        3 ( 357/ 966- 424/1013)   0.0 E42-E37 N08-N11
     14 1721  910 (S18W43 L=202)   380     63        0 (1700/ 879-1746/ 941) -63.4 W41-W45 S19-S15
     15 1306  844 (S14W13 L=172)   235    142        0 (1228/ 824-1354/ 875)   0.0 W08-W16 S14-S12
     16 1589  838 (S20W32 L=191)   294     72        1 (1568/ 801-1614/ 873)  63.4 W30-W34 S21-S17
     17  940  686 (S17E11 L=148)  1277    494        4 ( 733/ 580-1123/ 808)  12.5 E26-W01 S19-S11
     18  299  619 (S10E58 L=100)  1541    204        7 ( 249/ 542- 343/ 707)  84.3 E62-E54 S14-S04
     19 1351  584 (S31W13 L=172)   220     44        1 (1332/ 562-1368/ 612)  45.0 W11-W14 S32-S29
     20  929  529 (S26E16 L=143)   277     76        0 ( 878/ 512- 967/ 542) -31.0 E18-E13 S27-S24
     21  616  228 (S41E58 L=100)  1021    134        0 ( 597/ 154- 638/ 290)  28.6 E74-E50 S48-S36
     22  990  194 (S53E28 L=131)   674     85        1 ( 948/ 172-1036/ 216) -12.5 E32-E22 S55-S50
  

    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