Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1252 1838 (N65W05 L= 78)  5153    430        6 (1082/1757-1442/1900)  -1.1 E21-W34 N59-N72
      2 1240 1658 (N46W06 L= 79)  2248    417        3 (1051/1576-1381/1706)  -9.8 E11-W18 N41-N48
      3  688 1660 (N36E39 L= 35)   391     63        0 ( 652/1639- 724/1675)  31.0 E41-E35 N33-N37
      4  636 1591 (N30E39 L= 34)   396     84        0 ( 616/1544- 653/1630) -50.2 E41-E35 N26-N32
      5  485 1463 (N19E45 L= 28)   639    134        3 ( 440/1425- 531/1511) -24.0 E50-E40 N17-N21
      6  498 1306 (N10E39 L= 35)   651    181        2 ( 450/1232- 537/1378) -38.7 E44-E34 N05-N13
      7 1676 1224 (N22W43 L=116)  1170    225        0 (1594/1137-1739/1299) -33.7 W35-W48 N17-N25
      8 1769 1070 (N13W52 L=125)   496     68        0 (1736/1052-1803/1090)   8.1 W48-W55 N12-N14
      9  571  949 (S11E28 L= 46)   366    151        0 ( 525/ 890- 610/1007)  60.9 E30-E25 S15-S06
     10  256  839 (S23E55 L= 18)   511     76        1 ( 240/ 798- 275/ 880) -80.5 E56-E53 S25-S19
     11  658  802 (S19E20 L= 53)   300     72        0 ( 624/ 772- 684/ 837) -45.0 E22-E18 S20-S16
     12 1371  791 (S09W25 L= 98)   257    104        0 (1345/ 756-1411/ 824)  59.0 W23-W27 S11-S06
     13  407  713 (S28E40 L= 33)   466    134        0 ( 360/ 671- 444/ 763)  37.9 E45-E36 S31-S24
     14  974  700 (S20W02 L= 75)   264     88        0 ( 926/ 676-1009/ 715) -11.3 E01-W04 S21-S19
     15 1432  665 (S16W32 L=106)   521     97        2 (1387/ 638-1477/ 690)  18.4 W29-W35 S17-S13
     16 1708  648 (S13W56 L=129)   412     46        1 (1689/ 627-1731/ 674) -21.8 W53-W58 S14-S11
     17  771  653 (S27E11 L= 62)   594    181        2 ( 668/ 638- 853/ 666)   8.7 E18-E05 S28-S24
     18  510  611 (S34E32 L= 42)   610    158        0 ( 443/ 579- 587/ 641)  23.2 E38-E24 S36-S30
     19 1367  579 (S22W30 L=104)   693    279        1 (1270/ 509-1447/ 618)   0.0 W24-W38 S25-S19
     20  787  186 (S69E07 L= 67)  1113    104        0 ( 752/ 145- 819/ 231) -50.2 E12-W00 S76-S63
  

    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