Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1158 1743 (N54W15 L=164)   471     63        1 (1126/1719-1192/1768)  14.0 W11-W19 N51-N56
      2  315 1467 (N31E62 L= 87)  1803    260        3 ( 274/1360- 381/1575) -20.4 E84-E48 N24-N37
      3  999 1547 (N38E01 L=147)   384     97        1 ( 958/1524-1041/1570) -31.0 E04-W01 N36-N39
      4 1182 1497 (N34W12 L=161)   250     58        0 (1152/1478-1216/1511)  11.3 W09-W14 N32-N35
      5  724 1252 (N18E20 L=129)   849    298        2 ( 637/1182- 820/1303)  14.0 E25-E12 N13-N21
      6  315 1236 (N16E52 L= 97)   403    119        0 ( 298/1193- 331/1297)  90.0 E53-E50 N13-N20
      7  381 1021 (N03E44 L=105)  1005    224        0 ( 315/ 939- 466/1102)  39.8 E49-E37 S02-N08
      8  330  888 (S05E49 L=100)   621     71        3 ( 299/ 854- 371/ 928)   8.1 E51-E44 S07-S02
      9 1133  877 (S05W07 L=155)   324    148        0 (1072/ 837-1190/ 910) -26.6 W02-W10 S07-S03
     10  314  673 (S19E54 L= 94)  1526    181        3 ( 288/ 588- 363/ 737)  50.7 E60-E48 S25-S14
     11 1620  696 (S18W42 L=191)   355    130        0 (1557/ 677-1665/ 727)  18.4 W36-W45 S19-S16
     12  734  572 (S25E21 L=128)  1528    473        1 ( 578/ 427- 900/ 715)  35.5 E36-E08 S36-S15
     13 1022  483 (S32E01 L=148)  3420    656        7 ( 777/ 344-1243/ 691)  36.3 E21-W14 S43-S17
     14 1618  643 (S22W43 L=192)   353     72        2 (1584/ 619-1651/ 668)  21.8 W40-W45 S23-S20
  

    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