Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1014 1567 (N35W13 L=132)   942    180        1 ( 930/1541-1096/1586) -24.4 W07-W19 N32-N37
      2 1638 1505 (N16W54 L=173)   674     71        2 (1599/1479-1672/1527) -31.0 W50-W57 N14-N17
      3 1338 1341 (N14W26 L=145)   346    116        0 (1277/1328-1397/1360)  -7.1 W22-W30 N12-N15
      4  324 1267 (N32E45 L= 74)  1889    288        2 ( 231/1170- 432/1346) -36.9 E57-E35 N23-N38
      5  846 1232 (N18E06 L=113)  2106    603        2 ( 592/1146-1098/1331)  -5.2 E23-W10 N15-N21
      6  164 1166 (N28E65 L= 54)   648     59        2 ( 145/1136- 186/1194)  45.0 E68-E61 N26-N30
      7 1703  831 (S24W41 L=160)  1295    294        2 (1644/ 706-1751/ 959)  49.8 W34-W46 S30-S17
      8 1403  714 (S24W16 L=135)   968    345        2 (1310/ 575-1473/ 860)  41.2 W07-W23 S30-S16
      9 1877  776 (S33W63 L=181)   663     78        0 (1839/ 758-1909/ 802)   0.0 W56-W68 S33-S31
     10  547  555 (S14E42 L= 77)   466    142        0 ( 534/ 482- 561/ 625)  53.1 E45-E39 S18-S10
     11 1069  561 (S25E08 L=111)   284     52        1 (1040/ 537-1092/ 590)  26.6 E09-E05 S26-S23
     12  341  499 (S14E63 L= 56)   537     63        1 ( 327/ 465- 369/ 528)  38.7 E66-E59 S16-S12
     13  891  243 (S44E35 L= 83)   341     39        1 ( 866/ 227- 919/ 260) -14.0 E37-E33 S45-S42
  

    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