Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  533 1745 (N39E49 L=217)   532    179        0 ( 490/1718- 560/1771) -26.6 E55-E45 N36-N41
      2  763 1738 (N39E29 L=237)   406     61        1 ( 738/1717- 792/1762) -14.0 E31-E26 N37-N41
      3  509 1461 (N18E38 L=227)   678    148        2 ( 453/1423- 554/1497) -24.0 E43-E34 N15-N19
      4  293  980 (S13E49 L=216)  1415    258        6 ( 231/ 896- 377/1043)  22.6 E55-E42 S17-S08
      5  392  950 (S14E41 L=225)   824    223        3 ( 345/ 869- 426/1043)  90.0 E44-E38 S18-S08
      6  124  925 (S16E68 L=197)  1727    192        3 ( 103/ 843- 148/1001)  77.5 E71-E64 S20-S11
      7  768  842 (S18E14 L=251)  1802    483        5 ( 681/ 582- 905/ 982)  66.0 E20-E06 S35-S08
      8  484  899 (S17E34 L=232)   228     62        0 ( 468/ 866- 506/ 928)  63.4 E34-E32 S18-S14
      9  225  791 (S24E57 L=209)   756    182        1 ( 193/ 733- 267/ 850)  45.0 E60-E52 S27-S20
     10 1056  768 (S20W04 L=270)   201     58        0 (1039/ 734-1071/ 803)  78.7 W03-W05 S22-S17
     11  325  726 (S28E48 L=218)   830    261        1 ( 280/ 642- 393/ 787)  39.8 E53-E41 S33-S23
     12  949  755 (S22E02 L=263)   226     47        1 ( 920/ 736- 971/ 779)  56.3 E03-W00 S23-S20
     13 1454  631 (S24W33 L=299)   729    126        1 (1390/ 583-1519/ 670)  49.4 W29-W36 S27-S20
     14 1726  606 (S22W56 L=321)   399    109        0 (1679/ 577-1767/ 630)  35.5 W52-W59 S24-S19
  

    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