Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  864 1877 (N73W31 L= 74)   715     96        0 ( 840/1841- 891/1913)  13.6 W22-W51 N67-N76
      2 1458 1645 (N32W51 L= 95)   388    102        0 (1443/1602-1484/1681)  16.7 W47-W57 N30-N33
      3 1645 1432 (N15W53 L= 96)   338     92        0 (1601/1409-1685/1448)   0.0 W48-W57 N13-N15
      4  928 1315 (N26W01 L= 44)   843    340        2 ( 836/1182-1006/1433)  36.3 E07-W08 N20-N32
      5 1332 1357 (N19W27 L= 70)   246    110        0 (1284/1330-1381/1377)  -8.1 W23-W30 N18-N19
      6  556 1240 (N29E27 L= 16)   680    200        1 ( 518/1144- 579/1331) -80.5 E29-E25 N23-N35
      7 1726 1223 (N01W51 L= 94)   499     62        2 (1704/1196-1751/1260) -56.3 W48-W53 N00-N03
      8 1630 1106 (S03W40 L= 83)   403    110        0 (1580/1070-1664/1134) -38.7 W36-W41 S05-N00
      9  691 1073 (N17E19 L= 24)   280     99        0 ( 660/1032- 725/1109)  31.0 E21-E16 N14-N18
     10 1450  794 (S16W21 L= 64)   453    174        1 (1390/ 755-1523/ 846)  11.3 W16-W26 S17-S14
     11  505  519 (S14E47 L=357)  1095    364        5 ( 461/ 410- 553/ 669)  62.1 E52-E39 S21-S04
     12 1355  598 (S26W11 L= 54)   473     99        1 (1333/ 558-1378/ 654) -90.0 W09-W12 S29-S22
     13  727  382 (S27E37 L=  6)  1338    248        1 ( 627/ 333- 850/ 440)   8.1 E47-E25 S29-S24
     14  455  420 (S20E58 L=346)   591     92        0 ( 404/ 398- 494/ 432) -14.0 E62-E53 S21-S18
  

    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