Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  638 1794 (N38E59 L=145)  1054    127        1 ( 593/1761- 688/1842)  -8.4 E78-E50 N35-N40
      2  603 1678 (N28E50 L=155)  1034    213        2 ( 522/1638- 682/1721)  48.4 E54-E45 N24-N33
      3 1430 1537 (N40W16 L=220)  1089    200        0 (1361/1458-1463/1617) -48.0 W09-W19 N34-N44
      4  323 1540 (N14E68 L=136)   638     71        1 ( 300/1502- 351/1578) -78.7 E69-E65 N11-N16
      5 1329 1415 (N28W10 L=215)  1490    496        1 (1183/1217-1409/1561) -40.4 E02-W19 N17-N35
      6  895 1504 (N23E20 L=185)   250    128        0 ( 860/1458- 934/1559) -29.1 E24-E15 N21-N26
      7  927 1350 (N15E13 L=191)   837    286        3 ( 808/1301-1057/1393)   0.0 E21-E04 N12-N16
      8 1267 1322 (N21W08 L=212)   332    124        1 (1237/1266-1282/1378) -56.3 W05-W09 N17-N23
      9 1696 1222 (N25W41 L=246)  1294    278        3 (1651/1145-1788/1278)  -4.1 W37-W51 N20-N28
     10  301 1135 (S11E51 L=153)  1345    336        3 ( 257/1013- 343/1265) -57.3 E58-E46 S17-S03
     11  208 1127 (S13E62 L=143)  2720    282        9 ( 149/ 993- 250/1228) -70.3 E70-E55 S20-S06
     12 1885 1025 (N18W65 L=270)  1164    148        2 (1870/ 947-1900/1094) -83.7 W62-W69 N13-N22
     13  354  975 (S19E44 L=161)   732    199        1 ( 290/ 904- 387/1053)  59.0 E49-E41 S24-S13
     14 1268  714 (S15W22 L=226)   219     51        1 (1242/ 687-1281/ 744) -63.4 W20-W23 S16-S12
     15 1063  687 (S21W10 L=215)   853    337        2 ( 909/ 648-1194/ 721)  32.0 W01-W17 S26-S16
     16  456  639 (S39E33 L=171)  3879    528        8 ( 228/ 559- 673/ 708)   4.6 E64-E13 S43-S33
     17 1609  491 (S20W57 L=261)   383     67        1 (1586/ 467-1626/ 526) -63.4 W54-W58 S21-S17
     18  506  475 (S50E29 L=175)   333     54        0 ( 477/ 461- 543/ 492)   0.0 E32-E24 S51-S49
     19  788  383 (S49W01 L=205)   700    150        0 ( 744/ 338- 864/ 433) -18.4 E04-W08 S51-S46
     20 1218  346 (S39W36 L=240)   360     45        1 (1185/ 325-1244/ 361)  11.3 W32-W37 S40-S37
  

    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