Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  546 1747 (N31E55 L= 96)  1018    127        3 ( 519/1689- 570/1818) -40.2 E63-E49 N26-N37
      2 1350 1727 (N47W09 L=160)   453     53        1 (1312/1706-1382/1744)  26.6 W05-W11 N44-N49
      3  900 1705 (N33E24 L=128)   576    124        0 ( 845/1670- 956/1728)   0.0 E27-E18 N31-N35
      4  571 1623 (N22E44 L=108)   854    166        1 ( 533/1576- 652/1678)  -4.8 E48-E36 N18-N26
      5  409 1564 (N16E55 L= 97)   443    135        0 ( 390/1490- 434/1612) -63.4 E56-E51 N11-N19
      6  665 1543 (N18E33 L=118)   617     91        2 ( 616/1501- 691/1592) -56.3 E36-E30 N15-N21
      7 1124 1539 (N26E04 L=148)   441     88        0 (1106/1496-1142/1586) -71.6 E05-E02 N23-N29
      8  577 1482 (N13E37 L=114)   390     98        2 ( 548/1438- 598/1522) -51.3 E39-E34 N10-N15
      9 1093 1396 (N16E03 L=149)   237     39        0 (1065/1376-1119/1416) -18.4 E04-E01 N15-N17
     10 1898 1215 (N25W63 L=215)  2791    303        5 (1821/1077-1940/1289) -37.6 W52-W73 N16-N29
     11 1717 1178 (N17W42 L=194)   760    118        2 (1696/1104-1743/1238)  90.0 W40-W44 N12-N20
     12  510 1043 (S14E32 L=119)   997    207        3 ( 453/ 963- 558/1087)  66.0 E36-E28 S19-S10
     13 1788 1025 (N10W50 L=202)   369     57        2 (1769/ 996-1805/1055) -26.6 W48-W52 N07-N11
     14  959  896 (S15E02 L=150)   334    109        0 ( 910/ 870-1000/ 936)  59.0 E04-W00 S17-S12
     15  333  872 (S26E46 L=106)   568    139        0 ( 280/ 814- 379/ 914) -29.1 E50-E41 S29-S24
     16  277  746 (S35E53 L= 98)   662     89        2 ( 244/ 715- 319/ 779) -23.2 E58-E48 S36-S33
     17  613  687 (S34E21 L=130)   299     54        1 ( 584/ 662- 641/ 712)  36.9 E23-E19 S35-S31
     18 1003  638 (S30W07 L=158)  1282    382        3 ( 834/ 595-1175/ 679)   9.9 E05-W18 S32-S26
     19 1654  602 (S17W53 L=204)  1059    258        1 (1559/ 527-1734/ 676)  59.7 W48-W57 S23-S11
     20  456  564 (S45E37 L=115)  1414    231        3 ( 358/ 532- 561/ 605)   5.2 E47-E25 S47-S41
     21 1137  496 (S36W20 L=172)   327     64        0 (1105/ 472-1175/ 522)  63.4 W18-W21 S37-S33
     22  768  384 (S53E05 L=146)   346     51        1 ( 740/ 360- 788/ 414)  63.4 E07-E03 S55-S49
     23  554  281 (S68E39 L=112)   953    153        1 ( 481/ 256- 609/ 303)  -4.4 E56-E26 S70-S65
  

    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