Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1251 1610 (N40W00 L=218)   991    203        2 (1187/1527-1293/1683) -42.0 E06-W04 N34-N44
      2  694 1477 (N17E32 L=186)  1322    492        4 ( 545/1358- 847/1632) -17.4 E50-E18 N12-N24
      3 1165 1463 (N27E02 L=216)   855    422        0 (1057/1291-1220/1604) -43.4 E13-W05 N17-N34
      4  738 1556 (N23E32 L=185)   278     85        1 ( 709/1524- 770/1596) -26.6 E35-E29 N21-N25
      5 1078 1378 (N20E05 L=213)   343    152        0 (1057/1305-1093/1440) -77.5 E07-E03 N14-N23
      6 1530 1289 (N25W26 L=244)   612    198        1 (1502/1214-1587/1333) -74.1 W24-W30 N20-N28
      7  148 1228 (S08E75 L=142)   758     52        1 ( 130/1202- 163/1250)  31.0 E78-E72 S09-S06
      8  215 1166 (S11E62 L=156)  1893    166        9 ( 168/1103- 268/1217) -19.7 E69-E54 S14-S07
      9 1778 1065 (N18W51 L=268)   905    207        2 (1752/ 965-1796/1150)  85.2 W47-W52 N11-N23
     10  154 1113 (S15E70 L=148)   698     64        2 ( 134/1084- 172/1147)  90.0 E73-E66 S16-S12
     11 1842 1062 (N19W58 L=276)   388     80        1 (1828/1019-1855/1097)  78.7 W57-W60 N16-N21
     12  231 1024 (S19E57 L=160)   738    123        0 ( 212/ 961- 250/1078)  69.4 E59-E55 S23-S15
     13  754  964 (S12E15 L=203)   346    118        1 ( 708/ 937- 797/1006)   0.0 E18-E12 S13-S10
     14 1173  919 (S05W11 L=228)   416    171        2 (1102/ 863-1222/ 967) -11.3 W05-W15 S07-S03
     15  946  770 (S19W01 L=219)   319    107        1 ( 900/ 755- 997/ 790)  45.0 E01-W04 S20-S16
     16  322  704 (S38E47 L=170)  3126    385        7 ( 165/ 663- 473/ 755)   8.3 E86-E31 S43-S32
     17 1783  562 (S11W73 L=290)   666     40        0 (1758/ 544-1809/ 582)   0.0 W67-W79 S11-S09
     18 1614  400 (S25W66 L=283)   534     58        0 (1599/ 375-1634/ 434) -18.4 W60-W70 S26-S22
     19  690  402 (S51E09 L=209)   513    109        1 ( 646/ 380- 745/ 433)   0.0 E13-E03 S52-S48
     20 1566  365 (S28W64 L=282)   525     46        0 (1545/ 345-1592/ 388)   0.0 W59-W68 S29-S26
     21 1495  336 (S32W60 L=277)   731     51        1 (1472/ 307-1524/ 369) -18.4 W54-W63 S33-S30
  

    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