Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1362 1860 (N44W64 L=322)  1089     79        1 (1333/1825-1383/1903)   7.8 W56-W78 N42-N46
      2 1267 1837 (N46W51 L=309)   523     69        2 (1250/1801-1292/1865)  20.0 W46-W57 N43-N47
      3 1307 1641 (N32W37 L=295)   679     81        2 (1260/1615-1361/1667) -45.0 W33-W39 N29-N34
      4 1024 1550 (N34W14 L=272)   542    135        3 (1002/1481-1049/1621)  60.9 W11-W16 N29-N38
      5 1700 1482 (N12W58 L=316)  2071    244        2 (1602/1419-1808/1551) -40.2 W51-W66 N06-N17
      6  431 1519 (N47E34 L=224)   571     81        1 ( 395/1493- 477/1540)  -6.3 E38-E29 N45-N49
      7 1277 1472 (N23W27 L=285)   308    110        0 (1233/1437-1317/1493) -59.0 W24-W28 N19-N24
      8  759 1396 (N31E08 L=250)  1124    313        1 ( 597/1375- 898/1414) -19.3 E19-W01 N26-N34
      9 1249 1349 (N16W21 L=279)   315    161        0 (1180/1321-1319/1381)   0.0 W15-W25 N15-N17
     10 1006 1113 (N09W01 L=259)   945    358        3 ( 879/1084-1190/1151) -10.0 E06-W11 N04-N12
     11 1661 1057 (S10W39 L=297)   714    151        2 (1618/ 994-1707/1127) -68.2 W37-W42 S14-S04
     12 1819 1015 (S16W53 L=311)   423     76        1 (1805/ 969-1837/1054)  45.0 W50-W55 S18-S13
     13  234  935 (N14E55 L=203)  1104    211        2 ( 163/ 850- 299/1004) -36.9 E62-E49 N08-N19
     14  426  776 (N02E42 L=216)   420     93        0 ( 395/ 750- 462/ 799)   0.0 E44-E39 N00-N03
     15  890  691 (S12E15 L=243)   438    152        2 ( 851/ 625- 927/ 758)  82.9 E17-E13 S16-S08
     16 1529  601 (S34W23 L=281)   713    127        3 (1463/ 564-1586/ 640)   0.0 W17-W27 S35-S31
     17  858  599 (S17E20 L=238)   280     94        2 ( 822/ 571- 900/ 636) -59.0 E21-E17 S19-S14
     18  497  451 (S18E50 L=208)   614     82        0 ( 465/ 410- 530/ 479) -90.0 E52-E47 S21-S16
     19  529  388 (S23E51 L=207)   390     73        1 ( 501/ 371- 559/ 410) -11.3 E53-E48 S24-S21
     20  511  318 (S27E59 L=199)  1431    205        4 ( 412/ 288- 599/ 370)   0.0 E78-E48 S29-S25
     21  881  203 (S45E40 L=219)  1437    162        1 ( 815/ 156- 940/ 257)  11.3 E51-E30 S48-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