Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1166 1636 (N35W07 L=293)   628     86        0 (1141/1586-1187/1687)  76.0 W05-W09 N31-N39
      2 1351 1625 (N36W21 L=307)   360     31        1 (1324/1600-1377/1645)  14.0 W19-W23 N33-N37
      3 1571 1472 (N26W36 L=322)   877    197        0 (1494/1423-1659/1527) -22.6 W30-W43 N23-N29
      4 1826 1273 (N16W57 L=343)  2920    294        8 (1726/1155-1885/1360) -81.3 W47-W67 N08-N21
      5  253 1273 (N09E55 L=231)   368     48        1 ( 226/1256- 283/1289)  -9.5 E58-E52 N08-N10
      6 1777  962 (S03W51 L=337)   328     43        0 (1756/ 935-1791/ 991)  76.0 W49-W52 S05-S01
      7  166  878 (S14E64 L=222)  1020    103        1 ( 134/ 836- 189/ 937)  45.0 E69-E60 S16-S10
      8 1849  797 (S12W62 L=348)   515     84        0 (1833/ 752-1866/ 846) -51.3 W58-W64 S14-S09
      9 1186  617 (S28W13 L=299)  1919    474        0 (1096/ 491-1312/ 736)  47.5 W06-W20 S36-S20
     10  341  570 (S34E54 L=232)  1106    209        0 ( 269/ 509- 422/ 604)   9.5 E68-E44 S37-S31
     11 1759  560 (S27W62 L=348)  1081    109        1 (1695/ 541-1811/ 577)   8.1 W54-W69 S28-S25
     12 1340  544 (S32W25 L=311)   488     96        1 (1291/ 522-1384/ 576)  18.4 W21-W27 S33-S29
     13 1551  352 (S44W54 L=340)  2882    260        5 (1425/ 322-1687/ 381)   4.8 W39-W75 S46-S40
     14  748  338 (S50E22 L=264)  2152    384        2 ( 559/ 308- 900/ 380)  -1.7 E41-E07 S53-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