Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  849 1585 (N21E27 L=281)   293     56        0 ( 831/1545- 862/1616) -45.0 E29-E25 N18-N22
      2 1642 1409 (N35W29 L=338)   384     71        0 (1619/1367-1661/1440) -36.9 W27-W31 N32-N37
      3 1635 1273 (N26W31 L=339)   287     83        0 (1624/1227-1652/1313) -80.5 W29-W31 N22-N28
      4 1851 1205 (N31W54 L=  2)  1498    279        1 (1801/1102-1887/1311) -47.7 W47-W59 N24-N36
      5 1344 1264 (N16W11 L=320)   203     99        0 (1311/1223-1369/1310)  81.9 W10-W12 N12-N19
      6  171 1001 (S28E65 L=244)  1638    178        2 (  85/ 977- 255/1028)   4.9 E88-E53 S30-S25
      7  802  849 (S22E08 L=301)   210     90        0 ( 786/ 809- 821/ 886) -53.1 E09-E05 S24-S19
      8  634  840 (S27E19 L=290)   246    101        0 ( 605/ 797- 668/ 875)  63.4 E19-E16 S30-S24
      9 1100  666 (S24W15 L=324)   483    212        0 (1009/ 640-1208/ 696)  38.7 W10-W20 S27-S19
     10 1711  650 (S05W56 L=  5)   374     26        1 (1692/ 626-1727/ 672) -26.6 W54-W58 S06-S04
     11 1301  499 (S27W35 L=344)   276     92        0 (1274/ 458-1339/ 522)  80.5 W33-W36 S30-S24
     12 1533  440 (S22W55 L=  3)  1306    214        1 (1436/ 405-1596/ 477)  38.7 W48-W60 S26-S18
     13  646  359 (S61E05 L=304)   349     63        0 ( 612/ 345- 682/ 371)  29.7 E09-E01 S62-S58
  

    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