Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  989 1863 (N48E37 L=360)   485     51        1 ( 965/1845-1013/1885)  71.6 E40-E34 N45-N49
      2 1024 1770 (N41E27 L= 10)  1340    272        1 ( 986/1694-1058/1838) -50.2 E32-E21 N34-N46
      3  493 1584 (N14E51 L=346)  1434    418        3 ( 442/1449- 547/1695) -39.5 E61-E41 N06-N20
      4 1084 1634 (N33E15 L= 22)   841    124        3 (1053/1583-1140/1693) -24.0 E19-E10 N29-N36
      5  328 1535 (N07E65 L=332)  3093    417        5 ( 270/1467- 367/1614) -84.3 E73-E58 N02-N12
      6 1707 1464 (N44W37 L= 74)   376     72        0 (1679/1449-1738/1481)  15.9 W33-W40 N42-N44
      7  983 1261 (N07E09 L= 28)   326     86        0 ( 960/1222-1004/1321) -80.5 E09-E07 N04-N10
      8  340 1222 (S11E49 L=348)   369     66        0 ( 316/1192- 363/1256)  63.4 E50-E47 S12-S08
      9 1243 1052 (N02W11 L= 48)   295    110        1 (1186/1037-1304/1069)  33.7 W08-W14 N00-N04
     10 1331 1040 (N04W17 L= 54)   216     17        0 (1312/1019-1348/1063)  90.0 W15-W17 N02-N05
     11 1783  941 (N13W51 L= 88)  1856    314        2 (1715/ 817-1854/1009)  85.6 W44-W57 N05-N18
     12 1818  842 (N08W58 L= 95)  1580    226        5 (1768/ 739-1860/ 961) -77.9 W53-W66 N01-N15
     13 1690  873 (N06W45 L= 82)   313     48        1 (1671/ 843-1711/ 907)  78.7 W43-W46 N03-N08
     14 1890  811 (N10W69 L=106)   595     88        0 (1876/ 766-1911/ 852) -78.7 W66-W70 N07-N12
     15  491  820 (S31E28 L=  9)   266     56        0 ( 463/ 796- 514/ 844)  53.1 E30-E26 S32-S28
     16  864  759 (S24E02 L= 35)   655    176        0 ( 777/ 733- 958/ 799)  45.0 E06-W02 S27-S19
     17 1023  603 (S29W13 L= 50)   332     52        1 ( 987/ 582-1061/ 628)  11.3 W10-W15 S30-S27
     18  792  541 (S40W00 L= 37)   496    123        0 ( 725/ 528- 853/ 555)  26.6 E04-W04 S41-S37
     19 1295  232 (S42W52 L= 89)   555     63        0 (1259/ 217-1327/ 245)  36.9 W49-W54 S43-S40
  

    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