Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1157 1875 (N59W53 L=286)   496     62        0 (1137/1846-1182/1904)   9.5 W45-W63 N57-N61
      2 1095 1618 (N42W20 L=254)  1485    316        2 ( 954/1582-1242/1645)  -9.9 W08-W31 N38-N44
      3  584 1520 (N46E24 L=209)   831    167        2 ( 525/1474- 654/1569)  13.0 E30-E17 N43-N48
      4  401 1474 (N46E44 L=189)  1204    159        2 ( 340/1430- 494/1501)   6.7 E51-E33 N43-N47
      5 1653 1454 (N18W54 L=287)   794    192        1 (1573/1403-1729/1498) -48.0 W48-W59 N12-N22
      6  246  944 (N13E56 L=177)   660     77        1 ( 225/ 914- 271/ 990)  45.0 E59-E53 N11-N16
      7  531  948 (N11E32 L=201)   299     90        0 ( 505/ 904- 554/ 988) -71.6 E33-E30 N07-N13
      8 1187  726 (S14W04 L=237)   282     89        0 (1169/ 681-1211/ 767)  59.0 W02-W06 S16-S11
      9  368  664 (S05E51 L=182)   465    116        0 ( 352/ 606- 388/ 722)  76.0 E52-E49 S08-N00
     10 1254  601 (S23W06 L=239)   590    153        0 (1199/ 564-1324/ 646) -45.0 W03-W10 S26-S19
     11  594  497 (S18E39 L=194)   803    213        1 ( 521/ 433- 632/ 589)  32.7 E47-E33 S21-S12
     12 1477  406 (S44W21 L=254)  3116    542        4 (1259/ 293-1694/ 528)   7.9 W00-W43 S47-S39
     13  877  341 (S34E26 L=207)   285     81        0 ( 854/ 312- 903/ 384)  35.5 E29-E22 S35-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