Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  928 1896 (N60E46 L=121)   590     48        0 ( 905/1878- 957/1919)  -7.6 E56-E39 N58-N62
      2 1499 1533 (N41W27 L=194)   466    106        2 (1460/1478-1525/1571) -81.9 W22-W29 N37-N44
      3  436 1500 (N18E52 L=116)   612     98        1 ( 406/1461- 482/1535) -15.3 E56-E45 N15-N20
      4  375 1426 (N12E54 L=113)   513     88        2 ( 347/1402- 415/1453)   0.0 E57-E49 N10-N13
      5 1817 1233 (N26W58 L=225)  1320    222        1 (1755/1144-1867/1318) -33.7 W50-W63 N21-N31
      6  177 1106 (S10E66 L=102)   826     98        4 ( 144/1072- 210/1139)  39.8 E71-E61 S12-S07
      7  272 1088 (S10E54 L=114)   492     80        0 ( 246/1043- 288/1122) -51.3 E56-E51 S12-S07
      8  148  900 (S23E71 L= 97)   882    117        0 ( 132/ 841- 175/ 937)  40.6 E74-E64 S26-S20
      9  249  843 (S25E55 L=112)   419     88        1 ( 218/ 818- 283/ 874) -14.0 E59-E51 S26-S23
     10  872  671 (S25E03 L=164)  2171    603        5 ( 626/ 560-1086/ 815)  42.7 E19-W07 S36-S12
     11 1354  641 (S18W28 L=196)   398    154        0 (1319/ 617-1392/ 686)  78.7 W26-W31 S19-S14
     12 1708  571 (S16W61 L=228)   616     97        2 (1682/ 532-1741/ 608)  90.0 W58-W63 S18-S12
     13 1594  438 (S26W58 L=226)   807    152        1 (1539/ 403-1668/ 474)  33.7 W53-W63 S29-S22
     14 1235  178 (S54W54 L=221)   545     48        1 (1216/ 157-1255/ 204) -17.1 W48-W61 S56-S51
     15 1014  184 (S61W29 L=197)   577     63        1 ( 982/ 169-1054/ 201)  12.5 W24-W34 S63-S58
  

    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