Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  721 1738 (N61W04 L= 19)   628     96        2 ( 691/1712- 763/1767) -50.2 W00-W08 N56-N64
      2 1116 1702 (N42W32 L= 48)   828    174        0 (1041/1657-1189/1738) -66.0 W28-W34 N37-N46
      3  665 1689 (N59E04 L= 11)   310     55        0 ( 647/1664- 684/1712) -78.7 E06-E02 N56-N61
      4 1491 1682 (N28W57 L= 73)   782    161        0 (1404/1668-1557/1694) -14.9 W49-W64 N25-N30
      5  568 1633 (N58E17 L=358)   779     95        2 ( 527/1590- 612/1667)  16.7 E22-E11 N55-N60
      6  346 1519 (N56E48 L=327)   431     53        1 ( 331/1489- 361/1550)  90.0 E51-E45 N53-N58
      7 1165 1515 (N29W24 L= 39)   298     20        1 (1142/1494-1188/1537)   0.0 W22-W25 N27-N30
      8 1234 1332 (N17W21 L= 36)   464    217        1 (1131/1311-1336/1362) -36.0 W15-W26 N13-N21
      9  298 1118 (N29E48 L=327)   295     67        0 ( 264/1101- 327/1143)   0.0 E51-E44 N28-N30
     10 1367  691 (S22W11 L= 26)   215     82        0 (1338/ 659-1398/ 720)  21.8 W08-W13 S23-S21
     11 1459  620 (S30W15 L= 31)   678    163        0 (1391/ 581-1510/ 677)  11.3 W10-W20 S31-S27
     12 1243  322 (S44E09 L=  6)  1033    190        2 (1157/ 272-1314/ 372)   3.8 E17-E02 S46-S41
     13  891  224 (S40E40 L=335)   741    125        1 ( 849/ 179- 927/ 278)  65.6 E43-E36 S45-S34
  

    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