Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  727 1693 (N28E41 L=276)  1044    243        5 ( 661/1597- 804/1790) -25.6 E54-E31 N23-N34
      2 1070 1680 (N37E18 L=300)  1242    231        1 (1010/1578-1122/1765) -38.7 E25-E10 N31-N43
      3 1562 1671 (N57W26 L=343)  1197    139        1 (1508/1633-1625/1696)  30.6 W18-W40 N50-N63
      4  262  959 (S26E52 L=265)  1479    307        1 ( 190/ 835- 361/1034)  34.4 E62-E42 S35-S20
      5  669  702 (S32E14 L=304)   773    271        1 ( 556/ 679- 809/ 734)  25.2 E22-E05 S35-S26
      6 1496  582 (S16W43 L=  0)   363     96        0 (1444/ 560-1538/ 604)  51.3 W40-W45 S18-S13
      7 1172  532 (S28W24 L=342)   816    142        1 (1128/ 466-1207/ 600) -71.6 W21-W25 S32-S23
      8  410  450 (S59E42 L=276)   535     61        0 ( 384/ 433- 441/ 477)   0.0 E46-E36 S60-S56
      9 1326  416 (S30W40 L=358)   938    305        0 (1195/ 380-1445/ 455)  13.4 W30-W51 S33-S27
     10  481  404 (S61E32 L=286)  1005     77        3 ( 452/ 372- 515/ 452) -71.6 E38-E26 S64-S55
     11  588  342 (S62E16 L=302)   879     65        1 ( 555/ 309- 625/ 381) -45.0 E20-E10 S65-S58
     12  813  292 (S57W12 L=330)   329     38        0 ( 789/ 269- 833/ 308)  -9.5 W09-W15 S59-S55
     13 1259  183 (S48W62 L= 20)   519     52        0 (1244/ 156-1273/ 210)  -8.1 W56-W70 S49-S46
  

    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