Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  650 1745 (N57E37 L=274)   359     30        0 ( 628/1726- 671/1762)  33.7 E40-E33 N55-N58
      2  856 1526 (N38E10 L=301)   503    153        0 ( 789/1490- 931/1554)  10.3 E14-E03 N35-N39
      3 1649 1440 (N26W51 L=  2)   322     32        0 (1631/1417-1665/1467)  63.4 W49-W52 N23-N27
      4 1768 1384 (N21W61 L= 12)  1075    164        1 (1736/1310-1811/1447) -83.7 W58-W64 N15-N24
      5 1434 1392 (N25W31 L=342)   303    106        0 (1385/1374-1490/1416) -23.2 W27-W34 N23-N26
      6 1808 1393 (N20W67 L= 18)   697     47        2 (1781/1370-1832/1415) -18.4 W64-W71 N18-N22
      7  243 1214 (N19E59 L=252)  1224    188        0 ( 214/1136- 272/1294)  90.0 E61-E55 N13-N23
      8  940 1147 (N13E05 L=306)   273     82        0 ( 898/1126- 987/1161)   0.0 E07-E01 N11-N13
      9  370 1056 (N09E44 L=267)   503    170        2 ( 336/ 991- 425/1087)  39.8 E47-E39 N05-N10
     10  641  895 (S01E25 L=286)  1768    452        1 ( 574/ 765- 774/1078) -58.6 E28-E16 S09-N09
     11 1500  937 (S04W30 L=340)   685    209        0 (1409/ 890-1574/1008)  18.4 W23-W35 S06-N00
     12  277  647 (S17E60 L=251)  1708    165        5 ( 234/ 591- 323/ 726) -60.9 E65-E55 S20-S11
     13  902  567 (S23E11 L=300)   268    107        0 ( 849/ 551- 955/ 588) -23.2 E14-E07 S24-S21
     14 1056  344 (S41E02 L=308)  2145    296        6 ( 968/ 253-1139/ 465)  52.6 E10-W04 S49-S31
     15  616  262 (S47E48 L=263)  1816    162        2 ( 531/ 238- 691/ 301)   7.6 E67-E37 S50-S43
  

    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