Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  983 1797 (N42E33 L=317)   344     68        1 ( 959/1766-1012/1821) -23.2 E35-E28 N39-N43
      2 1245 1758 (N49E12 L=338)   781     84        1 (1205/1720-1284/1797) -29.1 E16-E07 N45-N51
      3  940 1586 (N25E22 L=327)  1235    443        5 ( 885/1393-1015/1735) -70.9 E28-E17 N11-N37
      4  446 1612 (N14E59 L=291)   990    219        2 ( 377/1540- 505/1697) -85.2 E61-E56 N08-N20
      5 1508 1548 (N42W17 L=  6)  2004    437        4 (1351/1427-1681/1649)  -5.4 W02-W34 N38-N44
      6 1230 1333 (N18W03 L=353)   510    276        1 (1163/1202-1265/1424) -42.3 E03-W08 N11-N21
      7 1399 1291 (N20W14 L=  4)   764    192        3 (1377/1192-1417/1380) -71.6 W11-W16 N14-N26
      8 1671 1266 (N28W35 L= 24)   533    100        1 (1633/1225-1708/1302)  -8.1 W31-W38 N26-N29
      9  819  771 (S25E05 L=345)  1484    505        2 ( 710/ 691-1015/ 944)  -8.5 E13-W07 S28-S16
     10  435  770 (S36E33 L=317)   676    234        0 ( 344/ 741- 551/ 798)  25.3 E42-E23 S39-S30
     11  505  623 (S44E25 L=324)  1049    353        2 ( 355/ 594- 655/ 687)  27.3 E42-E13 S49-S34
     12 1151  636 (S23W19 L=  9)   237     95        2 (1117/ 613-1202/ 657)  59.0 W17-W21 S25-S20
     13 1605  553 (S13W53 L= 42)   474    214        0 (1513/ 489-1685/ 600)  54.0 W49-W57 S19-S08
  

    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