Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1497 1767 (N35W57 L=172)  1378    340        2 (1433/1728-1551/1815)   7.6 W50-W65 N33-N37
      2  416 1593 (N52E38 L= 77)   414     86        0 ( 387/1579- 452/1608) -20.6 E42-E33 N50-N53
      3  432 1412 (N38E34 L= 82)   322     71        2 ( 401/1387- 462/1432)   0.0 E36-E30 N36-N39
      4 1033 1341 (N20W07 L=122)   445    174        0 ( 953/1314-1127/1361) -26.6 W02-W12 N16-N22
      5 1825 1211 (S05W58 L=174)  2841    581        7 (1737/1024-1907/1355)  22.1 W45-W78 S13-N01
      6 1583 1295 (N06W40 L=155)   551    172        1 (1534/1204-1623/1349) -83.7 W37-W42 N00-N09
      7  911 1213 (N15E03 L=112)   180    100        2 ( 853/1199- 963/1232) -31.0 E05-W00 N13-N16
      8  185 1023 (N18E58 L= 57)  2547    547       11 ( 109/ 925- 316/1148) -43.4 E66-E47 N10-N27
      9 1229 1049 (S00W12 L=127)   252     93        1 (1183/1001-1255/1093)  31.0 W08-W14 S02-N01
     10  980  507 (S27E15 L=100)   793    190        1 ( 940/ 432-1010/ 607)  48.0 E19-E10 S31-S20
     11 1627  533 (S42W33 L=148)   330     66        1 (1594/ 504-1653/ 565)  31.0 W30-W35 S43-S40
     12  479  389 (S24E54 L= 61)  1665    432        3 ( 452/ 287- 513/ 527)  39.8 E63-E44 S31-S16
     13  869  234 (S44E36 L= 79)   397     76        0 ( 852/ 206- 888/ 266)  51.3 E38-E33 S46-S41
  

    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