Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1403 1687 (N35W51 L=321)  2155    412        3 (1254/1618-1597/1735) -34.3 W39-W62 N24-N40
      2 1738 1485 (N13W65 L=336)   506    103        3 (1713/1446-1771/1527)  80.5 W63-W67 N09-N15
      3 1457 1426 (N18W38 L=309)   281     24        1 (1436/1402-1478/1446) -71.6 W36-W40 N16-N19
      4 1632 1351 (N09W48 L=318)   917    186        1 (1566/1319-1683/1404) -32.0 W43-W54 N07-N13
      5  929 1383 (N30W03 L=274)   513    129        0 ( 873/1354- 989/1401) -23.2 W00-W07 N28-N31
      6 1798 1300 (N01W61 L=331)   621     54        1 (1768/1271-1823/1328) -56.3 W58-W63 N00-N03
      7 1842  953 (S20W55 L=326)   526     71        0 (1827/ 909-1859/ 990)  45.0 W53-W57 S21-S17
      8  244  636 (S01E67 L=203)  1693    258        2 ( 213/ 513- 302/ 737)  70.3 E73-E61 S09-N05
      9  577  698 (S02E35 L=236)   484     79        2 ( 541/ 666- 622/ 730) -21.8 E36-E31 S03-N00
     10  762  477 (S19E30 L=240)   340    116        1 ( 724/ 439- 813/ 516)  18.4 E34-E25 S21-S17
     11  833  424 (S24E28 L=242)   282     61        0 ( 820/ 391- 853/ 453)  53.1 E29-E25 S26-S22
     12  586  366 (S23E49 L=221)   403     44        0 ( 552/ 353- 616/ 381) -21.8 E52-E46 S24-S22
     13  889  270 (S37E33 L=237)  1187    173        2 ( 831/ 223- 954/ 342) -90.0 E35-E30 S42-S30
  

    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