Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1293 1662 (N39W07 L=237)  1456    428        1 (1125/1565-1470/1757) -14.0 E07-W21 N35-N44
      2  783 1649 (N29E28 L=202)   297     49        0 ( 749/1630- 807/1673)  45.0 E30-E26 N26-N30
      3  405 1622 (N22E59 L=171)   943     78        3 ( 376/1582- 431/1655) -51.3 E63-E54 N19-N24
      4 1514 1488 (N31W25 L=255)   280     39        0 (1494/1460-1534/1509) -56.3 W23-W26 N29-N32
      5  553  900 (S21E28 L=202)   525    174        0 ( 512/ 834- 581/ 967)  83.7 E30-E25 S25-S16
      6  156  831 (S28E69 L=161)   755     85        1 ( 120/ 808- 197/ 852)   3.6 E78-E62 S29-S27
      7 1328  787 (S15W23 L=253)   509    152        1 (1266/ 744-1380/ 839)  56.3 W19-W25 S18-S11
      8  749  751 (S27E13 L=217)   291    135        1 ( 700/ 724- 808/ 793)  35.5 E16-E09 S28-S23
      9 1605  759 (S11W42 L=272)   709    177        0 (1523/ 719-1684/ 793)  31.0 W37-W48 S14-S07
     10 1723  635 (S15W57 L=287)   836    115        1 (1688/ 586-1754/ 682)  80.5 W53-W59 S18-S12
     11 1198  611 (S28W19 L=249)  1973    554        3 ( 978/ 536-1472/ 672)  28.1 W05-W35 S35-S18
     12  856  570 (S37E03 L=227)   373     96        0 ( 810/ 534- 893/ 613) -23.2 E07-W00 S38-S34
     13 1791  571 (S16W70 L=300)   557     65        2 (1770/ 539-1817/ 601)  63.4 W67-W73 S18-S14
  

    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