Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  493 1652 (N17E56 L=170)   471     80        0 ( 470/1614- 521/1680)  90.0 E57-E54 N14-N19
      2  376 1579 (N10E62 L=163)   900    151        1 ( 336/1532- 410/1648) -83.7 E64-E60 N06-N15
      3  969 1568 (N24E20 L=206)   330     96        0 ( 946/1524- 997/1608)  90.0 E20-E18 N20-N27
      4  670 1561 (N16E37 L=188)   247    109        0 ( 636/1519- 695/1590) -26.6 E40-E34 N13-N16
      5  615 1425 (N06E35 L=190)   482    103        1 ( 569/1400- 665/1447)  26.6 E38-E32 N04-N08
      6  338 1364 (S03E54 L=171)   342     51        0 ( 318/1344- 356/1392)  56.3 E55-E52 S04-S01
      7 1228 1291 (N15W04 L=230)   397    179        2 (1170/1229-1269/1385)  85.2 W02-W05 N09-N21
      8 1539 1266 (N23W24 L=249)   620     91        2 (1510/1229-1573/1313) -26.6 W21-W27 N20-N25
      9  499 1205 (S09E36 L=189)   517    207        0 ( 462/1114- 519/1309) -76.0 E39-E34 S14-S02
     10  274 1122 (S18E52 L=174)   463     87        3 ( 244/1074- 316/1176)  74.1 E54-E49 S21-S14
     11  366 1071 (S19E43 L=183)   604    228        0 ( 287/1041- 449/1108)  26.6 E49-E37 S21-S15
     12 1127 1063 (S01W05 L=230)   217     69        2 (1107/1025-1151/1099) -14.0 W02-W06 S01-N01
     13  770 1051 (S11E15 L=211)   194     90        0 ( 724/1042- 820/1059)  21.8 E17-E12 S11-S09
     14  826 1014 (S11E11 L=215)   261    105        1 ( 768/ 990- 879/1031)   8.1 E14-E07 S12-S10
     15 1278  784 (S11W21 L=247)   307     82        2 (1241/ 762-1314/ 825)  26.6 W19-W23 S12-S09
     16  270  760 (S41E48 L=177)   638    150        1 ( 232/ 737- 320/ 789)  11.3 E52-E42 S42-S38
     17  858  750 (S25E02 L=224)   194     79        0 ( 844/ 706- 873/ 789) -68.2 E03-W00 S27-S22
     18 1066  673 (S24W13 L=238)   550    177        1 ( 982/ 645-1136/ 714)  36.9 W07-W17 S25-S19
     19  959  584 (S32W10 L=235)  1113    304        1 ( 816/ 508-1106/ 677)   2.6 E01-W21 S33-S29
     20 1177  572 (S26W23 L=249)   213     57        0 (1155/ 550-1204/ 604) -21.8 W20-W25 S26-S24
     21 1578  572 (S13W49 L=274)   625     97        2 (1542/ 536-1626/ 593)  63.4 W46-W51 S16-S10
     22 1072  233 (S51W39 L=265)  1914    353        3 (1016/ 163-1123/ 319) -29.1 W29-W48 S55-S45
     23 1012  280 (S50W31 L=256)   341     87        0 ( 997/ 247-1029/ 311) -50.2 W27-W33 S53-S47
     24 1359  264 (S37W53 L=279)   839    162        1 (1331/ 219-1392/ 308) -32.0 W48-W56 S40-S35
     25 1205  237 (S45W46 L=272)   616     88        1 (1187/ 206-1229/ 274) -14.0 W42-W50 S47-S43
  

    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