Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1214 1746 (N52W02 L=161)   519     79        1 (1175/1717-1260/1765)  23.2 E01-W06 N50-N54
      2  604 1724 (N39E50 L=108)   541     76        1 ( 566/1707- 650/1739)  26.6 E53-E45 N36-N40
      3  916 1520 (N29E15 L=143)  2145    426        3 ( 743/1423-1104/1598)  -9.8 E29-W00 N25-N32
      4 1716 1545 (N45W56 L=215)   765     64        0 (1675/1530-1754/1559)   7.1 W49-W65 N43-N46
      5 1236 1315 (N21W09 L=167)   310     79        0 (1193/1287-1268/1341) -21.8 W06-W11 N19-N21
      6 1135 1249 (N15W04 L=162)   459    204        0 (1066/1159-1187/1293) -32.0 E01-W07 N10-N17
      7  203 1221 (N00E64 L= 95)  1370    144        1 ( 172/1151- 246/1280)  58.0 E66-E59 S04-N04
      8 1745 1142 (N17W49 L=207)   386     64        0 (1719/1124-1782/1156)  26.6 W46-W52 N15-N18
      9 1164  789 (S12W12 L=170)   676    228        1 (1077/ 745-1267/ 849)  38.7 W06-W17 S15-S07
     10  499  775 (S22E32 L=127)   244     46        1 ( 476/ 752- 527/ 799)  26.6 E33-E29 S24-S20
     11 1254  627 (S21W21 L=179)  2018    543        2 (1028/ 567-1422/ 772)  40.6 W07-W28 S27-S09
     12  457  591 (S36E36 L=122)   290     20        1 ( 441/ 573- 475/ 616)  56.3 E38-E34 S36-S33
     13 1097  268 (S50W23 L=182)   612    106        1 (1056/ 246-1165/ 288)   0.0 W18-W29 S51-S47
  

    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