Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1757 1559 (N20W69 L=186)  1249    132        1 (1691/1524-1806/1594) -28.6 W62-W74 N16-N22
      2  542 1395 (N31E26 L= 92)  1036    234        0 ( 489/1302- 618/1487)  42.0 E30-E19 N25-N35
      3  895 1434 (N27E01 L=117)   463    157        2 ( 847/1361- 951/1484) -68.2 E03-W01 N21-N31
      4 1375 1457 (N20W30 L=148)   531     82        0 (1321/1434-1418/1480) -18.4 W26-W32 N18-N21
      5 1171 1433 (N22W16 L=134)   533    169        1 (1091/1399-1253/1461) -37.9 W11-W20 N18-N25
      6  301 1306 (N29E47 L= 71)  1390    238        2 ( 198/1257- 423/1345) -15.1 E61-E35 N24-N33
      7 1580 1237 (N04W38 L=156)   314     71        0 (1546/1198-1608/1261) -63.4 W35-W39 N01-N05
      8  864 1174 (N12E07 L=111)   632    237        3 ( 781/1100- 922/1251)  31.0 E12-E02 N08-N15
      9 1582 1096 (S04W35 L=153)   363    125        0 (1564/1036-1596/1157)  66.8 W32-W37 S07-N00
     10 1710 1068 (S08W44 L=162)   388     82        1 (1682/1029-1742/1115)  45.0 W41-W47 S09-S05
     11 1867 1002 (S14W59 L=177)   931    141        0 (1825/ 942-1893/1076)  49.4 W54-W63 S17-S10
     12 1772  978 (S14W49 L=167)  1056    167        4 (1733/ 898-1813/1048)  37.9 W44-W53 S18-S10
     13  489  914 (N03E34 L= 84)   332    110        0 ( 434/ 899- 546/ 929) -14.0 E38-E30 N01-N03
     14 1201  853 (S12W08 L=125)   239     73        0 (1168/ 820-1226/ 892)  36.9 W05-W09 S13-S09
     15 1585  812 (S21W32 L=150)   261     42        2 (1567/ 784-1601/ 845)  76.0 W30-W33 S22-S18
     16  329  746 (S04E50 L= 67)   691    172        2 ( 288/ 660- 360/ 812) -90.0 E52-E48 S09-N00
     17  168  775 (S00E67 L= 51)  1106     95        2 ( 140/ 727- 206/ 811)  15.3 E73-E61 S02-N01
     18 1382  774 (S20W18 L=136)   299     80        0 (1344/ 755-1427/ 794)   0.0 W15-W20 S20-S18
     19  556  737 (S08E33 L= 84)   456    114        2 ( 531/ 682- 574/ 793)  74.1 E35-E31 S11-S04
     20  292  694 (S07E56 L= 62)  1125    150        5 ( 263/ 635- 330/ 775) -83.7 E59-E53 S10-S01
     21  487  713 (S09E39 L= 79)   368    104        0 ( 448/ 686- 508/ 759)  21.8 E41-E36 S10-S06
     22 1516  688 (S27W26 L=144)   443     96        1 (1464/ 670-1571/ 704)  -7.1 W22-W30 S28-S25
     23  392  403 (S26E63 L= 55)  1205    140        1 ( 349/ 354- 433/ 470)  14.0 E77-E53 S28-S22
     24 1510  351 (S53W29 L=147)   520     55        0 (1479/ 328-1532/ 378) -32.0 W25-W33 S55-S50
     25 1307  277 (S54W07 L=125)  1038    156        1 (1242/ 246-1384/ 313)   3.8 W00-W15 S56-S52
     26  899  254 (S46E29 L= 89)   351     73        0 ( 862/ 240- 941/ 264)  -9.5 E32-E25 S47-S44
  

    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