Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  692 1635 (N26E33 L=284)   311     45        1 ( 672/1614- 724/1660)  14.0 E34-E30 N24-N28
      2  406 1482 (N13E49 L=268)   481     87        1 ( 364/1444- 448/1507)  38.7 E51-E46 N10-N15
      3  222 1384 (N06E64 L=253)   948    128        4 ( 191/1320- 247/1437)  76.0 E66-E61 N01-N09
      4 1332 1349 (N18W13 L=330)   342    165        0 (1265/1333-1422/1369)  11.3 W09-W19 N16-N19
      5 1661 1242 (N17W37 L=354)  2336    360       11 (1542/1130-1746/1366) -25.2 W27-W45 N10-N23
      6  350 1340 (N04E49 L=268)   313     77        0 ( 310/1325- 387/1359)  18.4 E52-E46 N02-N05
      7  497 1293 (N02E37 L=280)   767    142        2 ( 464/1221- 529/1346) -56.3 E40-E34 S01-N05
      8  386 1274 (N00E45 L=272)   495    102        3 ( 332/1246- 436/1300)  -6.3 E49-E40 S01-N01
      9 1607 1164 (N12W34 L=351)   720    130        6 (1571/1105-1638/1224)  90.0 W31-W36 N07-N15
     10 1440 1162 (N08W22 L=339)   461    107        3 (1393/1112-1478/1204) -38.7 W19-W25 N05-N10
     11  452  877 (S22E35 L=282)   245     78        0 ( 433/ 845- 474/ 921)  59.0 E36-E33 S24-S19
     12 1842  837 (S02W60 L= 17)   516     65        0 (1808/ 812-1874/ 859)  26.6 W56-W63 S03-N00
     13  597  790 (S26E24 L=293)  1113    285        4 ( 479/ 725- 727/ 838)  21.3 E33-E15 S31-S22
     14 1410  600 (S24W33 L=350)  3497    853        5 (1148/ 516-1737/ 738)  18.9 W13-W56 S29-S13
     15 1781  671 (S12W60 L= 17)   341     38        1 (1762/ 648-1797/ 698) -71.6 W58-W61 S13-S10
     16  614  628 (S36E22 L=295)   292     94        0 ( 574/ 616- 663/ 645)  15.9 E25-E18 S37-S34
     17  482  524 (S45E36 L=281)   644    148        1 ( 427/ 502- 552/ 551)   0.0 E41-E28 S46-S43
     18  750  490 (S44E11 L=306)   878    281        1 ( 632/ 449- 893/ 524)   2.6 E21-W01 S45-S41
     19 1072  416 (S43W16 L=333)   346    120        0 (1031/ 394-1136/ 445)  -6.3 W12-W21 S43-S41
  

    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