Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1599 1710 (N28W72 L= 44)  1137    103        2 (1565/1679-1643/1746) -90.0 W68-W76 N25-N31
      2 1517 1652 (N29W56 L= 28)   582     73        1 (1494/1617-1544/1687)  51.3 W53-W59 N25-N30
      3  488 1614 (N58E33 L=299)   328     44        1 ( 464/1593- 517/1631) -12.5 E37-E28 N56-N59
      4 1056 1565 (N38W18 L=350)   434     93        2 (1012/1523-1095/1587) -71.6 W16-W21 N34-N40
      5 1650 1539 (N18W59 L= 31)  2001    329        6 (1475/1498-1764/1573) -14.9 W43-W73 N13-N23
      6  291 1377 (N44E53 L=279)   712     76        0 ( 252/1358- 334/1396)  -9.5 E59-E46 N42-N45
      7  472 1310 (N36E32 L=300)   313     60        2 ( 447/1283- 501/1333)  36.9 E33-E28 N34-N37
      8 1463 1271 (N10W32 L=  4)   278    137        0 (1422/1211-1492/1320) -90.0 W31-W33 N05-N13
      9 1357  833 (S12W15 L=346)   955    294        3 (1314/ 716-1393/ 977)  52.4 W09-W19 S17-S03
     10  701  702 (S04E26 L=305)   320    104        1 ( 681/ 653- 726/ 758)  45.0 E28-E23 S06-S01
     11 1043  380 (S32E17 L=315)  1763    332        7 ( 917/ 286-1123/ 496)  23.2 E28-E07 S37-S26
     12  544  402 (S20E50 L=282)   480     62        1 ( 515/ 380- 569/ 435)  63.4 E52-E47 S21-S17
     13  752  392 (S25E35 L=297)   323     85        0 ( 723/ 361- 781/ 435)  26.6 E38-E30 S26-S22
  

    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