Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  725 1866 (N69E16 L=326)  1336     99        2 ( 684/1824- 756/1904) -72.9 E24-E10 N62-N75
      2  456 1489 (N38E36 L=307)   283     42        1 ( 433/1470- 479/1509)  14.0 E38-E34 N36-N38
      3 1567 1414 (N16W42 L= 25)   309     38        0 (1547/1393-1595/1436) -56.3 W40-W43 N14-N17
      4 1688 1386 (N12W51 L= 34)   761     97        2 (1654/1337-1717/1422)  59.0 W48-W54 N09-N14
      5  476 1384 (N30E33 L=310)   589     78        1 ( 449/1353- 502/1417)  36.9 E35-E30 N27-N32
      6  894 1375 (N23E03 L=340)   521    146        0 ( 818/1344- 959/1401) -35.5 E07-W00 N20-N25
      7  176 1195 (N22E63 L=280)   840    162        1 ( 160/1122- 194/1276)  84.3 E65-E59 N17-N27
      8 1785 1158 (S02W54 L= 37)   344     36        0 (1758/1140-1808/1179)   9.5 W50-W56 S03-S01
      9  933 1024 (N01E05 L=338)   272     61        0 ( 906/ 993- 963/1056)  26.6 E07-E03 N00-N03
     10 1708  652 (S33W46 L= 29)   406     19        0 (1686/ 632-1730/ 671)  26.6 W43-W48 S34-S31
     11 1376  530 (S36W17 L=360)  2431    499        5 (1160/ 401-1545/ 645)  20.1 W00-W30 S42-S29
     12  262  588 (S15E66 L=277)   704     83        0 ( 242/ 550- 291/ 619)  26.6 E69-E60 S17-S13
     13  320  472 (S23E67 L=276)  1397    167        2 ( 262/ 406- 387/ 538) -68.2 E71-E61 S28-S18
     14  685  393 (S34E37 L=306)   358     95        0 ( 639/ 382- 733/ 405)  -7.1 E40-E32 S35-S32
  

    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