Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1295 1649 (N35W28 L=322)   254     25        0 (1270/1635-1320/1662)   0.0 W25-W30 N34-N36
      2  601 1499 (N33E24 L=270)   789    167        1 ( 528/1442- 655/1549) -39.3 E31-E20 N28-N37
      3  440 1472 (N33E38 L=256)   311     47        0 ( 413/1457- 471/1490) -26.6 E40-E34 N31-N34
      4  731 1101 (N06E17 L=278)  1725    398        5 ( 541/1051- 906/1146)  -2.5 E29-E06 N03-N09
      5 1918 1058 (S07W67 L=  1)  2589    162        6 (1852/ 984-1964/1122) -28.3 W58-W76 S11-S03
      6 1402 1051 (S03W23 L=317)   233     51        0 (1384/1024-1423/1082)  56.3 W21-W24 S04-S01
      7 1835  961 (S12W56 L=350)   927    157        1 (1799/ 896-1876/1030)  45.0 W52-W61 S15-S08
      8  154  955 (N04E64 L=230)   475     48        1 ( 132/ 927- 181/ 977) -26.6 E67-E60 N02-N05
      9 1493  869 (S15W28 L=322)   509    164        0 (1453/ 800-1527/ 945) -68.2 W25-W29 S19-S09
     10  210  915 (N01E58 L=236)   331     49        0 ( 191/ 889- 234/ 938)  14.0 E60-E54 N00-N02
     11 1811  744 (S25W56 L=351)  1349    207        2 (1714/ 709-1884/ 799)   9.0 W45-W65 S27-S22
     12  768  756 (S14E18 L=276)   387    114        0 ( 723/ 725- 825/ 776)  -8.1 E21-E14 S15-S13
     13  869  711 (S18E13 L=281)   481    133        1 ( 840/ 643- 894/ 772)  82.9 E15-E10 S22-S14
     14 1134  664 (S24W03 L=297)   494    117        1 (1091/ 627-1178/ 709)  33.7 W00-W06 S25-S21
     15  406  618 (S19E47 L=247)   628     92        1 ( 383/ 571- 429/ 671)  45.0 E51-E45 S21-S15
     16 1739  490 (S42W59 L=353)   741     54        0 (1708/ 474-1772/ 508)  -4.8 W53-W65 S43-S40
     17  523  412 (S33E47 L=247)  2533    433        2 ( 379/ 312- 675/ 475)   2.5 E80-E34 S38-S28
     18 1018  421 (S39E08 L=286)   456    118        0 ( 966/ 391-1073/ 461)  18.4 E12-E03 S40-S36
     19  905  387 (S40E17 L=277)   289     31        0 ( 881/ 372- 937/ 403) -26.6 E19-E15 S40-S38
     20 1141  302 (S50E00 L=294)   325     49        1 (1111/ 280-1169/ 321) -21.8 E03-W02 S51-S47
  

    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