Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  643 1694 (N61E07 L= 45)  1770    252        6 ( 529/1637- 752/1751)  -6.1 E23-W06 N58-N63
      2  417 1564 (N57E38 L= 14)   489     66        2 ( 395/1532- 444/1599)  45.0 E42-E34 N54-N59
      3  757 1513 (N42E03 L= 49)   590    146        1 ( 711/1448- 811/1569) -79.7 E05-W00 N36-N47
      4 1172 1456 (N26W22 L= 74)   391    147        1 (1102/1433-1243/1472) -36.9 W17-W25 N22-N28
      5  832 1265 (N25E05 L= 47)   312     82        2 ( 803/1229- 854/1297)  53.1 E06-E02 N22-N26
      6  928 1266 (N22W01 L= 53)   255     85        2 ( 900/1234- 967/1295) -18.4 W00-W03 N20-N23
      7  871 1196 (N20E04 L= 48)   260     83        0 ( 849/1159- 898/1231) -90.0 E05-E02 N17-N21
      8  993 1198 (N17W03 L= 55)   247     76        1 ( 967/1160-1012/1230)  63.4 W01-W04 N14-N18
      9  673 1102 (N20E19 L= 33)   478    175        2 ( 606/1067- 760/1136) -37.9 E22-E13 N15-N22
     10 1823  924 (S23W51 L=103)  1326    316        0 (1723/ 845-1899/1055)  12.3 W40-W63 S27-S18
     11 1679  900 (S19W37 L= 89)   464    113        1 (1649/ 844-1714/ 942) -66.8 W34-W39 S23-S16
     12 1617  829 (S22W31 L= 83)   342     73        0 (1585/ 792-1645/ 866)  21.8 W27-W33 S23-S19
     13 1587  655 (S32W26 L= 78)   305     87        0 (1544/ 639-1616/ 679)  -9.5 W22-W28 S32-S30
     14  985  411 (S29E21 L= 31)   599    184        0 ( 925/ 357-1020/ 492)  26.6 E27-E15 S31-S23
     15  922  193 (S44E41 L= 11)   688    112        0 ( 883/ 156- 966/ 234)  14.0 E49-E33 S46-S41
  

    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