Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1416 1580 (N25W42 L=212)  3856    764        7 (1116/1523-1694/1613) -25.4 W22-W63 N14-N33
      2  932 1435 (N30W06 L=177)   199     37        0 ( 905/1416- 958/1456) -14.3 W04-W07 N28-N32
      3  952 1384 (N27W06 L=176)   207     29        2 ( 933/1367- 975/1402) -71.6 W04-W07 N25-N28
      4 1913 1161 (S13W67 L=238)  4503    366       10 (1867/1055-1955/1286)  78.7 W62-W74 S20-S05
      5 1730  817 (S27W40 L=211)  3093    592        3 (1574/ 601-1815/1125)  40.6 W24-W53 S37-S10
      6  669  908 (N07E23 L=148)   261     57        0 ( 640/ 883- 705/ 925)   0.0 E25-E20 N05-N07
      7 1576  764 (S25W27 L=198)   688    193        1 (1513/ 665-1637/ 854)  33.7 W20-W32 S29-S21
      8  882  718 (S09E16 L=155)   193     81        0 ( 840/ 707- 926/ 728) -26.6 E18-E13 S09-S07
      9 1282  607 (S26W04 L=175)   306    150        0 (1238/ 533-1306/ 672)  45.0 W00-W07 S29-S22
     10 1004  580 (S20E13 L=158)   255     86        0 ( 964/ 543-1030/ 621)  33.7 E16-E10 S21-S17
     11  862  483 (S22E25 L=146)   349     87        0 ( 840/ 440- 894/ 520)  33.7 E27-E21 S24-S20
     12  377  407 (S16E65 L=106)  1313    212        3 ( 347/ 365- 416/ 448)  80.5 E71-E61 S19-S13
     13  834  355 (S30E33 L=138)   375     83        0 ( 798/ 328- 873/ 382)   0.0 E35-E29 S31-S28
  

    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