Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  387 1377 (N29E48 L=193)  1861    449        1 ( 267/1287- 533/1445)  13.5 E60-E34 N23-N33
      2  964 1395 (N28E02 L=239)   369    183        0 ( 879/1362-1033/1415) -18.4 E07-W02 N25-N30
      3  253 1379 (N29E65 L=176)   657     81        1 ( 218/1353- 292/1396)  10.3 E70-E59 N27-N30
      4  449 1321 (N25E41 L=200)   740    118        1 ( 389/1299- 519/1338)   5.2 E46-E34 N24-N26
      5  192 1184 (N16E66 L=175)  1601    242        4 ( 169/1085- 216/1291) -72.9 E71-E61 N10-N23
      6  842 1230 (N18E11 L=230)   227     93        0 ( 812/1191- 869/1269)  45.0 E12-E08 N16-N20
      7  329 1177 (N16E50 L=191)   351     58        2 ( 293/1152- 355/1198)  18.4 E53-E47 N14-N17
      8 1775  897 (S09W53 L=294)  1388    188        4 (1717/ 831-1822/ 978)  41.6 W47-W58 S12-S04
      9 1300  933 (S03W17 L=258)   408     73        1 (1274/ 900-1333/ 960)  56.3 W14-W18 S04-N00
     10  972  592 (S23E06 L=235)   280    133        0 ( 913/ 558-1022/ 633)  26.6 E10-E02 S24-S19
     11  746  573 (S23E22 L=219)   656    123        2 ( 724/ 513- 773/ 631)  63.4 E23-E19 S27-S18
     12  516  552 (S24E40 L=201)   413    134        0 ( 465/ 526- 566/ 593)  21.8 E44-E34 S25-S20
     13  819  248 (S50E27 L=214)   454     87        0 ( 776/ 232- 865/ 261)  10.3 E33-E22 S51-S48
  

    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