Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1270 1762 (N55W29 L=167)   861    121        2 (1209/1730-1332/1792)  12.5 W21-W40 N52-N58
      2 1140 1550 (N38W10 L=148)   610    158        1 (1068/1517-1208/1573) -21.8 W04-W14 N35-N39
      3  393 1460 (N31E52 L= 86)  1641    304        0 ( 317/1358- 496/1569) -23.6 E70-E38 N24-N38
      4 1322 1503 (N34W24 L=161)   294     71        0 (1285/1489-1360/1517)   9.5 W20-W26 N33-N35
      5  837 1244 (N18E12 L=126)   626    202        0 ( 794/1159- 904/1302)  56.3 E14-E07 N12-N21
      6  935 1264 (N19E06 L=132)   216     96        1 ( 901/1241- 961/1293)   0.0 E07-E03 N17-N20
      7  153 1231 (N15E75 L= 63)  1316     84        3 ( 127/1198- 174/1259)  29.7 E84-E70 N12-N16
      8  523  984 (N01E33 L=105)  1565    403        2 ( 442/ 840- 643/1100)  45.0 E39-E24 S07-N08
      9  430  645 (S20E44 L= 94)  1658    280        4 ( 376/ 513- 493/ 736)  46.8 E54-E37 S30-S14
     10 1736  699 (S19W53 L=191)   413     91        1 (1697/ 678-1762/ 720)   9.5 W49-W55 S20-S17
     11 1166  482 (S32W09 L=147)  4116    715        8 ( 913/ 330-1410/ 701)  36.6 E10-W25 S44-S17
     12  829  520 (S29E15 L=123)  1768    524        1 ( 669/ 381-1026/ 688)  36.3 E30-W00 S39-S17
     13 1707  655 (S22W51 L=189)   379     48        2 (1680/ 635-1731/ 675)  -9.5 W48-W54 S23-S20
  

    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