Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  435 1614 (N47E55 L= 19)  2574    212        4 ( 371/1550- 502/1696) -11.8 E89-E41 N42-N52
      2  696 1639 (N48E24 L= 50)   480     88        2 ( 661/1589- 719/1673) -60.3 E27-E21 N44-N51
      3 1342 1597 (N39W31 L=105)   395     93        0 (1292/1584-1398/1609)  -6.3 W27-W36 N38-N39
      4 1185 1558 (N38W17 L= 91)   313     90        0 (1170/1516-1199/1602)  81.9 W15-W18 N34-N41
      5 1573 1502 (N30W47 L=121)  1074    167        0 (1502/1436-1615/1549) -63.4 W42-W50 N25-N33
      6  897 1351 (N26E06 L= 68)   362    102        2 ( 869/1302- 923/1394) -63.4 E07-E04 N22-N28
      7 1735 1350 (N18W56 L=130)   502     54        0 (1713/1318-1757/1379) -63.4 W54-W58 N15-N19
      8  682 1225 (N19E21 L= 53)   538    272        1 ( 639/1146- 756/1271)  54.5 E24-E15 N14-N22
      9  351  992 (N06E46 L= 28)   624    138        1 ( 291/ 953- 410/1028)  24.0 E51-E41 N03-N08
     10  529  882 (S01E33 L= 41)  1001    292        2 ( 497/ 765- 602/ 998)  61.7 E35-E26 S08-N05
     11 1327  845 (S08W18 L= 91)   573    133        2 (1289/ 798-1382/ 902) -60.3 W15-W21 S11-S04
     12 1745  829 (S14W50 L=124)   611    171        0 (1698/ 771-1797/ 900)  33.7 W45-W54 S17-S10
     13  291  773 (S07E55 L= 19)   953    173        2 ( 221/ 736- 342/ 822) -24.4 E61-E49 S09-S04
     14 1236  782 (S12W11 L= 85)   307     68        1 (1209/ 746-1266/ 816)  36.9 W09-W13 S13-S09
     15 1541  661 (S23W33 L=107)   861    231        1 (1518/ 559-1584/ 758)  90.0 W31-W35 S29-S16
     16  889  691 (S15E11 L= 63)   207    102        1 ( 879/ 638- 902/ 739)  81.9 E11-E10 S18-S11
     17  266  649 (S16E62 L= 12)  1260    180        2 ( 243/ 582- 298/ 724)  39.8 E69-E56 S20-S10
     18  771  681 (S15E19 L= 55)   337    156        0 ( 716/ 627- 807/ 704) -26.6 E22-E16 S18-S13
     19 1388  595 (S25W22 L= 96)   495    155        1 (1340/ 546-1434/ 659)  49.4 W18-W24 S28-S21
     20  517  573 (S21E39 L= 34)   303     43        1 ( 498/ 552- 546/ 590)  21.8 E41-E36 S22-S19
     21  901  521 (S26E12 L= 61)   243    105        0 ( 856/ 500- 946/ 547)  23.2 E15-E08 S27-S24
     22  476  370 (S36E55 L= 19)   630     92        0 ( 433/ 358- 523/ 389)  -5.7 E60-E49 S37-S34
     23  879  358 (S39E18 L= 56)   360     56        0 ( 854/ 335- 904/ 384)  26.6 E20-E14 S40-S36
  

    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