Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  814 1838 (N45E49 L=345)  2063    156        5 ( 739/1785- 878/1883)  -2.7 E60-E38 N41-N48
      2 1204 1797 (N54E13 L= 21)   355     50        0 (1173/1781-1231/1818)  -8.1 E16-E09 N52-N55
      3 1339 1737 (N54W03 L= 36)   401     43        1 (1317/1712-1364/1757)  59.0 W00-W05 N50-N55
      4 1463 1660 (N51W17 L= 51)   972    133        1 (1415/1611-1515/1696) -21.8 W11-W22 N47-N54
      5 1609 1588 (N50W34 L= 68)  1927    237        8 (1526/1533-1685/1656) -16.4 W24-W44 N46-N54
      6  986 1601 (N31E18 L= 15)   507    132        0 ( 943/1552-1025/1643) -29.1 E22-E13 N28-N33
      7  743 1532 (N21E31 L=  3)   476    156        0 ( 723/1459- 771/1601) -66.0 E32-E28 N16-N25
      8 1375 1519 (N36W11 L= 44)  1235    303        0 (1317/1399-1457/1568)  74.1 W06-W17 N27-N41
      9 1689 1519 (N47W43 L= 77)   461     83        0 (1655/1503-1736/1533)  21.8 W37-W52 N44-N50
     10  612 1455 (N13E37 L=357)   586    139        0 ( 595/1403- 645/1529) -45.0 E40-E32 N10-N17
     11  334 1475 (N09E61 L=332)   640    101        1 ( 320/1433- 356/1528) -29.1 E65-E56 N06-N12
     12  430 1423 (N07E49 L=345)   539    109        2 ( 395/1382- 474/1455)  56.3 E51-E46 N04-N10
     13 1013 1329 (N15E08 L= 26)   278     83        1 ( 983/1312-1061/1360)   0.0 E09-E04 N13-N16
     14 1801 1188 (N26W52 L= 86)  1994    406        1 (1703/1043-1922/1317) -18.4 W41-W71 N20-N32
     15  156 1149 (S14E70 L=324)   988     85        1 ( 117/1121- 201/1172)  11.3 E78-E63 S15-S11
     16  237  976 (S23E56 L=338)  2352    407        1 ( 201/ 847- 311/1147) -80.5 E60-E46 S29-S11
     17  480  813 (S27E31 L=  2)   654    203        1 ( 396/ 751- 569/ 849)  34.7 E38-E24 S33-S23
     18  732  719 (S27E11 L= 22)   412    187        1 ( 650/ 700- 825/ 736)  28.6 E16-E04 S30-S24
     19 1130  481 (S32W22 L= 56)  1866    397        1 ( 936/ 449-1294/ 529)  26.6 W08-W32 S37-S25
     20  637  407 (S53E13 L= 20)   290     34        0 ( 614/ 393- 663/ 421)  38.7 E15-E10 S54-S50
     21  673  261 (S67E07 L= 27)  1860    249        5 ( 583/ 224- 787/ 312)   6.9 E23-W10 S70-S62
  

    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