Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1509 1674 (N48W46 L=249)   671     53        1 (1476/1650-1545/1694)  11.3 W40-W51 N45-N49
      2 1641 1631 (N44W60 L=263)   954     99        2 (1593/1605-1684/1649)   3.4 W52-W70 N41-N45
      3 1016 1562 (N38E03 L=201)   438    106        1 ( 966/1538-1061/1588)  18.4 E06-W00 N35-N39
      4  319 1503 (N30E63 L=140)   661     93        0 ( 296/1459- 352/1526)  78.7 E66-E59 N26-N31
      5 1084 1481 (N32W03 L=206)   393     83        1 (1057/1437-1110/1524) -63.4 W00-W04 N29-N35
      6  492 1494 (N30E43 L=160)   287     14        0 ( 468/1479- 514/1508)  11.3 E45-E40 N29-N31
      7 1075 1344 (N23W02 L=206)   366     81        0 (1050/1302-1105/1382)  59.0 W00-W04 N20-N25
      8  175 1170 (N08E67 L=137)   661    100        0 ( 160/1115- 192/1218) -40.6 E70-E63 N04-N10
      9 1480 1091 (N08W29 L=232)  1398    296        3 (1390/ 965-1537/1208) -57.3 W23-W33 N00-N14
     10 1629 1069 (N07W40 L=243)   466    126        2 (1600/1033-1672/1128) -45.0 W37-W43 N04-N10
     11 1714  816 (S09W49 L=252)  1102    173        2 (1670/ 744-1753/ 897)  63.4 W45-W51 S13-S03
     12  193  843 (S12E63 L=140)   448     53        1 ( 173/ 822- 215/ 865) -26.6 E66-E60 S13-S10
     13  847  728 (S16E10 L=193)   287    174        1 ( 813/ 671- 884/ 777) -81.9 E12-E07 S19-S12
     14  184  732 (S20E69 L=134)   883     81        1 ( 161/ 695- 203/ 774)  33.7 E76-E64 S22-S16
     15  681  610 (S24E22 L=181)  1160    236        2 ( 604/ 571- 770/ 670)  -9.5 E27-E15 S26-S20
     16 1630  602 (S23W46 L=249)  1398    182        2 (1568/ 548-1687/ 666)  58.0 W40-W50 S26-S18
     17  489  606 (S26E37 L=166)   391    122        0 ( 438/ 580- 525/ 652)  24.0 E42-E33 S27-S22
     18 1172  219 (S55W20 L=223)  2477    254        5 (1065/ 187-1303/ 258)   6.6 W08-W34 S59-S50
     19  985  209 (S57E00 L=203)   369     40        0 ( 964/ 194-1010/ 229) -36.9 E02-W02 S59-S54
  

    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