Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1247 1852 (N65W42 L=349)  1395    130        2 (1181/1829-1307/1886)   4.8 W28-W66 N62-N67
      2 1528 1574 (N37W46 L=353)   352     62        1 (1497/1554-1562/1586)  -9.5 W42-W50 N36-N38
      3  916 1377 (N27E06 L=301)  1039    374        2 ( 859/1292-1015/1469) -61.4 E10-W00 N21-N33
      4 1528 1383 (N24W38 L=345)   400     56        0 (1504/1350-1546/1416) -63.4 W36-W39 N22-N26
      5 1149 1137 (N11W08 L=316)   201     42        1 (1119/1120-1174/1154) -18.4 W06-W09 N09-N11
      6  217 1098 (N09E61 L=246)   810     99        2 ( 197/1045- 242/1151) -60.3 E64-E57 N05-N12
      7 1745  853 (S10W51 L=358)   605     59        1 (1716/ 825-1769/ 886)  90.0 W48-W53 S11-S08
      8  767  807 (S09E17 L=290)   762    205        0 ( 698/ 734- 831/ 842) -40.6 E21-E13 S13-S06
      9 1251  655 (S20W14 L=321)   279     65        1 (1229/ 622-1269/ 691)  78.7 W12-W14 S22-S17
     10  313  653 (S19E56 L=252)   567     78        1 ( 282/ 626- 351/ 676)  16.7 E60-E50 S20-S17
     11 1533  590 (S26W36 L=343)   483     63        1 (1504/ 565-1566/ 619) -33.7 W32-W38 S28-S23
     12 1605  561 (S29W43 L=351)   662    120        2 (1560/ 531-1665/ 597)  18.4 W39-W48 S30-S26
     13 1163  151 (S67W15 L=323)   687     55        0 (1151/ 119-1174/ 183) -47.1 W11-W26 S75-S61
  

    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