Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  981 1633 (N32E11 L= 49)   328     64        0 ( 943/1609-1017/1653) -18.4 E14-E08 N30-N32
      2  289 1474 (N15E60 L=  0)  5308    323       16 ( 210/1329- 406/1568)  53.7 E74-E51 N05-N21
      3  399 1493 (N16E49 L= 11)  1035     98        5 ( 356/1436- 447/1554)  82.9 E52-E46 N12-N20
      4  188 1406 (N10E70 L=350)  1087    110        3 ( 160/1358- 213/1450)  68.2 E74-E66 N07-N13
      5  439 1229 (N00E39 L= 21)   267     95        1 ( 400/1197- 479/1243)  -9.5 E42-E36 S01-N01
      6 1862 1122 (N13W58 L=118)  1545    231        2 (1814/1008-1892/1207) -55.0 W52-W61 N06-N16
      7  687 1109 (S05E21 L= 39)   405    151        0 ( 670/1041- 704/1186)  90.0 E22-E19 S08-N00
      8 1715 1116 (N09W43 L=104)   526    123        2 (1687/1058-1739/1169)  74.1 W41-W45 N05-N12
      9  162 1070 (S10E64 L=357)  2016    176        7 ( 110/1003- 218/1149)  60.9 E71-E56 S14-S05
     10  423  990 (S14E38 L= 22)   243     58        2 ( 397/ 960- 444/1013) -56.3 E40-E36 S15-S12
     11  258  962 (S16E53 L=  8)   338     44        2 ( 236/ 941- 279/ 984)  26.6 E54-E50 S17-S14
     12  774  926 (S14E14 L= 46)   264    115        0 ( 735/ 877- 800/ 972) -45.0 E16-E11 S16-S11
     13 1409  897 (S08W25 L= 85)   371    168        0 (1374/ 821-1433/ 971)  84.3 W23-W25 S13-S03
     14  214  872 (S22E58 L=  2)  2141    366        5 (  89/ 815- 393/ 907)   7.9 E83-E40 S24-S18
     15  438  730 (S29E38 L= 23)  2004    413        5 ( 289/ 619- 554/ 879)  33.7 E55-E28 S37-S19
     16 1895  802 (S05W68 L=129)  1103    148        3 (1870/ 746-1918/ 860) -60.3 W64-W73 S08-S01
     17 1346  705 (S20W24 L= 85)   562    220        0 (1270/ 666-1428/ 767)  -5.2 W18-W29 S22-S17
     18  997  439 (S42W07 L= 67)  2498    482        7 ( 772/ 401-1201/ 484)  12.0 E11-W23 S45-S37
     19 1441  422 (S36W42 L=102)   418    101        1 (1396/ 401-1490/ 445)  -5.7 W37-W47 S37-S34
  

    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