Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1386 1704 (N45W44 L=223)   958    173        1 (1319/1661-1472/1728)  -3.0 W36-W55 N42-N45
      2  484 1674 (N54E52 L=127)   475     67        0 ( 466/1641- 512/1697) -68.2 E55-E47 N51-N56
      3 1012 1593 (N42W07 L=186)   238     50        0 ( 985/1576-1039/1611) -45.0 W04-W08 N40-N44
      4 1164 1461 (N31W15 L=194)   956    172        3 (1088/1410-1238/1515) -37.9 W10-W19 N27-N35
      5 1743 1431 (N20W61 L=240)   469     57        0 (1711/1413-1775/1447) -15.9 W57-W65 N19-N21
      6  343 1354 (N31E50 L=129)  1856    360        6 ( 204/1319- 501/1391)   3.5 E69-E35 N28-N33
      7 1764 1310 (N13W58 L=237)   697    143        1 (1705/1278-1829/1340) -22.6 W52-W64 N10-N15
      8  203 1199 (N21E63 L=116)  1756    195        2 ( 170/1111- 236/1288) -37.6 E71-E57 N16-N26
      9  113 1051 (N12E77 L=103)   977     52        2 (  97/1017- 128/1079) -36.9 E81-E73 N09-N13
     10  539  956 (N05E31 L=148)   427    104        2 ( 510/ 910- 568/1011) -63.4 E33-E29 N02-N08
     11  988  938 (N01E03 L=176)   276     99        0 ( 973/ 891-1009/ 991)  53.1 E04-E01 S01-N03
     12 1672  835 (S14W42 L=221)   504    121        0 (1628/ 785-1704/ 890)  45.0 W38-W44 S16-S10
     13 1267  859 (S07W13 L=192)   297     96        2 (1229/ 825-1295/ 880) -63.4 W10-W15 S09-S05
     14  525  639 (S14E37 L=142)  1010    324        2 ( 482/ 523- 568/ 765) -90.0 E41-E34 S22-S05
     15  401  609 (S16E49 L=130)  1124    172        3 ( 362/ 546- 447/ 688)  83.7 E51-E45 S19-S10
     16  897  547 (S23E13 L=166)   571    118        1 ( 852/ 502- 938/ 603)  50.2 E16-E09 S26-S19
     17 1215  529 (S28W07 L=186)   539     98        2 (1187/ 481-1232/ 590)  76.0 W05-W08 S31-S23
     18 1055  400 (S36E05 L=174)  2674    457        6 ( 888/ 345-1214/ 490) -15.3 E15-W07 S40-S26
     19  498  435 (S28E48 L=131)   636     75        1 ( 465/ 412- 542/ 465) -31.0 E50-E43 S29-S25
     20 1531  325 (S51W41 L=220)   814     70        2 (1496/ 307-1570/ 348)  -4.8 W35-W47 S53-S48
     21 1278  244 (S54W13 L=192)  1912    268        2 (1173/ 207-1403/ 303)   7.1 W02-W26 S57-S49
  

    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