Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1067 1627 (N41W22 L=325)   237     33        1 (1042/1609-1094/1644) -26.6 W20-W24 N40-N42
      2  895 1462 (N36W04 L=306)  1037    280        2 ( 784/1427-1038/1481) -28.1 E04-W12 N31-N39
      3 1826 1137 (S09W56 L=359)   544     71        1 (1810/1102-1845/1179)  53.1 W53-W58 S10-S06
      4 1730 1006 (S13W44 L=346)  1384    241        3 (1692/ 909-1759/1146)  53.1 W39-W49 S17-S05
      5  229 1045 (N24E57 L=245)   949    198        3 ( 201/ 962- 271/1144) -59.7 E60-E52 N18-N30
      6  783 1092 (N16E12 L=290)   282    103        0 ( 738/1076- 844/1112) -26.6 E15-E09 N14-N18
      7 1166  874 (S05W04 L=307)   584    206        0 (1140/ 785-1197/ 968)  56.3 W01-W08 S09-N00
      8  229  845 (N12E60 L=242)  1232    137        4 ( 184/ 784- 285/ 899)  29.1 E64-E52 N08-N15
      9  294  801 (N09E54 L=248)   412     85        3 ( 267/ 767- 318/ 831)  26.6 E57-E51 N07-N10
     10  634  704 (S02E31 L=272)   293     57        0 ( 619/ 662- 654/ 738)  53.1 E32-E28 S04-N00
     11 1422  525 (S33W12 L=315)  1690    331        1 (1280/ 425-1528/ 626)  13.4 W00-W21 S36-S28
     12  321  465 (S12E69 L=233)  1064    102        0 ( 309/ 410- 339/ 514)  36.0 E77-E62 S16-S08
     13  828  206 (S41E44 L=258)  1550    178        3 ( 764/ 141- 906/ 262)  13.5 E60-E34 S45-S36
  

    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