Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  912 1817 (N39E39 L=147)  1303    233        5 ( 822/1729- 990/1883) -12.5 E54-E27 N34-N42
      2  418 1669 (N16E67 L=119)  1918    103        2 ( 385/1637- 467/1705)  -3.4 E78-E61 N13-N18
      3  508 1640 (N16E55 L=131)   430    119        0 ( 491/1582- 520/1692) -41.2 E59-E50 N12-N19
      4 1390 1556 (N36W06 L=192)   326    148        0 (1358/1498-1427/1616) -36.9 W02-W10 N33-N39
      5  673 1270 (S02E27 L=159)  1043    335        3 ( 604/1122- 742/1402) -38.7 E35-E19 S09-N04
      6 1583 1174 (N19W29 L=215)   825    192        0 (1524/1090-1638/1230) -24.4 W23-W34 N15-N20
      7  201 1091 (S23E61 L=125)   948    230        0 ( 176/ 984- 223/1187)  77.0 E63-E59 S29-S16
      8  111 1094 (S23E78 L=108)  2588    200        3 (  83/1007- 161/1164)  42.3 E89-E68 S28-S18
      9  795  714 (S30E04 L=181)   715    273        0 ( 684/ 670- 916/ 778)  49.8 E11-W01 S35-S22
     10 1203  726 (S17W19 L=205)   960    304        2 (1059/ 696-1340/ 755)  33.7 W11-W26 S22-S12
     11 1275  448 (S30W36 L=222)  1110    233        3 (1172/ 429-1400/ 478)  28.1 W29-W44 S33-S25
     12 1446  393 (S27W52 L=238)   951    133        6 (1388/ 355-1500/ 445)  50.2 W48-W56 S30-S23
     13  536  385 (S63E20 L=166)   777    183        1 ( 471/ 345- 607/ 426)   0.0 E30-E08 S65-S60
  

    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