Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  481 1691 (N48E59 L=176)   962     84        2 ( 452/1653- 503/1728) -15.9 E72-E51 N45-N51
      2  802 1652 (N46E19 L=216)   284     35        0 ( 776/1632- 827/1670) -31.0 E21-E16 N44-N47
      3  898 1537 (N37E09 L=226)   414     70        1 ( 860/1508- 941/1560)  -8.1 E12-E05 N34-N38
      4 1040 1439 (N30W02 L=236)   369    115        0 ( 991/1417-1094/1457) -18.4 E01-W05 N28-N31
      5 1589 1388 (N25W42 L=277)   554    233        1 (1501/1298-1663/1430) -39.3 W35-W46 N18-N27
      6 1783 1118 (N07W55 L=290)   586     97        1 (1744/1089-1825/1142)   0.0 W51-W60 N05-N08
      7  179 1088 (N06E65 L=170)   591     53        1 ( 148/1066- 204/1115) -12.5 E70-E61 N05-N08
      8 1830  988 (S01W59 L=294)   634     89        1 (1799/ 967-1860/1016)  -7.1 W55-W63 S02-N00
      9  280  875 (S06E53 L=181)  1445    223        2 ( 231/ 804- 339/ 972) -51.3 E58-E48 S10-N00
     10  731  840 (S07E19 L=216)   198     48        0 ( 707/ 825- 753/ 859) -18.4 E20-E17 S08-S06
     11  711  746 (S13E20 L=214)   514    159        1 ( 643/ 703- 752/ 807)  36.9 E25-E17 S16-S09
     12  240  645 (S21E66 L=169)  4622    319       10 ( 146/ 538- 317/ 758) -47.1 E80-E56 S28-S14
     13  311  722 (S16E53 L=182)   515    103        2 ( 273/ 698- 360/ 753)  -7.1 E56-E48 S17-S13
     14  378  639 (S21E48 L=186)  1106    208        1 ( 343/ 554- 439/ 719)  38.7 E55-E40 S27-S15
     15 1046  633 (S21W01 L=236)   725    275        1 ( 930/ 547-1091/ 704)  45.0 E07-W03 S26-S16
     16  839  590 (S24E13 L=222)   894    207        2 ( 782/ 514- 918/ 664)  45.0 E17-E07 S29-S18
     17 1820  594 (S27W72 L=306)  1153     98        1 (1787/ 563-1841/ 643)  80.5 W65-W79 S29-S23
     18 1269  408 (S38W18 L=253)   362     81        0 (1231/ 394-1313/ 425)  -8.1 W15-W22 S39-S36
     19  706  357 (S42E28 L=207)  1807    230        3 ( 621/ 317- 811/ 406)  14.0 E38-E18 S45-S37
     20  684  213 (S57E44 L=191)   697     76        1 ( 661/ 191- 721/ 243) -14.0 E51-E38 S59-S53
     21 1160  182 (S61W15 L=250)   478     49        1 (1144/ 159-1179/ 210)  90.0 W12-W18 S64-S57
  

    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