Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1400 1715 (N48W43 L=186)   578     84        1 (1362/1693-1440/1739)  -6.3 W38-W47 N46-N50
      2  696 1428 (N31E22 L=121)   622    144        1 ( 656/1358- 728/1491) -56.3 E25-E18 N26-N35
      3  249 1352 (N26E63 L= 80)  1489    194        4 ( 208/1282- 282/1431) -73.3 E67-E58 N21-N31
      4 1062 1323 (N23W04 L=147)   806    263        2 ( 977/1261-1142/1357)   5.7 E01-W09 N18-N25
      5  271 1268 (N21E57 L= 86)   408     97        0 ( 241/1230- 304/1307)  45.0 E59-E54 N18-N23
      6  380 1211 (N18E45 L= 98)   285     63        1 ( 361/1177- 401/1243)  76.0 E46-E42 N15-N19
      7 1584 1007 (N00W36 L=179)   274     90        1 (1553/ 978-1628/1035) -31.0 W34-W39 S02-N01
      8 1882  898 (S10W67 L=209)  3517    289        9 (1820/ 774-1943/ 984)  42.7 W59-W79 S17-S05
      9 1795  898 (S09W55 L=198)   879    160        1 (1757/ 835-1823/ 964)  58.0 W51-W58 S12-S04
     10 1698  886 (S08W46 L=188)   318     59        0 (1681/ 855-1716/ 919) -53.1 W44-W47 S10-S06
     11 1363  821 (S10W20 L=163)   252     70        2 (1338/ 803-1395/ 849) -26.6 W18-W22 S10-S08
     12 1154  802 (S10W07 L=150)   223     94        0 (1128/ 769-1195/ 829)  36.9 W05-W09 S11-S08
     13 1472  802 (S12W28 L=171)   247     43        2 (1458/ 770-1488/ 829)  71.6 W26-W29 S13-S10
     14  709  687 (S15E22 L=121)   757    277        3 ( 664/ 568- 770/ 796)  57.3 E26-E16 S23-S08
     15  328  753 (S11E51 L= 92)   395     64        2 ( 306/ 724- 358/ 778) -90.0 E53-E47 S12-S09
     16 1308  732 (S15W17 L=160)   587    225        3 (1201/ 706-1410/ 753)  -8.1 W09-W23 S17-S13
     17 1655  648 (S24W45 L=187)  1683    287        2 (1554/ 544-1736/ 724)  40.2 W37-W51 S30-S18
     18 1356  631 (S22W20 L=163)   742    231        1 (1274/ 560-1408/ 677)   0.0 W14-W24 S27-S19
     19  439  559 (S24E46 L= 97)  1007    131        1 ( 410/ 506- 481/ 615)  38.7 E50-E40 S27-S19
     20 1566  456 (S37W42 L=185)   358     75        0 (1527/ 439-1599/ 478)  18.4 W37-W45 S38-S35
     21  383  445 (S32E60 L= 83)  1343    165        5 ( 306/ 429- 464/ 468)   2.1 E75-E48 S33-S30
     22  725  285 (S46E33 L=110)   454     51        2 ( 693/ 260- 748/ 305)  15.9 E36-E29 S48-S44
     23 1379  248 (S55W34 L=176)   627     70        0 (1358/ 221-1410/ 280) -31.6 W29-W42 S59-S51
  

    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