Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1030 1758 (N37E24 L=100)  1055    175        2 ( 975/1698-1120/1787)  65.6 E26-E19 N31-N42
      2 1493 1495 (N34W16 L=140)   424     51        0 (1473/1464-1517/1530) -53.1 W14-W18 N31-N36
      3 1674 1306 (N28W33 L=158)   544    118        0 (1641/1255-1704/1362) -35.5 W29-W36 N25-N30
      4  949 1329 (N08E12 L=112)   646    179        2 ( 861/1301-1038/1353)  29.1 E16-E07 N05-N10
      5  483 1224 (S09E37 L= 87)   366    126        0 ( 450/1170- 506/1281)  81.9 E38-E36 S12-S05
      6  372 1182 (S13E45 L= 80)   293     65        1 ( 354/1145- 394/1209)  76.0 E46-E43 S15-S11
      7  897 1096 (S06E09 L=115)   512    123        0 ( 851/1043- 933/1155) -29.7 E12-E05 S08-S03
      8  631 1106 (S12E25 L=100)   349     68        1 ( 603/1077- 657/1139)  63.4 E25-E22 S13-S09
      9  869 1069 (S09E10 L=115)   204     83        0 ( 832/1035- 894/1096) -11.3 E12-E07 S10-S07
     10 1811  954 (N12W52 L=176)   611    115        2 (1766/ 921-1860/ 980)  29.1 W48-W57 N09-N14
     11  947  903 (S16E01 L=123)   410    149        1 ( 889/ 870-1024/ 938)  50.2 E03-W02 S18-S12
     12 1049  883 (S14W05 L=129)   181     99        0 (1001/ 872-1095/ 893)  31.0 W02-W07 S15-S12
     13 1791  856 (N06W53 L=177)   501     78        1 (1770/ 827-1824/ 891) -63.4 W50-W56 N04-N08
     14 1827  778 (N04W60 L=184)   560     61        0 (1804/ 755-1848/ 818)  90.0 W57-W62 N02-N06
     15 1146  797 (S16W13 L=137)   227    112        0 (1091/ 782-1193/ 810)  26.6 W09-W15 S17-S14
     16 1645  597 (S12W52 L=176)   452    112        0 (1620/ 551-1681/ 647) -81.9 W50-W53 S14-S07
     17 1518  559 (S18W45 L=169)   263     54        0 (1498/ 532-1540/ 584) -76.0 W43-W45 S19-S15
     18 1106  560 (S30W19 L=143)   304     60        1 (1067/ 544-1137/ 579)  11.3 W16-W21 S31-S28
     19 1653  485 (S17W60 L=185)  1111    176        1 (1557/ 458-1714/ 510)  33.7 W53-W67 S21-S13
     20 1413  381 (S30W49 L=173)   518     52        1 (1382/ 353-1442/ 412) -53.1 W46-W51 S32-S28
  

    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