Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  892 1538 (N32E16 L=287)   379     98        1 ( 866/1501- 930/1566) -68.2 E18-E13 N29-N34
      2 1823 1372 (N31W66 L=  9)   578     43        0 (1801/1347-1843/1394) -71.6 W62-W69 N29-N32
      3  751 1327 (N17E21 L=282)   249     63        1 ( 733/1290- 772/1356)  90.0 E22-E19 N14-N18
      4 1114 1232 (N15W03 L=306)   216     84        1 (1097/1190-1137/1273) -68.2 W01-W04 N12-N17
      5 1757 1087 (N12W51 L=354)  1466    242        2 (1734/ 971-1774/1201)  77.9 W49-W53 N05-N19
      6 1526 1066 (N09W32 L=335)   269    120        0 (1510/1013-1543/1122) -74.1 W30-W33 N05-N12
      7  621  933 (S09E24 L=279)   509    133        1 ( 594/ 872- 654/ 986)  66.8 E25-E22 S12-S05
      8  221  875 (S17E59 L=244)  1313    158        4 ( 183/ 809- 261/ 938) -82.9 E64-E54 S21-S13
      9  191  789 (S23E66 L=238)  1231    102        2 ( 153/ 744- 219/ 833) -59.0 E73-E61 S26-S20
     10 1668  673 (S14W50 L=353)   478    106        2 (1642/ 624-1701/ 718) -39.8 W47-W54 S16-S11
     11 1401  591 (S22W31 L=334)   318    104        0 (1360/ 566-1427/ 632)  59.0 W28-W32 S23-S18
     12 1693  464 (S27W66 L=  9)  3088    283        4 (1580/ 401-1798/ 550)  32.3 W54-W77 S33-S20
     13 1426  420 (S34W40 L=343)   344     74        1 (1409/ 384-1440/ 454) -45.0 W37-W42 S36-S31
  

    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