Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1591 1596 (N25W53 L=187)   345     35        0 (1566/1580-1614/1615)   9.5 W50-W56 N23-N25
      2 1638 1502 (N18W52 L=185)  1729    262        1 (1527/1450-1748/1565) -33.7 W44-W61 N13-N23
      3  369 1355 (N32E41 L= 93)  1454    266        0 ( 304/1261- 470/1457)  34.7 E46-E32 N26-N37
      4  939 1362 (N22W01 L=134)   704    195        1 ( 858/1316-1023/1407) -45.0 E03-W05 N18-N26
      5 1145 1381 (N20W14 L=147)   504     78        2 (1094/1352-1190/1404) -18.4 W10-W16 N17-N21
      6  677 1335 (N25E16 L=117)   494    146        0 ( 627/1286- 735/1394) -53.1 E19-E13 N21-N29
      7 1064 1295 (N16W07 L=141)   219     80        1 (1032/1266-1093/1331)  31.0 W04-W09 N14-N17
      8  184 1259 (N29E61 L= 73)  1846    200        2 ( 104/1214- 290/1297) -12.9 E82-E47 N24-N32
      9 1332 1195 (N06W21 L=155)   323     90        2 (1291/1158-1368/1229) -51.3 W18-W22 N02-N07
     10  629 1126 (N13E22 L=112)  1064    260        1 ( 543/1031- 682/1223)  39.3 E28-E17 N08-N18
     11 1353 1058 (S03W20 L=153)   242     61        1 (1335/1027-1370/1097)  76.0 W18-W20 S04-N00
     12  377  966 (N08E42 L= 92)   576    133        0 ( 359/ 907- 396/1044)  76.0 E42-E40 N04-N12
     13 1794  985 (S14W51 L=185)   306     39        0 (1769/ 968-1814/1007)  14.0 W48-W53 S15-S13
     14 1874  928 (S19W60 L=194)  1384    148        4 (1834/ 876-1914/ 978) -56.3 W55-W65 S22-S16
     15 1794  908 (S19W51 L=184)   509     83        2 (1775/ 854-1817/ 943)  90.0 W48-W53 S22-S16
     16  305  856 (N03E50 L= 84)   341     51        2 ( 284/ 832- 335/ 881)  11.3 E51-E46 N01-N04
     17 1812  836 (S24W53 L=186)   342     73        2 (1785/ 795-1830/ 874)  90.0 W49-W54 S26-S21
     18 1384  815 (S17W18 L=152)   378    117        0 (1349/ 759-1415/ 861)  45.0 W15-W20 S19-S14
     19  243  764 (S02E58 L= 75)   475     92        1 ( 208/ 743- 275/ 786) -18.4 E62-E55 S03-N00
     20  240  689 (S06E62 L= 72)  3279    446       12 ( 100/ 585- 398/ 785) -18.4 E83-E48 S11-N01
     21 1163  717 (S19W03 L=137)   749    283        0 (1041/ 661-1294/ 769)   7.1 E05-W11 S20-S18
     22 1514  702 (S26W26 L=160)   266     55        1 (1492/ 670-1535/ 731)  63.4 W24-W27 S28-S24
     23 1302  629 (S27W11 L=144)   370    137        0 (1242/ 615-1375/ 648) -12.5 W06-W15 S28-S25
     24 1183  245 (S54E06 L=127)   864    133        2 (1125/ 210-1256/ 278)   8.1 E13-W01 S56-S52
  

    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