Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  725 1749 (N41E44 L=320)   495     98        0 ( 694/1708- 752/1788) -66.8 E47-E41 N37-N44
      2 1162 1514 (N33W00 L=  4)   782    307        1 (1087/1387-1252/1621) -43.0 E07-W08 N25-N39
      3  496 1411 (N14E43 L=321)   669    143        2 ( 463/1342- 518/1471) -37.9 E47-E38 N10-N17
      4 1513 1260 (N22W28 L= 32)   711    126        2 (1462/1215-1545/1321)  49.4 W24-W30 N19-N26
      5 1848 1286 (N30W64 L= 68)   553     75        1 (1814/1270-1885/1303)   4.4 W59-W73 N29-N31
      6 1418 1238 (N19W21 L= 25)   223    101        0 (1389/1210-1461/1275) -21.8 W19-W24 N17-N21
      7  874  933 (S08E07 L=356)   641    189        2 ( 845/ 847- 896/1023) -73.3 E09-E06 S13-S03
      8  717  912 (S12E17 L=347)   221    106        1 ( 706/ 860- 739/ 966) -63.4 E18-E14 S15-S09
      9  625  877 (S16E23 L=341)   788    231        1 ( 555/ 808- 687/ 940)   6.3 E27-E18 S20-S12
     10  217  781 (S29E61 L=302)  1827    244        5 ( 156/ 704- 284/ 864)  26.6 E79-E51 S35-S22
     11 1130  621 (S23W14 L= 18)  3144    848       12 ( 806/ 492-1462/ 832)  40.6 E06-W30 S36-S04
     12  568  518 (S41E26 L=338)  1179    188        2 ( 493/ 479- 654/ 558)  22.4 E34-E17 S45-S37
     13 1718  520 (S19W66 L= 70)  1331    157        2 (1646/ 488-1788/ 548)  18.4 W58-W77 S22-S16
     14 1452  412 (S31W46 L= 50)   969    153        2 (1380/ 380-1525/ 452)  20.0 W40-W52 S34-S27
     15 1234  303 (S44W36 L= 40)   792     67        2 (1201/ 269-1271/ 345) -40.6 W32-W39 S46-S40
  

    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