Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1286 1793 (N46W36 L=358)   639     84        2 (1253/1758-1317/1841)  24.4 W32-W43 N43-N50
      2 1450 1816 (N46W56 L= 18)   615     51        1 (1418/1794-1477/1830)   5.7 W51-W62 N43-N47
      3 1397 1564 (N28W33 L=355)   679    157        0 (1355/1499-1460/1601)  26.6 W28-W38 N23-N30
      4  901 1578 (N35E02 L=320)   473    115        0 ( 843/1553- 959/1599)   0.0 E05-W02 N33-N36
      5  307 1405 (N31E50 L=272)   849    153        2 ( 267/1333- 346/1474) -45.0 E57-E44 N25-N36
      6  520 1354 (N25E30 L=292)   244     61        1 ( 484/1335- 546/1377)  11.3 E32-E27 N23-N25
      7 1513 1326 (N12W34 L=356)   491     48        2 (1479/1291-1544/1359) -26.6 W32-W36 N09-N13
      8  401 1200 (N17E39 L=283)   456    114        1 ( 368/1156- 441/1244) -45.0 E41-E35 N13-N19
      9 1929 1166 (S02W71 L= 33)  1477    143        1 (1885/1097-1968/1220) -35.0 W65-W78 S06-N01
     10 1757 1037 (S08W49 L= 11)   421     38        0 (1720/1004-1788/1058) -18.4 W45-W51 S09-S06
     11  327 1005 (N06E46 L=276)  2256    349        3 ( 192/ 949- 482/1053)  -6.6 E59-E33 N01-N09
     12 1738  949 (S13W47 L=  8)   553      0        0 (1706/ 899-1771/1003)  50.2 W43-W49 S15-S09
     13 1802  915 (S15W53 L= 14)   575     81        1 (1768/ 881-1834/ 954)  15.9 W49-W56 S17-S13
     14 1787  857 (S19W51 L= 13)   340     60        2 (1765/ 823-1807/ 883) -63.4 W49-W53 S20-S16
     15 1336  667 (S26W16 L=338)  4580   1011        4 ( 870/ 541-1729/ 830)   7.4 E16-W46 S29-S19
     16  293  649 (S14E57 L=265)  1052    154        3 ( 254/ 586- 322/ 732)  56.3 E63-E52 S18-S09
     17  398  679 (S14E46 L=276)   503    116        1 ( 347/ 649- 456/ 701)  -7.1 E49-E40 S15-S12
     18  731  588 (S23E24 L=297)   648    152        5 ( 704/ 536- 750/ 666)  53.1 E27-E21 S26-S18
     19 1724  529 (S40W53 L= 15)   702     76        0 (1689/ 502-1764/ 559)  15.9 W48-W58 S41-S37
     20 1474  454 (S42W28 L=350)   845    223        3 (1385/ 422-1577/ 486)  -3.2 W20-W38 S43-S40
     21  363  401 (S31E67 L=255)  1636    130        4 ( 315/ 372- 425/ 439) -12.1 E82-E60 S33-S28
     22  580  278 (S43E54 L=268)   422     44        0 ( 558/ 254- 608/ 297)  18.4 E58-E49 S44-S41
     23  908  251 (S50E24 L=297)   421     60        1 ( 885/ 219- 929/ 285)  80.5 E26-E22 S53-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