Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  839 1829 (N39E41 L=221)   407     39        0 ( 815/1811- 863/1847)  14.0 E43-E38 N37-N41
      2  680 1775 (N31E48 L=214)  1851    188        6 ( 609/1717- 752/1838) -85.2 E53-E44 N25-N37
      3 1011 1802 (N42E26 L=236)   318     59        0 ( 996/1775-1036/1824) -78.7 E28-E24 N39-N44
      4 1501 1796 (N64W19 L=281)   610     53        0 (1483/1769-1519/1823)  50.2 W15-W26 N58-N70
      5  798 1691 (N27E34 L=228)  1118    200        2 ( 736/1657- 871/1756)  32.0 E38-E29 N24-N32
      6  715 1641 (N22E36 L=226)   276     46        0 ( 689/1614- 735/1658) -26.6 E38-E34 N20-N23
      7 1588 1425 (N32W27 L=289)  2520    605        0 (1402/1306-1817/1609)  -8.3 W09-W50 N26-N39
      8  407 1571 (N12E57 L=205)   574    123        1 ( 372/1551- 460/1600)   7.1 E61-E51 N10-N14
      9  486 1535 (N11E48 L=214)   426     63        2 ( 451/1515- 518/1555)  45.0 E50-E45 N09-N12
     10  592 1490 (N10E38 L=224)   324     89        0 ( 566/1450- 611/1530) -39.8 E41-E35 N07-N12
     11 1636 1472 (N37W31 L=293)   344     97        0 (1597/1437-1671/1506) -20.6 W26-W34 N35-N38
     12 1198 1165 (N05W06 L=268)   389    102        1 (1150/1135-1237/1197)  59.0 W04-W08 N02-N07
     13  504 1124 (S13E34 L=228)   691    183        0 ( 451/1050- 561/1173)  58.0 E36-E30 S17-S09
     14 1912 1119 (N24W64 L=326)   599    120        0 (1877/1058-1942/1156) -15.3 W58-W70 N21-N25
     15  155 1002 (S25E67 L=195)  2282    162        3 ( 126/ 921- 186/1094)  84.8 E72-E62 S30-S19
     16  359  944 (S26E43 L=219)   449    112        0 ( 318/ 911- 409/ 979)  32.0 E46-E38 S28-S22
     17  263  896 (S31E52 L=210)   416    113        1 ( 218/ 881- 315/ 917)   0.0 E57-E46 S31-S29
     18 1187  882 (S11W13 L=275)   397    121        0 (1120/ 861-1240/ 898)  15.9 W08-W15 S13-S09
     19  543  784 (S32E26 L=237)  2368    493        3 ( 359/ 656- 752/ 864)  30.7 E43-E11 S44-S24
     20 1586  507 (S20W54 L=316)   697    147        0 (1531/ 471-1651/ 558)  63.4 W50-W56 S23-S15
     21 1306  526 (S28W32 L=295)   505    161        0 (1238/ 510-1383/ 543)  16.7 W27-W37 S29-S25
     22 1486  360 (S31W57 L=319)  2551    286        4 (1344/ 333-1612/ 397)  24.4 W44-W68 S36-S24
  

    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